Changeset 29398

Timestamp:

02/02/09 00:08:40 (4 years ago)

Author:

sugyan

Message:

lang/perl/Net-Twissr: version 0.1.2, modify example/terminal.pl

Location:

lang/perl/Net-Twissr/trunk

Files:

• Changes (modified) (1 diff)
• README (modified) (1 diff)
• example/terminal.pl (modified) (4 diffs)
• lib/Net/Twissr.pm (modified) (4 diffs)

lang/perl/Net-Twissr/trunk/Changes

@@ -11 +11 @@
 
 0.1.0  Wed Jan 20 00:18:52 2009
+
+0.1.1  Wed Jan 21 22:06:26 2009
+       add method "update_twitter" and "update_wassr".
+
+0.1.2  
+       add reply properties.

lang/perl/Net-Twissr/trunk/README

@@ -1 @@
-Net-Twissr version 0.1.1
+Net-Twissr version 0.1.2
 
 [ REPLACE THIS...

lang/perl/Net-Twissr/trunk/example/terminal.pl

@@ -32 +32 @@
 # l: list
 # r: refresh
+# t: post to twitter only
+# w: post to wassr only
+# p: post to twitter and wassr
+# P: post as reply to current selected message
 # q: quit
-# p: post
 
 my $mode = 0;
@@ -65 +68 @@
         &refresh_friends_timeline(\@friends_timeline);
     }
-    if ($ch eq 'p') {
-        $screen->clrscr()->at(0, 0)->puts('Message:')->at(1, 0);
+    if ($ch eq 'p' or $ch eq 'P' or
+          $ch eq 't' or $ch eq 'w') {
+        my $message = 'Message';
+        my $option = {
+            twitter => 1,
+            wassr => 1,
+        };
+        # reply
+        if ($ch eq 'P') {
+            my $status = $friends_timeline[$index];
+            $message .= " for $status->{user_id}";
+            $message .= " in $status->{service}";
+            if ($status->{service} eq 'twitter') {
+                $option->{wassr} = 0;
+            }
+            if ($status->{service} eq 'wassr') {
+                $option->{twitter} = 0;
+            }
+            $option->{reply} = $status->{id};
+        }
+        # twitter only
+        if ($ch eq 't') {
+            $message .= ' in twitter';
+            $option->{wassr} = 0;
+        }
+        # wassr only
+        if ($ch eq 'w') {
+            $message .= ' in wassr';
+            $option->{twitter} = 0;
+        }
+        $message .= ':';
+        $screen->clrscr()->at(0, 0)->puts($message)->at(1, 0);
+
         my $status = <>;
         if (defined $status) {
             chomp($status);
-            &update($status);
+            &update($status, $option);
         }
     }
@@ -96 +130 @@
             my $row = 0;
             my $status = $timeline->[$index];
+            # Twissr / Wassr
             $screen->at($row++, 0)->puts($status->{service})->clreol();
-            return if ($row > $rows - 1);
+            # date and time
             $screen->at($row++, 0)->puts(scalar(localtime($status->{time})))->clreol();
-            return if ($row > $rows - 1);
+            # user name
             my $user = (Jcode->new($status->{user_id} . ' / ' . $status->{user_name})->jfold($cols))[0];
             $screen->at($row++, 0)->puts($user)->clreol();
-            return if ($row > $rows - 1);
+            # message
             my @text = Jcode->new($status->{text})->jfold($cols - 1);
             for (0..$#text) {
                 $screen->at($row++, 0)->puts($text[$_])->clreol();
-                return if ($row > $rows - 1);
+            }
+            # reply
+            if ($status->{reply_id}) {
+                $row++;
+                # reply to
+                my $reply_to = $status->{reply_to};
+                $screen->at($row++, 0)->puts('reply to : ' . $reply_to)->clreol();
+                # reply message
+                if ($status->{reply_text}) {
+                    my @reply_text = Jcode->new($status->{reply_text})->jfold($cols - 1);
+                    for (0..$#reply_text) {
+                        $screen->at($row++, 0)->puts($reply_text[$_])->clreol();
+                    }
+                }
             }
         };
@@ -137 +185 @@
 # statusの更新
 sub update {
-    my $status = shift;
-    $twissr->update($status);
-}
+    my ($status, $option) = @_;
+    # multi post
+    if ($option->{twitter} && $option->{wassr}) {
+        $twissr->update($status);
+    }
+    # single post
+    else {
+        # twitter
+        if ($option->{twitter}) {
+            $twissr->update_twitter({
+                status => $status,
+                reply => $option->{reply},
+            });
+        }
+        # wassr
+        if ($option->{wassr}) {
+            $twissr->update_wassr({
+                status => $status,
+                reply => $option->{reply},
+            });
+        }
+    }
+}

lang/perl/Net-Twissr/trunk/lib/Net/Twissr.pm

@@ -5 +5 @@
 use Carp;
 
-use version; our $VERSION = qv('0.1.1');
+use version; our $VERSION = qv('0.1.2');
 
 use HTTP::Date;
@@ -202 +202 @@
         $time =~ s/\+0000/GMT/;
         $status{time} = str2time($time);
+        $status{reply_id} = $data->{in_reply_to_status_id};
+        $status{reply_to} = $data->{in_reply_to_screen_name};
         push @statuses, \%status;
     }
@@ -213 +215 @@
         $status{user_name} = $data->{user}->{screen_name};
         $status{time} = $data->{epoch};
+        $status{reply_id} = $1 if ($data->{reply_status_url} =~ m|^.*/(.*?)$|);
+        $status{reply_to} = $data->{reply_user_login_id};
+        $status{reply_text} = $data->{reply_message};
         push @statuses, \%status;
     }
@@ -229 +234 @@
 =head1 VERSION
 
-This document describes Net::Twissr version 0.1.1
+This document describes Net::Twissr version 0.1.2