Changeset 35889d4 in lab.git for twitter/twitterbot.pl

Timestamp:

Sep 13, 2010 11:02:26 PM (14 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

c273ad8

Parents:

035465b

Message:

• different since_id options on mentions, search

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

File:

• twitter/twitterbot.pl (modified) (5 diffs)

twitter/twitterbot.pl

@@ -20 +20 @@
 my $stat = loadconf("$Bin/status.yml");
 if (! defined $stat) {
-    $stat = {
-        # do not set to 0
-        since_id => 1,
-    };
+    $stat = {};
 }
 
@@ -34 +31 @@
 my $tweet;
 
-$tweet = or_search($bot, $conf->{hashtag}, $stat->{since_id});
+$tweet = or_search($bot, $conf->{hashtag}, $stat->{search});
 if ($tweet) {
     %tweets = (%tweets, %$tweet);
 }
 
-$tweet = mentions_ids($bot, $stat->{since_id});
+$tweet = mentions_ids($bot, $stat->{mention});
 if ($tweet) {
     %tweets = (%tweets, %$tweet);
@@ -62 +59 @@
     }
     
-    $stat->{since_id}   = $id;
+    $stat->{$tweets{$id}} = $id;
 }
 
@@ -113 +110 @@
     my $bot      = shift @_;
     my $keywords = shift @_;
-    my $since_id = shift @_;
+    my $since_id = shift @_ || 1;
     
     my $key = "";
@@ -162 +159 @@
     
     my $bot      = shift @_;
-    my $since_id = shift @_;
+    my $since_id = shift @_ || 1;
     
     my $res;