+ DEBUG and warn "skipping $id that was already retweeted\n";
+ $skip = $id;
+ }
+ if (defined $conf->{allow}) {
+ $skip = $id;
+ foreach my $screen_name ( @{ $conf->{allow}{screen_name} } ) {
+ if ($tweets->{$id}{screen_name} eq $screen_name) {
+ DEBUG and warn "$id was allowed by screen_name\n";
+ undef $skip;
+ last;
+ }
+ }
+ foreach my $user_id ( @{ $conf->{allow}{user_id} } ) {
+ if ($tweets->{$id}{user_id} eq $user_id) {
+ DEBUG and warn "$id was allowed by user_id\n";
+ undef $skip;
+ last;
+ }
+ }
+ }
+
+ if ($skip) {