[ic] Detecting a secure page

[Joachim Schubert]

On Wed, Jun 14, 2006 at 12:40:30AM +0100, Kevin Walsh wrote:
> Grant <emailgrant at gmail.com> wrote:
> > I can confirm those results on my Apache2+Interchange::Link setup.
> > 
> I haven't tested this, but I've been looking at the Interchange::Link
> code and may have a lead.
> 
> Backup your Link.pm module and try the following patch:
> 
> *** Link.pm-    Wed Jun 14 00:37:36 2006
> --- Link.pm     Wed Jun 14 00:39:13 2006
> ***************
> *** 483,489 ****
> 
>   #warn("Connection=$c");
> 
> -     my (@tmp) = keys %ENV;
>       my ($str);
>       my $val = '';
>       my $count = 0;
> --- 483,488 ----
> ***************
> *** 558,564 ****
>           my $val = $r->headers_in->{$_};
>           my $k = uc $_;
>           $k =~ s/-/_/g;
> -         $k =~ s/-/_/g;
>           $k = $header_map{$k} || "HTTP_$k";
>           $header{$k} = $val;
>   #warn "header $_/$k=$val\n";
> --- 557,562 ----
> ***************
> *** 572,577 ****
> --- 570,576 ----
>           QUERY_STRING    => $query,
>           REMOTE_ADDR     => $c->remote_ip,
>           %header,
> +         %ENV,
>       );
> 
>       while (@pairs) {
> 

Tried your patch and it's looking good. Now i have got a little more env 
variables, especially HTTPS. [env] returns now:
----start----
SCRIPT_NAME
PATH_INFO
PERL_LWP_USE_HTTP_10
HTTP_ACCEPT
REQUEST_METHOD
SCRIPT_FILENAME
SERVER_SOFTWARE
REMOTE_PORT
HTTP_USER_AGENT
QUERY_STRING
SERVER_SIGNATURE
HTTP_ACCEPT_LANGUAGE
CONTENT_TYPE
HTTP_KEEP_ALIVE
PATH
MOD_PERL_API_VERSION
GATEWAY_INTERFACE
IFS
HTTPS
DOCUMENT_ROOT
PATH_TRANSLATED
UNIQUE_ID
SERVER_NAME
HTTP_REFERER
SERVER_ADMIN
HTTP_ACCEPT_ENCODING
HARNESS_VERSION
HTTP_CONNECTION
CONTENT_LENGTH
HARNESS_ACTIVE
HTTP_ACCEPT_CHARSET
SERVER_PORT
HTTP_COOKIE
REMOTE_ADDR
SERVER_PROTOCOL
REQUEST_URI
SERVER_ADDR
APACHE_TEST_HTTP_09_OK
HTTP_HOST
MOD_PERL
-----end-----

There are disadvantages with this patched Link.pm ? 

Achim
--