Changeset 15608

Timestamp:

07/10/08 14:51:51 (5 years ago)

Author:

yappo

Message:

reply を出すよ

Files:

• lang/perl/misc/WassrPod/wassrpod.pl (modified) (1 diff)

lang/perl/misc/WassrPod/wassrpod.pl

@@ -94 +94 @@
         my $dt = DateTime->from_epoch( epoch => $status->{epoch} );
         # $dt->set_time_zone( 'Asia/Tokyo' );
+        my $text = $status->{text};
+        if ($status->{reply_user_login_id}) {
+            $text .= sprintf '[Re:%s/%s]', $status->{reply_user_login_id}, $status->{reply_message};
+        }
         my $tmp = {
             created_at => $dt->strftime('%a %b %d %T %z %Y'),
             id => $status->{rid},
-            text => $status->{text},
+            text => $text,
             source => 'web',
             truncated => 'false',