* save also skipped tweet status_id

  * maybe cause infinity mail sending

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

diff --git a/Dev/twitter/twitterbot.pl b/Dev/twitter/twitterbot.pl
index f9dea40..3923a6b 100755 (executable)
--- a/Dev/twitter/twitterbot.pl
+++ b/Dev/twitter/twitterbot.pl
@@ -106,6 +106,7 @@ foreach my $id (sort keys %$tweets) {
     }
     
     if ($skip) {
+        $stat->{$tweets->{$id}{type}} = $id;
         next;
     }