Changeset 18049

Timestamp:

08/22/08 17:46:04 (5 months ago)

Author:

mattn

Message:

アイコン対応

Files:

• lang/perl/misc/HaikuPod/haikupod.pl (modified) (1 diff)

lang/perl/misc/HaikuPod/haikupod.pl

@@ -64 +64 @@
             body         => $self->update($req),
         );
-    } elsif ($req->path =~ '^/http://h.hatena.ne.jp/.*$') {
-        my $ua = ua($req, 'h.hatena.ne.jp');
-        my $res = $ua->get($req->path);
+    } elsif ($req->path =~ '^/http://(h|www).hatena.ne.jp/.*$') {
+        my $ua = ua($req, $req->uri->host);
+        my $res = $ua->get(substr($req->path, 1));
 
         my $heres = HTTP::Engine::Response->new();