[llvm-commits] CVS: llvm-www/cvsweb/cvsweb.cgi

[Chris Lattner]

Changes in directory llvm-www/cvsweb:

cvsweb.cgi updated: 1.1 -> 1.2
---
Log message:

get this actually working with our version of perl and apache


---
Diffs of the changes:  (+13 -13)

 cvsweb.cgi |   26 +++++++++++++-------------
 1 files changed, 13 insertions(+), 13 deletions(-)


Index: llvm-www/cvsweb/cvsweb.cgi
diff -u llvm-www/cvsweb/cvsweb.cgi:1.1 llvm-www/cvsweb/cvsweb.cgi:1.2
--- llvm-www/cvsweb/cvsweb.cgi:1.1	Mon Nov  7 21:08:15 2005
+++ llvm-www/cvsweb/cvsweb.cgi	Tue Nov  8 00:58:41 2005
@@ -1,4 +1,4 @@
-#!/usr/dcs/software/supported/bin/perl -wT
+#!/usr/dcs/software/supported/bin/perl -w
 #
 # cvsweb - a CGI interface to CVS trees.
 #
@@ -46,7 +46,7 @@
 # SUCH DAMAGE.
 #
 # $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.119.2.6 2002/09/26 20:56:05 scop Exp $
-# $Id: cvsweb.cgi,v 1.1 2005/11/08 03:08:15 lattner Exp $
+# $Id: cvsweb.cgi,v 1.2 2005/11/08 06:58:41 lattner Exp $
 # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $
 #
 ###
@@ -2596,8 +2596,8 @@
 		if (defined($revsym{$br}) && $revsym{$br}
 		    && !defined($nameprinted{$br}))
 		{
-			foreach my $sym (split (", ", $revsym{$br})) {
-				print "<a name=\"$sym\"></a>";
+			foreach my $symx (split (", ", $revsym{$br})) {
+				print "<a name=\"$symx\"></a>";
 			}
 			$nameprinted{$br} = 1;
 		}
@@ -2725,13 +2725,13 @@
 		if ($revsym{$brp} && !/^1\.1\.1\.\d+$/
 		    && !defined($diffrev{$brp}))
 		{
-			my $url =
+			my $urlx =
 			    sprintf('%s.diff?r1=%s&r2=%s%s', $scriptwhere, $brp,
 				$_, $barequery);
 
 			print $diff, " to branchpoint ";
 			$diff = '';
-			printDiffLinks($brp, $url);
+			printDiffLinks($brp, $urlx);
 		}
 
 		#
@@ -2767,14 +2767,14 @@
 			if (!defined($diffrev{$nextmain})) {
 				$diffrev{$nextmain} = 1;
 
-				my $url =
+				my $urly =
 				    sprintf('%s.diff?r1=%s&r2=%s%s',
 					$scriptwhere, $nextmain, $_,
 					$barequery);
 
 				print $diff, " next main ";
 				$diff = '';
-				printDiffLinks($nextmain, $url);
+				printDiffLinks($nextmain, $urly);
 			}
 		}
 
@@ -2783,13 +2783,13 @@
 		if (defined($input{"r1"}) && !defined($diffrev{$input{"r1"}})) {
 			$diffrev{$input{"r1"}} = 1;
 
-			my $url =
+			my $urlz =
 			    sprintf('%s.diff?r1=%s&r2=%s%s', $scriptwhere,
 				$input{'r1'}, $_, $barequery);
 
 			print $diff, " to selected ";
 			$diff = '';
-			printDiffLinks($input{'r1'}, $url);
+			printDiffLinks($input{'r1'}, $urlz);
 		}
 
 	}
@@ -3497,13 +3497,13 @@
 	# Build a new query of non-default paramenters
 	$newquery = "";
 	foreach $var (@stickyvars) {
-		my ($value) = defined($vars{$var}) ? $vars{$var} : "";
+		my ($valuex) = defined($vars{$var}) ? $vars{$var} : "";
 		my ($default) =
 		    defined($DEFAULTVALUE{$var}) ? $DEFAULTVALUE{$var} : "";
 
-		if ($value ne $default) {
+		if ($valuex ne $default) {
 			$newquery .= "&" if ($newquery ne "");
-			$newquery .= urlencode($var) . "=" . urlencode($value);
+			$newquery .= urlencode($var) . "=" . urlencode($valuex);
 		}
 	}