version 1.1.1.12, 2000/11/04 19:19:48 |
version 3.38, 2000/11/02 17:34:35 |
|
|
# SUCH DAMAGE. |
# SUCH DAMAGE. |
# |
# |
# $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $ |
# $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $ |
# $kId: cvsweb.cgi,v 1.39 2000/11/04 15:32:17 knu Exp $ |
# $Id$ |
# |
# |
### |
### |
|
|
Line 1001 sub findLastModifiedSubdirs(@) { |
|
Line 1001 sub findLastModifiedSubdirs(@) { |
|
sub htmlify_sub(&$) { |
sub htmlify_sub(&$) { |
(my $proc, local $_) = @_; |
(my $proc, local $_) = @_; |
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
my $linked; |
my ($linked, $result); |
my $result = ''; |
|
|
|
while (($_, $linked) = splice(@_, 0, 2)) { |
while (($_, $linked) = splice(@_, 0, 2)) { |
&$proc(); |
&$proc(); |
$result .= $_ if defined($_); |
$result .= $_; |
$result .= $linked if defined($linked); |
$result .= $linked; |
} |
} |
|
|
$result; |
$result; |
Line 2640 sub navigateHeader($$$$$) { |
|
Line 2639 sub navigateHeader($$$$$) { |
|
$swhere = urlencode($filename) if ($swhere eq ""); |
$swhere = urlencode($filename) if ($swhere eq ""); |
print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">"; |
print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">"; |
print "<HTML>\n<HEAD>\n"; |
print "<HTML>\n<HEAD>\n"; |
print '<!-- CVSweb $zRevision: 1.104 $ $kRevision: 1.39 $ -->'; |
print '<!-- CVSweb $zRevision: 1.104 $ $Revision$ -->'; |
print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n"; |
print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n"; |
print "$body_tag_for_src\n"; |
print "$body_tag_for_src\n"; |
print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=1 bgcolor=\"$navigationHeaderColor\">"; |
print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=1 bgcolor=\"$navigationHeaderColor\">"; |
Line 3023 sub http_header(;$) { |
|
Line 3022 sub http_header(;$) { |
|
|
|
sub html_header($) { |
sub html_header($) { |
my ($title) = @_; |
my ($title) = @_; |
my $version = '$zRevision: 1.104 $ $kRevision: 1.39 $'; #' |
my $version = '$zRevision: 1.104 $ $Revision$'; #' |
http_header(); |
http_header(); |
print <<EOH; |
print <<EOH; |
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |