Changeset 18691

Timestamp:

09/03/08 01:35:09 (5 years ago)

Author:

tokuhirom

Message:

quick & silly bug fix.
HTTP ENGINE DOES NOT SUPPORT PROXY SERVER

Files:

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

lang/perl/misc/WassrPod/wassrpod.pl

@@ -53 +53 @@
     my($self, $req) = @_;
 
-    if ($req->path eq '/http://twitter.com/statuses/friends_timeline.xml') {
+    (my $path = $req->path) =~ s!^//!/http://!; # work around, "HTTP::Engine does not support proxy server"
+
+    if ($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 ($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 ($path =~ '^/http://wassr.jp/.*$') {
         my $ua = ua($req, 'wassr.jp');
         my $res = $ua->get($req->path);
@@ -71 +73 @@
         $heres;
     } else {
-        warn "INVALID PATH: " . $req->path;
+        warn "INVALID PATH: " . $path;
         HTTP::Engine::Response->new( status => 404, body => 'not found' );
     }