perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Geoffrey Young <ge...@modperlcookbook.org>
Subject Re: Easy internal redirect question
Date Wed, 02 Oct 2002 17:05:34 GMT


FFabrizio@Exchange.WebMD.net wrote:
> I call a page, /my/script1?task=foo which does some things and then needs to
> redirect to /my/script2?task=bar.  However, putting 
> 
> $r->internal_redirect('/my/script2?task=bar');
> 
> doesn't seem to work as script2 is seeing task=foo rather than task=bar.
> Looks like the internal_redirect is also passing along the form params to
> the second request.  How is this avoided?  I'm looking through the cookbook
> recipe on internal redirects but nothing is jumping out at me at the moment.

that's pretty odd.

given two scripts, one.pl:

shift->internal_redirect('/perl-bin/two.pl?internal=redirect');
return Apache::OK;

and two.pl:

my $r = shift;
$r->send_http_header('text/plain');
print "args is ", scalar $r->args, "\n";

I get the right results:

$ GET localhost/perl-bin/one.pl?main=request
args is internal=redirect

are you returning OK right after your internal redirect?  does setting 
$r->args() before calling the internal redirect to a third value 
change anything?

--Geoff




Mime
View raw message