Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:45:40 -04:00
Code Issues Releases Wiki Activity

New twitter plugin

Browse source
This commit is contained in:
Ryan Voots 2017-02-02 02:42:15 -08:00
parent 024b3d5143
commit 4f7ef26ce4
1 changed files with 51 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
plugins/twitter.pm Normal file
View file

@ -0,0 +1,51 @@
no warnings 'void';
use Twitter::API;
use Data::Dumper;
use strict;
open(my $fh, "<", "etc/twitterkeys") or die $!;
my ($consumer_key, $consumer_secret) = <$fh>;
close($fh);
chomp $consumer_key;
chomp $consumer_secret;
#die Dumper($consumer_key, $consumer_secret);
my $client = Twitter::API->new_with_traits(
traits => [qw/ApiMethods AppAuth/],
consumer_key => $consumer_key,
consumer_secret => $consumer_secret,
);
# get the appauth token and set it up
my $_r = $client->oauth2_token;
$client->access_token($_r);
sub {
my( $said ) = @_;
# TODO make this also support getting more than one tweet.
my ($userid) = $said->{body} =~ /^\s*(\S+)/g;
my $timeline=$client->user_timeline($userid);
my $tweet = $timeline->[0];
if ($tweet) {
my ($time, $text, $id) = @{$tweet}{qw/created_at text id/};
my $source = $tweet->{user}{name};
my $url = "https://twitter.com/link/status/$id";
print STDERR Dumper($timeline);
print "<$source> $text $url";
} else {
print "No tweets found";
}
return ('handled', 'handled');
};
__DATA__
Get the latest tweet from an account