Accessing environment variables prior to invoking the contenthandler.

2003-07-31 Thread Mark Deepak Puttnam 
Hi Group,

I have a need to access all the %ENV (cgi,mod_perl sent by the client)
variables prior to invoking the content handler. I am using the modperl
environment by running the cgi scripts under Perl::Registry. I wish to
use the PerlTransHandler to check if the request for page A has
orginated from page B. If it did then redirect to page C.

I have used the following code in the in my handler and I still do not
get the values. This was recommended by the Writing Apache Modules by
Doug M and Lincoln S. 

sub handler {
my $r=shift;
my $env=$r-subprocess_env;
   %ENV=%$senv;

my $referer=$ENV{'HTTP_REFERER'}; 
  
   
   x


}


Thank you for the help in advance.


Mark

Re: Accessing environment variables prior to invoking the contenthandler.

2003-07-31 Thread Perrin Harkins 
On Thu, 2003-07-31 at 15:44, Mark Deepak Puttnam wrote:
 I have used the following code in the in my handler and I still do not
 get the values.

Do you get anything at all?  HTTP_REFERER is not always sent by
browsers.

- Perrin

Re: Accessing environment variables prior to invoking the contenthandler.

2003-07-31 Thread Perrin Harkins 
On Thu, 2003-07-31 at 15:44, Mark Deepak Puttnam wrote:
 sub handler {
 my $r=shift;
 my $env=$r-subprocess_env;
%ENV=%$senv;
 
 my $referer=$ENV{'HTTP_REFERER'}; 
   

x
 
 
 }

Come to think of it, you should just use the Apache API for this:

my $referer = $r-header_in(Referer);

- Perrin

Accessing environment variables prior to invoking the contenthandler.

2003-07-31 Thread Mark Puttnam 
I did not have that directive in my config before. But now,I set it
explicitly to PerlSetupEnv On , still no env variables other than the
PERL_SEND_HEADER=On.

Mark