=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 1.1.1.25 retrieving revision 1.1.1.26 diff -u -p -r1.1.1.25 -r1.1.1.26 --- cvsweb/cvsweb.cgi 2001/05/07 17:19:27 1.1.1.25 +++ cvsweb/cvsweb.cgi 2001/06/05 10:56:15 1.1.1.26 @@ -43,7 +43,7 @@ # SUCH DAMAGE. # # $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $ -# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.71 2001/05/07 17:13:42 knu Exp $ +# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.74 2001/06/05 04:46:21 knu Exp $ # ### @@ -140,7 +140,7 @@ sub forbidden_module($); delete $ENV{PATH}; $cvsweb_revision = '1.106' . '.' . (split(/ /, - q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.71 2001/05/07 17:13:42 knu Exp $ + q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.74 2001/06/05 04:46:21 knu Exp $ ))[2]; use File::Basename; @@ -748,7 +748,7 @@ if (-d $fullname) { else { print &link($backicon, $url); } - print " ", &link("Previous Directory", $url); + print " ", &link("Parent Directory", $url); } else { $url = './' . urlencode($_) . "/$query"; @@ -1106,11 +1106,11 @@ sub findLastModifiedSubdirs(@) { sub htmlify_sub(&$) { (my $proc, local $_) = @_; - local @_ = split(m`(]+>[^<]*)`i); + my @a = split(m`(]+>[^<]*)`i); my $linked; my $result = ''; - while (($_, $linked) = splice(@_, 0, 2)) { + while (($_, $linked) = splice(@a, 0, 2)) { &$proc(); $result .= $_ if defined($_); $result .= $linked if defined($linked); @@ -2668,6 +2668,7 @@ sub human_readable_diff($){ if ($difftxt =~ /^@@/) { ($oldline,$newline,$funname) = $difftxt =~ /@@ \-([0-9]+).*\+([0-9]+).*@@(.*)/; + $funname = htmlquote($funname); print ""; print "
Line $oldline"; print " $funname
"; @@ -2762,7 +2763,7 @@ sub human_readable_diff($){ sub navigateHeader($$$$$) { my ($swhere,$path,$filename,$rev,$title) = @_; $swhere = "" if ($swhere eq $scriptwhere); - $swhere = './', urlencode($filename) if ($swhere eq ""); + $swhere = './' . urlencode($filename) if ($swhere eq ""); print <