version 1.1.1.24, 2001/03/27 17:24:25 |
version 1.1.1.26, 2001/06/05 10:56:15 |
|
|
# SUCH DAMAGE. |
# SUCH DAMAGE. |
# |
# |
# $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $ |
# $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $ |
# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 knu Exp $ |
# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.74 2001/06/05 04:46:21 knu Exp $ |
# |
# |
### |
### |
|
|
Line 140 sub forbidden_module($); |
|
Line 140 sub forbidden_module($); |
|
delete $ENV{PATH}; |
delete $ENV{PATH}; |
|
|
$cvsweb_revision = '1.106' . '.' . (split(/ /, |
$cvsweb_revision = '1.106' . '.' . (split(/ /, |
q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 knu Exp $ |
q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.74 2001/06/05 04:46:21 knu Exp $ |
))[2]; |
))[2]; |
|
|
use File::Basename; |
use File::Basename; |
Line 748 if (-d $fullname) { |
|
Line 748 if (-d $fullname) { |
|
else { |
else { |
print &link($backicon, $url); |
print &link($backicon, $url); |
} |
} |
print " ", &link("Previous Directory", $url); |
print " ", &link("Parent Directory", $url); |
} |
} |
else { |
else { |
$url = './' . urlencode($_) . "/$query"; |
$url = './' . urlencode($_) . "/$query"; |
Line 1106 sub findLastModifiedSubdirs(@) { |
|
Line 1106 sub findLastModifiedSubdirs(@) { |
|
|
|
sub htmlify_sub(&$) { |
sub htmlify_sub(&$) { |
(my $proc, local $_) = @_; |
(my $proc, local $_) = @_; |
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
my @a = split(m`(<a [^>]+>[^<]*</a>)`i); |
my $linked; |
my $linked; |
my $result = ''; |
my $result = ''; |
|
|
while (($_, $linked) = splice(@_, 0, 2)) { |
while (($_, $linked) = splice(@a, 0, 2)) { |
&$proc(); |
&$proc(); |
$result .= $_ if defined($_); |
$result .= $_ if defined($_); |
$result .= $linked if defined($linked); |
$result .= $linked if defined($linked); |
Line 1776 sub doDiff($$$$$$) { |
|
Line 1776 sub doDiff($$$$$$) { |
|
|
|
while (($re1, $re2) = each %funcline_regexp) { |
while (($re1, $re2) = each %funcline_regexp) { |
if ($fullname =~ /$re1/) { |
if ($fullname =~ /$re1/) { |
push @difftype, '-F', '$re2'; |
push @difftype, '-F', $re2; |
last; |
last; |
} |
} |
} |
} |
Line 2668 sub human_readable_diff($){ |
|
Line 2668 sub human_readable_diff($){ |
|
|
|
if ($difftxt =~ /^@@/) { |
if ($difftxt =~ /^@@/) { |
($oldline,$newline,$funname) = $difftxt =~ /@@ \-([0-9]+).*\+([0-9]+).*@@(.*)/; |
($oldline,$newline,$funname) = $difftxt =~ /@@ \-([0-9]+).*\+([0-9]+).*@@(.*)/; |
|
$funname = htmlquote($funname); |
print "<tr bgcolor=\"$diffcolorHeading\"><td width=\"50%\">"; |
print "<tr bgcolor=\"$diffcolorHeading\"><td width=\"50%\">"; |
print "<table width=\"100%\" border=1 cellpadding=5><tr><td><b>Line $oldline</b>"; |
print "<table width=\"100%\" border=1 cellpadding=5><tr><td><b>Line $oldline</b>"; |
print " <font size=-1>$funname</font></td></tr></table>"; |
print " <font size=-1>$funname</font></td></tr></table>"; |
Line 2762 sub human_readable_diff($){ |
|
Line 2763 sub human_readable_diff($){ |
|
sub navigateHeader($$$$$) { |
sub navigateHeader($$$$$) { |
my ($swhere,$path,$filename,$rev,$title) = @_; |
my ($swhere,$path,$filename,$rev,$title) = @_; |
$swhere = "" if ($swhere eq $scriptwhere); |
$swhere = "" if ($swhere eq $scriptwhere); |
$swhere = './', urlencode($filename) if ($swhere eq ""); |
$swhere = './' . urlencode($filename) if ($swhere eq ""); |
|
|
print <<EOF; |
print <<EOF; |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> |