===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 1.1.1.13
retrieving revision 1.1.1.14
diff -u -p -r1.1.1.13 -r1.1.1.14
--- cvsweb/cvsweb.cgi 2000/12/07 12:45:50 1.1.1.13
+++ cvsweb/cvsweb.cgi 2000/12/07 15:16:31 1.1.1.14
@@ -43,7 +43,7 @@
# SUCH DAMAGE.
#
# $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 $
#
###
@@ -1052,7 +1052,7 @@ sub htmlify($;$) {
\#?)
(\d+)\b
}{
- $1 . &link($2, sprintf($prcgi, $2)) . $3
+ $1 . &link($2, sprintf($prcgi, $2))
}egix;
} $_;
} while ($_ ne $prev);
@@ -1061,7 +1061,7 @@ sub htmlify($;$) {
s{
(\b$prcategories/(\d+)\b)
}{
- &link($1, sprintf($prcgi, $2)) . $3
+ &link($1, sprintf($prcgi, $2))
}egox;
} $_;
}
@@ -1078,7 +1078,7 @@ sub htmlify($;$) {
)
)
}{
- &link($1, sprintf($mancgi, $3 ne '' ? $3 : $4, $2)) . $5
+ &link($1, sprintf($mancgi, $3 ne '' ? $3 : $4, $2))
}egx;
} $_;
}
@@ -1819,7 +1819,6 @@ again:
($branch = $revwanted) =~ s/\.0\././;
($branchpoint = $branch) =~ s/\.?\d+$//;
$revwanted = undef if ($revwanted ne $branch);
-#print "\n[revwanted=$revwanted]";
} elsif ($tag ne "HEAD") {
print "Tag not found, skip this file" if ($verbose);
$state = "skip";
@@ -2642,7 +2641,7 @@ sub navigateHeader($$$$$) {
$swhere = urlencode($filename) if ($swhere eq "");
print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
print "\n\n";
- print '';
+ print '';
print "\n$path$filename - $title - $rev\n";
print "$body_tag_for_src\n";
print "";
@@ -3025,8 +3024,8 @@ sub http_header(;$) {
sub html_header($) {
my ($title) = @_;
- my $version = '$zRevision: 1.104 $ $kRevision: 1.41 $'; #'
- http_header($charset ne "" ? "text/html; charset=$charset" : "text/html");
+ my $version = '$zRevision: 1.104 $ $kRevision: 1.42 $'; #'
+ http_header(defined($charset) ? "text/html; charset=$charset" : "text/html");
print <