> -----Original Message-----
> From: João Pedro Gonçalves [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, July 10, 2001 9:08 AM
> To: brian moseley
> Cc: [EMAIL PROTECTED]
> Subject: Re: detecting ssl
> 
> 
> This approach should be ok:
> 
> my $s = $r->lookup_uri($r->uri);
> my $ssl = $s->subprocess_env('HTTPS');       
> 
> I looked at this a while back and this is usually set internally
> in apache by the ssl implementation.

no need to do a lookup or rely on PerlSetupEnv On I wouldn't think...

my $ssl = Apache::URI->parse($r)->scheme =~ m/^https/;

?

--Geoff 

Reply via email to