[interchange-cvs] interchange - heins modified scripts/interchange.PL

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2002-02-07 02:15:21 GMT
Modified:  scripts  interchange.PL
Log:
	* Prevent $::Pragma stuff from persisting in PreFork mode. I don't
	  know what to do about $::Variable -- perhaps

		my %hash;
		tie '%hash', 'Tie::ShadowHash', $Vend::Cfg->{Variable};
	  	$Vend::Interpolate::Variable = \%hash;

	  but I don't know. It does explain one or two things, though.

	* Obviously not a problem in forking mode.

Revision  Changes    Path
2.23      +9 -3      interchange/scripts/interchange.PL


rev 2.23, prev_rev 2.22
Index: interchange.PL
===================================================================
RCS file: /anon_cvs/repository/interchange/scripts/interchange.PL,v
retrieving revision 2.22
retrieving revision 2.23
diff -u -r2.22 -r2.23
--- interchange.PL	5 Feb 2002 20:57:04 -0000	2.22
+++ interchange.PL	7 Feb 2002 02:15:21 -0000	2.23
@@ -50,7 +50,7 @@
 #
 # Interchange version 4.9.0
 #
-# $Id: interchange.PL,v 2.22 2002/02/05 20:57:04 mheins Exp $
+# $Id: interchange.PL,v 2.23 2002/02/07 02:15:21 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -645,6 +645,12 @@
 
 	while (($key, $value) = each %CGI::values) {
 		next unless defined $data{$key};
+		if($CGI::values{"mv_data_prep_$key"}) {
+			$value = Vend::Interpolate::filter_value(
+						 $CGI::values{"mv_data_prep_$key"},
+						 $value
+						 );
+		}
 		$count = (@{$data{$key}} = split /\0/, $value, -1);
 		$max = $count, $maxname = $key if $count > $max;
 		$min = $count, $minname = $key if $count < $min;
@@ -835,7 +841,7 @@
 # LEGACY
 			HTML::Entities::decode($value) if $decode;
 # END LEGACY
-			if(defined $CGI::values{"mv_data_filter_$_"}) {
+			if($CGI::values{"mv_data_filter_$_"}) {
 				$value = Vend::Interpolate::filter_value(
 							 $CGI::values{"mv_data_filter_$_"},
 							 $value,
@@ -1835,7 +1841,7 @@
 			unless $Vend::Cfg->{Static};
 	}
 	$::Variable = $Vend::Cfg->{Variable};
-	$::Pragma   = $Vend::Cfg->{Pragma};
+	$::Pragma   = { %{ $Vend::Cfg->{Pragma} } };
 
 	if (defined $Global::SelectorAlias{$CGI::script_name}
 		and ! defined $Vend::InternalHTTP                 )