Changeset 18038

Timestamp:

08/22/08 16:25:49 (5 years ago)

Author:

yappo

Message:

path の頭に / ついてる

Files:

• lang/perl/misc/WassrPod/wassrpod.pl (modified) (2 diffs)

lang/perl/misc/WassrPod/wassrpod.pl

@@ -30 +30 @@
 my $timeline_map = {};
 sub timeline_map { $timeline_map };
-
 my $timeline_queue = [];
 sub timeline_queue { $timeline_queue };
+my $channels = {};
+sub channels { $channels };
 
 sub run {
@@ -52 +53 @@
     my($self, $req) = @_;
 
-    if ($req->path eq 'http://twitter.com/statuses/friends_timeline.xml') {
+    if ($req->path eq '/http://twitter.com/statuses/friends_timeline.xml') {
         HTTP::Engine::Response->new(
             content_type => 'application/xml',
             body         => $self->friends_timeline($req),
         );
-    } elsif ($req->path eq 'http://twitter.com/statuses/update.xml') {
+    } elsif ($req->path eq '/http://twitter.com/statuses/update.xml') {
         HTTP::Engine::Response->new(
             content_type => 'application/xml',
             body         => $self->update($req),
         );
-    } elsif ($req->path =~ '^http://wassr.jp/.*$') {
+    } elsif ($req->path =~ '^/http://wassr.jp/.*$') {
         my $ua = ua($req, 'wassr.jp');
         my $res = $ua->get($req->path);