Changeset 819

Timestamp:

05/28/09 16:25:36 (6 months ago)

Author:

ask

Message:

Make Redirect plugin more standards compliant

Location:

trunk

Files:

• CHANGES (modified) (2 diffs)
• lib/Perlbal/Plugin/Redirect.pm (modified) (2 diffs)

trunk/CHANGES

@@ +1 @@
+    -- Make Redirect plugin more standards compliant (Ask BjÞrn Hansen)
+
     -- Fix X-REPROXY-FILE to work with SSL connections (Greg Denton)
 
@@ -20 +22 @@
 
     -- change the VHost plugin to treat 'www.example.com.' and
-       'www.example.com' the same.
+       'www.example.com' the same. (Ask)
 
     -- silence warnings when things that look like variables on comment lines

trunk/lib/Perlbal/Plugin/Redirect.pm

@@ -1 @@
-
 package Perlbal::Plugin::Redirect;
-
-use Perlbal;
 use strict;
 use warnings;
@@ -24 +21 @@
         my $res_header = Perlbal::HTTPHeaders->new_response(301);
         $res_header->header('Location' => "http://$target_host$path");
+        $res_header->header('Content-Length' => 0);
+        # really should only do the keep-alive for 1.1, but that's a bigger issue
+        $res_header->header('Connection' => 'keep-alive');
         $pb->write($res_header->to_string_ref());
-
-        # FIXME: Should probably generate a more interesting body here.
-        my $body = "...";
-        $pb->write(\$body);
 
         return 1;