PATCH: vhost module doesn't work when not on port 80

Martin Atkins mart at
Wed Aug 17 13:57:49 PDT 2005

While playing around with perlbal I've got it running on a nonstandard
port. I found that since the Host header contains a port number the
vhost module fails to match to the right vhost.

I think the easiest fix is just to strip the port off completely, and
the simple patch I've attached does that very thing. There seems little
point in using the client-supplied port number when there's a real port
number available on the socket itself.

-------------- next part --------------
--- lib/Perlbal/Plugin/	2005-08-17 21:49:12.000000000 +0100
+++ lib/Perlbal/Plugin/	2005-08-17 21:50:04.000000000 +0100
@@ -84,6 +84,9 @@
     my $vhost = $req->header("Host");
+    # Strip off the :portnumber, if any
+    $vhost =~ s/:.*$//;
     my $maps = $cb->{service}{extra_config}{_vhosts} ||= {};
     # returns 1 if done with client, 0 if no action taken

More information about the perlbal mailing list