Changeset 115 in lab

Timestamp:

Mar 17, 2011 6:28:37 PM (13 years ago)

Author:

mitty

Message:

• reads text file and tweets it
• usage: update_timeline.pl [text_file_to_tweet]
• text file should be UTF-8

File:

• trunk/Dev/twitter/update_timeline.pl (copied) (copied from trunk/Dev/twitter/dump_timeline.pl) (3 diffs)

trunk/Dev/twitter/update_timeline.pl

@@ -18 +18 @@
 my $help = sub {
     die <<EOM;
-usage: $0
-    [{u}ser_timeline(default)|{r}etweeted_by_me|{m}sentions
-        [screen_name
-            [number_of_pages|all
-                [dump]
-            ]
-        ]
-    ]
+usage: $0 [text_file_to_tweet]
 EOM
 };
@@ -32 +25 @@
 }
 
-my $method = $ARGV[0] || 'user_timeline';
-my $screen_name = $ARGV[1] || '';
-my $pages = $ARGV[2] || 1;
-if ($pages eq 'all') {
-    $pages = -1;
-}
-my $dump = $ARGV[3] || 0;
-
+my $file = $ARGV[0] || 'update.log';
 my $conf = loadconf("$Bin/config.yml");
 if (! defined $conf) {
@@ -50 +36 @@
 }
 
-
+open TWEET, $file or die "$0: cannot open file: $file";
 eval {
-    my $page = 0;
-    while ($pages - $page && $page <= 160) {
-        $page++;
-        
-        my $param = ($screen_name)
-            ? { page => $page, screen_name => $screen_name, }
-            : { page => $page, }
-        ;
+    my $update = "";
+    my $res;
+    foreach my $line (<TWEET>) {
+        chomp $line;
+        $update .= $line;
+    }
+    if (length $update) {
+        $update = decode('utf8', $update);
+        $res = $bot->update($update);
+    }
     
-        my $res;
-        if ($method eq 'user_timeline' || $method eq 'u') {
-            $res = $bot->user_timeline($param);
-        }
-        elsif ($method eq 'retweeted_by_me' || $method eq 'r') {
-            $res = $bot->retweeted_by_me($param);
-        }
-        elsif ($method eq 'mentions' || $method eq 'm') {
-            $res = $bot->mentions($param);
-        }
-        else {
-            warn "$0: unknown method '$method'";
-            &{$help};
-        }
-        
-        if ($dump) {
-            foreach my $line (split /\n/, Dumper $res) {
-                if ($line =~ /undef/) { next; }
-                print $line, "\n";
-            }
-        }
-        else {
-            foreach my $status (@{$res}) {
-                my $text = "";
-                $text .= "(". $status->{id} . ") ";
-                $text .= $status->{user}{name};
-                $text .= " [" . $status->{created_at} . "]";
-                $text .= " ".  $status->{text};
-                $text =~ s/\n//;
-                print encode('utf8', $text), "\n";
-            }
-        }
+    foreach my $line (split /\n/, Dumper $res) {
+        if ($line =~ /undef/) { next; }
+        print STDERR $line, "\n";
+    }
+    if (ref $res) {
+        my $status = $res;
+        my $text = "";
+        $text .= "(". $status->{id} . ") ";
+        $text .= ($status->{user}{name}) ? $status->{user}{name} : $status->{from_user};
+        $text .= " [" . $status->{created_at} . "]";
+        $text .= " ".  $status->{text};
+        $text =~ s/\n//;
+        print encode('sjis', $text), "\n";
     }
 };