[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