[ic] Detecting a secure page
Joachim Schubert
joachim at schubis-dd.de
Wed Jun 14 03:44:27 EDT 2006
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
--
More information about the interchange-users
mailing list