[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);
                }
        }
 



_______________________________________________
llvm-commits mailing list
llvm-commits@cs.uiuc.edu
http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits