self_url() w/o CGI in MP2

rkg has asked for the wisdom of the Perl Monks concerning the following question:

Hi. I'm using mod_perl 2, and I am trying to avoid loading CGI. Sans CGI, how can I determine self_url() to do a self-redirect? I tried this

        my $self_uri = APR::URI->parse($r->pool,$r->uri)->unparse;
        $r->headers_out->set(Location => $self_uri . "&r2=1");
        return Apache::REDIRECT;
[download]

but this gives a partial URL, not the full expansion. Any advice?
rkg

Comment on self_url() w/o CGI in MP2 Download Code

Replies are listed 'Best First'.
Re: self_url() w/o CGI in MP2 by tcf22 (Priest) on Sep 02, 2003 at 19:50 UTC
This works on my apache server `my $self_url = 'http://' . $ENV{SERVER_NAME} . $ENV{SCRIPT_NAME};` [download]	[reply] [d/l]
Re: Re: self_url() w/o CGI in MP2 by dragonchild (Archbishop) on Nov 21, 2003 at 14:22 UTC
Will that also give you the parameters passed in? I've got some reports that need to change the display parameter for various URLS, but leave all the other parameters the same ... Or, would I have to rebuild the parameter string myself? ------ We are the carpenters and bricklayers of the Information Age. The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6 ... strings and arrays will suffice. As they are easily available as native data types in any sane language, ... - blokhead, speaking on evolutionary algorithms Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.	[reply]
Re: Re: Re: self_url() w/o CGI in MP2 by tcf22 (Priest) on Nov 21, 2003 at 16:40 UTC
No, but if you are doing a GET, this shoud do it. `my $self_url = "http://$ENV{SERVER_NAME}/$ENV{SCRIPT_NAME}?$ENV{QUERY_ +STRING}";` [download] If you are doing a POST, then you'll have to read in STDIN to get your parameters. - Tom	[reply] [d/l]