- Timestamp:
- Jan 10, 2011 3:55:26 PM (14 years ago)
- Branches:
- master, trunk
- Children:
- 45a20c3
- Parents:
- 641934f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Dev/twitter/twitterbot.pl
r641934f r702399e 49 49 # $tweets->{$id}{type} eq 'search' => found by search API 50 50 # eq 'mention' => found by mention API 51 my $skip; 51 52 if ($tweets->{$id}{type} eq 'retweet') { 52 53 DEBUG and warn "skipping $id that was already retweeted\n"; 53 next;54 $skip = $id; 54 55 } 55 56 if (defined $conf->{allow}) { 56 my $flag;57 $skip = $id; 57 58 foreach my $screen_name ( @{ $conf->{allow}{screen_name} } ) { 58 59 if ($tweets->{$id}{screen_name} eq $screen_name) { 59 60 DEBUG and warn "$id was allowed by screen_name\n"; 60 $flag = $id;61 undef $skip; 61 62 last; 62 63 } … … 65 66 if ($tweets->{$id}{user_id} eq $user_id) { 66 67 DEBUG and warn "$id was allowed by user_id\n"; 67 $flag = $id;68 undef $skip; 68 69 last; 69 70 } 70 71 } 71 if (! $flag) { 72 next; 73 } 72 } 73 74 if ($skip) { 75 next; 74 76 } 75 77
Note: See TracChangeset
for help on using the changeset viewer.