Changeset 819 for trunk/lib/Perlbal/Plugin

Timestamp:

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

Author:

ask

Message:

Make Redirect plugin more standards compliant

Files:

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

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;