Changeset 5da6ed8

Timestamp:

Jul 31, 2009, 1:50:06 AM (15 years ago)

Author:

Kevin Riggle <kevinr@free-dissociation.com>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

82e0f26

Parents:

0b13bbc

Message:

Include by default replies from users to whom the current user is not subscribed.

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (2 diffs)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -38 +38 @@
         poll_for_dms     => 1,
         publish_tweets   => 1,
+        show_unsubscribed_replies => 1,
         %$cfg
        };
@@ -111 +112 @@
         return;
     };
+
+    if ($self->{cfg}->{show_unsubscribed_replies}) {
+        my $mentions = $self->{twitter}->mentions( { since_id => $self->{last_id} } );
+        unless (defined($mentions) && ref($mentions) eq 'ARRAY') {
+            $self->twitter_error();
+            return;
+        };
+        #combine, sort by id, and uniq
+        push @$timeline, @$mentions;
+        @$timeline = sort { $b->{id} <=> $a->{id} } @$timeline;
+        my $prev = { id => 0 };
+        @$timeline = grep($_->{id} != $prev->{id} && (($prev) = $_), @$timeline);
+    }
+
     if ( scalar @$timeline ) {
         for my $tweet ( reverse @$timeline ) {