mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:35:40 -04:00
69 lines
1.6 KiB
Perl
69 lines
1.6 KiB
Perl
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 display_tweet {
|
|
my $tweet = shift;
|
|
|
|
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 "<$source> $text $url";
|
|
} else {
|
|
print "No tweets found";
|
|
}
|
|
}
|
|
|
|
sub {
|
|
my( $said ) = @_;
|
|
|
|
# TODO make this also support getting more than one tweet.
|
|
|
|
if ($said->{body} =~ /^\s*(#\S+)/ ||
|
|
$said->{body} =~ /^\s*search\s+(.*)/) {
|
|
# hash tags. omg.
|
|
my $search = $client->search($1);
|
|
|
|
open (my $fh, ">", "/tmp/twitter");
|
|
print $fh Dumper($search);
|
|
|
|
my $tweets = $search->{statuses};
|
|
my $tweet = $tweets->@[rand() * $tweets->@*];
|
|
|
|
display_tweet $tweet;
|
|
} else {
|
|
my ($userid, $count) = $said->{body} =~ /^\s*(\S+)(?:\s+(\d+))?/g;
|
|
|
|
my $timeline=$client->user_timeline($userid);
|
|
my $tweet = $timeline->[$count//0];
|
|
|
|
display_tweet $tweet;
|
|
}
|
|
|
|
return ('handled', 'handled');
|
|
};
|
|
__DATA__
|
|
Get the latest tweet from an account
|