[interchange-cvs] interchange - kwalsh modified
dist/src/mod_perl2/Interchange/Link.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Jun 28 10:39:42 EDT 2006
User: kwalsh
Date: 2006-06-28 14:39:41 GMT
Modified: dist/src/mod_perl2/Interchange Link.pm
Log:
* Pass "%ENV" to Interchange, along with the other HTTP environment
variables. "%ENV" contains the "HTTPS" variable, along with a
few others.
Revision Changes Path
1.10 +7 -4 interchange/dist/src/mod_perl2/Interchange/Link.pm
rev 1.10, prev_rev 1.9
Index: Link.pm
===================================================================
RCS file: /var/cvs/interchange/dist/src/mod_perl2/Interchange/Link.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- Link.pm 28 Mar 2006 17:02:47 -0000 1.9
+++ Link.pm 28 Jun 2006 14:39:41 -0000 1.10
@@ -2,7 +2,7 @@
# Interchange::Link -- mod_perl 1.99/2.0 module for linking to Interchange
#
-# $Id: Link.pm,v 1.9 2006/03/28 17:02:47 mheins Exp $
+# $Id: Link.pm,v 1.10 2006/06/28 14:39:41 kwalsh Exp $
#
# Copyright (C) 2002-2005 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -48,7 +48,7 @@
=head1 VERSION
-$Revision: 1.9 $
+$Revision: 1.10 $
=head1 SYNOPSIS
@@ -483,7 +483,6 @@
#warn("Connection=$c");
- my (@tmp) = keys %ENV;
my ($str);
my $val = '';
my $count = 0;
@@ -558,7 +557,6 @@
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";
@@ -572,11 +570,16 @@
QUERY_STRING => $query,
REMOTE_ADDR => $c->remote_ip,
%header,
+ %ENV,
);
+ my %seen;
+
while (@pairs) {
my $n = shift @pairs;
my $v = shift @pairs;
+ next if $seen{$n}++;
+
$count++;
$str = "$n=$v";
$val .= length($str);
More information about the interchange-cvs
mailing list