Handle event retweet_retweeted

New streaming API event: https://twittercommunity.com/t/addition-of-new-social-event-to-streaming-api-retweet-has-been-retweeted/30911
semifor · Mar 22, 2015 · b04286b · b04286b
1 parent 2688aab
commit b04286b
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/lib/POE/Component/Server/Twirc.pm b/lib/POE/Component/Server/Twirc.pm
@@ -1046,6 +1046,15 @@ event on_direct_message => sub {
             for split /\r?\n/, $text;
 };
 
+sub on_event_retweet_retweeted {
+    my ( $self, $msg ) = @_;
+
+    my $screen_name = $msg->{source}{screen_name};
+    my $text = $msg->{target_object}{text};
+
+    $self->bot_notice($self->irc_channel, "$screen_name retweeted your retweet: $text");
+}
+
 ########################################################################
 # Commands
 ########################################################################