Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (herse.apache.org: local policy)
Date: Thu, 15 Feb 2007 18:01:33 +0300
From: "Alexander V. Lukyanov" <lav@netis.ru>
To: modperl@perl.apache.org
Subject: a bug with redirect in mod_perl-2.0.3 and CGI-3.25
Message-ID: <20070215150133.GA17421@night.netis.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
User-Agent: Mutt/1.5.11

Hello!

I have a perl script which uses CGI package and does redirect(). It is run
under mod_perl. For some reason I get HTTP status "200 OK", but the header
"Location:" is set and the response body says the document has moved.

I have debugged it somewhat, found that send_cgi_header is correctly called
by CGI's redirect, the function send_cgi_header sets r->status to 302 and
r->status_line to "302 Moved" correctly. But then the status is reset to
200 in RegistryCooker::default_handler. Then Apache's validate_status_line
function finds mismatch between status and status_line and resets the
status_line to "200 OK" too.

I beleave there is a bug somewhere which prevents redirecting from CGI when
using mod_perl. I fixed it by this patch, but I'm not sure it is "the right
way" (TM):

--- RegistryCooker.pm.1	Thu Feb 15 17:57:00 2007
+++ RegistryCooker.pm	Thu Feb 15 17:40:59 2007
@@ -168,7 +168,7 @@
     # status after running it
     my $old_status = $self->{REQ}->status;
     my $rc = $self->run;
-    my $new_status = $self->{REQ}->status($old_status);
+    my $new_status = $self->{REQ}->status; #($old_status);
     return ($rc == Apache2::Const::OK && $old_status != $new_status)
         ? $new_status
         : $rc;

-- 
   Alexander.