Changeset 641934f in lab.git for Dev/twitter/twitterbot.pl

Timestamp:

Jan 10, 2011 3:16:48 PM (14 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

702399e

Parents:

5fa546f

Message:

• add more debug output
• NEW: retweet only allowed users' tweets
  • like this

    allow:
      screen_name:
        - mittyorz
      user_id:
        - 211556294
    

  • this feature only works when "allow:" entry exists

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@102 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• Dev/twitter/twitterbot.pl (modified) (2 diffs)

Dev/twitter/twitterbot.pl

@@ -50 +50 @@
     #                      eq 'mention' => found by mention API
     if ($tweets->{$id}{type} eq 'retweet') {
+        DEBUG and warn "skipping $id that was already retweeted\n";
         next;
     }
+    if (defined $conf->{allow}) {
+        my $flag;
+        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";
+                $flag = $id;
+                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";
+                $flag = $id;
+                last;
+            }
+        }
+        if (! $flag) {
+            next;
+        }
+    }
+    
     DEBUG or sleep($conf->{sleep});
     
@@ -88 +110 @@
         warn "$0: '$file' $!\n";
     }
+    
+    DEBUG and warn "'$file' => ", Dumper($yaml);
     
     return $yaml->[0];