RE: AuthCookie solution

[Geoffrey Young]

> -Original Message-
> From: Michael [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, November 15, 2000 10:20 PM
> To: [EMAIL PROTECTED]
> Subject: Re: AuthCookie solution
> 
> 
> a little off the subject, but close.
> 
> it the pointer for login is a complete URL ie http://foo.com/login.pl
> then the $r->prev-args; seem to get lost. There is real application 
> for this sort of thing and I would like to figure out how to make it 
> work. Any ideas why it does not?

$r->prev() only knows about the previous internal redirect.
$r->header_out(Location => 'http://foo.com/login.pl'); 
results in a full redirect (ie a new request)

as an aside, I've found it safer to when using $r->prev to code like

my $query = $r->prev ? $r->prev->args : $r->args;

because $r->prev is undefined on $r->is_initial_req() which leads to runtime
errors
(beware of my $x if 0 coding, too :)

depends on your situation, though - YMMV...

--Geoff

> 
> Michael
> [EMAIL PROTECTED]
> 

Re: AuthCookie solution

[Michael]

> At 04:19 PM 11/15/00 -0500, Charles Day wrote:
> ># We added the line below to AuthCookie.pm
> 
> >$r->header_out("Location" => $args{'destination'}.$args{'args'});
> 
> Why pass a new argument?  Can't you just add the query string onto
> the destination field in your login.pl script?
> 
> Something like the untested:
> 
> my $uri   = $r->prev->uri;
> my $query = $r->prev->args;
> $uri  = "$uri?$query" if $query;
> 

a little off the subject, but close.

it the pointer for login is a complete URL ie http://foo.com/login.pl
then the $r->prev-args; seem to get lost. There is real application 
for this sort of thing and I would like to figure out how to make it 
work. Any ideas why it does not?

Michael
[EMAIL PROTECTED]

Re: AuthCookie solution

[Bill Moseley]

At 04:19 PM 11/15/00 -0500, Charles Day wrote:
># We added the line below to AuthCookie.pm

>$r->header_out("Location" => $args{'destination'}.$args{'args'});

Why pass a new argument?  Can't you just add the query string onto the
destination field in your login.pl script?

Something like the untested:

my $uri   = $r->prev->uri;
my $query = $r->prev->args;
$uri  = "$uri?$query" if $query;

print qq[];



Bill Moseley
mailto:[EMAIL PROTECTED]