version 1.1.1.13, 2000/12/07 12:45:50 |
version 1.1.1.14, 2000/12/07 15:16:31 |
|
|
# 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.41 2000/12/06 18:19:12 knu Exp $ |
# $kId: cvsweb.cgi,v 1.42 2000/12/07 15:11:24 knu Exp $ |
# |
# |
### |
### |
|
|
Line 1052 sub htmlify($;$) { |
|
Line 1052 sub htmlify($;$) { |
|
\#?) |
\#?) |
(\d+)\b |
(\d+)\b |
}{ |
}{ |
$1 . &link($2, sprintf($prcgi, $2)) . $3 |
$1 . &link($2, sprintf($prcgi, $2)) |
}egix; |
}egix; |
} $_; |
} $_; |
} while ($_ ne $prev); |
} while ($_ ne $prev); |
Line 1061 sub htmlify($;$) { |
|
Line 1061 sub htmlify($;$) { |
|
s{ |
s{ |
(\b$prcategories/(\d+)\b) |
(\b$prcategories/(\d+)\b) |
}{ |
}{ |
&link($1, sprintf($prcgi, $2)) . $3 |
&link($1, sprintf($prcgi, $2)) |
}egox; |
}egox; |
} $_; |
} $_; |
} |
} |
Line 1078 sub htmlify($;$) { |
|
Line 1078 sub htmlify($;$) { |
|
) |
) |
) |
) |
}{ |
}{ |
&link($1, sprintf($mancgi, $3 ne '' ? $3 : $4, $2)) . $5 |
&link($1, sprintf($mancgi, $3 ne '' ? $3 : $4, $2)) |
}egx; |
}egx; |
} $_; |
} $_; |
} |
} |
|
|
($branch = $revwanted) =~ s/\.0\././; |
($branch = $revwanted) =~ s/\.0\././; |
($branchpoint = $branch) =~ s/\.?\d+$//; |
($branchpoint = $branch) =~ s/\.?\d+$//; |
$revwanted = undef if ($revwanted ne $branch); |
$revwanted = undef if ($revwanted ne $branch); |
#print "\n[revwanted=$revwanted]"; |
|
} elsif ($tag ne "HEAD") { |
} elsif ($tag ne "HEAD") { |
print "Tag not found, skip this file" if ($verbose); |
print "Tag not found, skip this file" if ($verbose); |
$state = "skip"; |
$state = "skip"; |
Line 2642 sub navigateHeader($$$$$) { |
|
Line 2641 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.41 $ -->'; |
print '<!-- CVSweb $zRevision: 1.104 $ $kRevision: 1.42 $ -->'; |
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 3025 sub http_header(;$) { |
|
Line 3024 sub http_header(;$) { |
|
|
|
sub html_header($) { |
sub html_header($) { |
my ($title) = @_; |
my ($title) = @_; |
my $version = '$zRevision: 1.104 $ $kRevision: 1.41 $'; #' |
my $version = '$zRevision: 1.104 $ $kRevision: 1.42 $'; #' |
http_header($charset ne "" ? "text/html; charset=$charset" : "text/html"); |
http_header(defined($charset) ? "text/html; charset=$charset" : "text/html"); |
print <<EOH; |
print <<EOH; |
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |
"http://www.w3.org/TR/REC-html40/loose.dtd"> |
"http://www.w3.org/TR/REC-html40/loose.dtd"> |