Changeset 29878 for lang/perl/HTTP-Engine

Timestamp:

02/11/09 00:34:38 (4 years ago)

Author:

tokuhirom

Message:

take a host/port information from the 'Host' header.
this behavior is same as Interface::ServerSimple?.
and, with this technique, we can avoid URI.pm's utf-8 flag related problems.

see also.
http://d.hatena.ne.jp/orangevtr/20090208/1234097762

Location:

lang/perl/HTTP-Engine/trunk

Files:

• lib/HTTP/Engine/Interface/POE.pm (modified) (3 diffs)
• t/020_interface/poe-uri.t (added)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/POE.pm

@@ -84 +84 @@
     my ($self, $request, $heap) = @_;
 
+    my($host, $port) = $request->headers->header('Host') ?
+        split(':', $request->headers->header('Host')) : ($self->host, $self->port);
+
     {
         headers => $request->headers,
@@ -89 +92 @@
             my $uri = $request->uri->clone;
             $uri->scheme('http');
-            $uri->host($self->host);
-            $uri->port($self->port);
+            $uri->host($host);
+            $uri->port($port);
             $uri->path('/') if $request->uri =~ m!^https?://!i;
 
@@ -101 +104 @@
             address    => $heap->{remote_ip},
             method     => $request->method,
-            port       => $self->port,
+            port       => $port,
             user       => undef,
             _https_info => 'OFF',