Skip to content

Instantly share code, notes, and snippets.

@cutmail

cutmail/activity.pl

Forked from sugyan/activity.pl
Created February 19, 2012 09:36
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save cutmail/1862779 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save cutmail/1862779 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. @sugyan sugyan created this gist Dec 12, 2011.
    37 changes: 37 additions & 0 deletions activity.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,37 @@
    #!/usr/bin/env perl
    use strict;
    use warnings;

    use Config::Pit;
    use Data::Dumper;
    use Furl;
    use HTTP::Request::Common;
    use JSON::XS 'decode_json';
    use OAuth::Lite::Consumer;

    my $config = pit_get('twitter.com', require => {
    consumer_key => 'consumer_key',
    consumer_secret => 'consumer_secret',
    access_token => 'access_token',
    access_token_secret => 'access_token_secret',
    });
    my $consumer = OAuth::Lite::Consumer->new(
    consumer_key => $config->{consumer_key},
    consumer_secret => $config->{consumer_secret},
    );

    my $uri = 'http://api.twitter.com/i/activity/about_me.json';
    my $req = GET $uri,
    Authorization => $consumer->gen_auth_header('GET', $uri, +{
    token => OAuth::Lite::Token->new(
    token => $config->{access_token},
    secret => $config->{access_token_secret},
    ),
    });
    my $res = Furl->new->request($req);
    if ($res->is_success) {
    print Dumper decode_json($res->content);
    }
    else {
    print $res->content;
    }