version 1.2, 1996/09/29 02:19:30 |
version 1.6, 1997/04/30 07:35:11 |
Line 366 if (-d $fullname) { |
|
Line 366 if (-d $fullname) { |
|
|
|
for ($i = 0; $i <= $#revorder; $i++) { |
for ($i = 0; $i <= $#revorder; $i++) { |
$_ = $revorder[$i]; |
$_ = $revorder[$i]; |
|
print "<a NAME=\"rev$_\"></a>"; |
|
foreach $sym (split(", ", $revsym{$_})) { |
|
print "<a NAME=\"$sym\"></a>"; |
|
} |
|
($br = $_) =~ s/\.\d+$//; |
|
if ($revsym{$br} && !$nameprinted{$br}) { |
|
foreach $sym (split(", ", $revsym{$br})) { |
|
print "<a NAME=\"$sym\"></a>"; |
|
} |
|
$nameprinted{$br}++; |
|
} |
|
print "\n"; |
# print "RCS revision <b>$_</b>\n"; |
# print "RCS revision <b>$_</b>\n"; |
print "<A HREF=\"$scriptwhere?rev=$_\"><b>$_</b></A>"; |
print "<A HREF=\"$scriptwhere?rev=$_\"><b>$_</b></A>"; |
if (/^1\.1\.1\.\d+$/) { |
if (/^1\.1\.1\.\d+$/) { |
Line 380 if (-d $fullname) { |
|
Line 392 if (-d $fullname) { |
|
# print "CVS Tags: <b>$revsym{$_}</b><BR>\n"; |
# print "CVS Tags: <b>$revsym{$_}</b><BR>\n"; |
print "<BR>CVS Tags: <b>$revsym{$_}</b>"; |
print "<BR>CVS Tags: <b>$revsym{$_}</b>"; |
} |
} |
if (($br = $_) =~ s/\.\d+$// && $revsym{$br}) { |
if ($revsym{$br}) { |
# print "Branch: <b>$revsym{$br}</b><BR>\n"; |
# print "Branch: <b>$revsym{$br}</b><BR>\n"; |
if ($revsym{$_}) { |
if ($revsym{$_}) { |
print "; "; |
print "; "; |
Line 457 if (-d $fullname) { |
|
Line 469 if (-d $fullname) { |
|
print &html_footer; |
print &html_footer; |
print "</BODY></HTML>\n"; |
print "</BODY></HTML>\n"; |
} else { |
} else { |
&fatal("404 Not Found","$where: no such file or directory"); |
# Assume it's a module name with a potential path following it. |
|
$where =~ s|/.*||; |
|
$xtra = $&; |
|
# Is there an indexed version of modules? |
|
if (open(MODULES, "$cvsroot/CVSROOT/modules")) { |
|
while (<MODULES>) { |
|
if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1" && ($1 ne $where)) { |
|
&redirect($scriptname . '/' . $1 . $xtra); |
|
} |
|
} |
|
} |
|
&fatal("404 Not Found","$where$xtra: no such file or directory"); |
} |
} |
|
|
sub htmlify { |
sub htmlify { |
|
|
local(@r2) = split(/\./, $rev2); |
local(@r2) = split(/\./, $rev2); |
local($a,$b); |
local($a,$b); |
|
|
while (($a = pop(@r1)) && ($b = pop(@r2))) { |
while (($a = shift(@r1)) && ($b = shift(@r2))) { |
if ($a != $b) { |
if ($a != $b) { |
return $a <=> $b; |
return $a <=> $b; |
} |
} |
|
|
print "\n"; |
print "\n"; |
print "<HTML><HEAD><TITLE>Error</TITLE></HEAD>\n"; |
print "<HTML><HEAD><TITLE>Error</TITLE></HEAD>\n"; |
print "<BODY>Error: $errmsg</BODY></HTML>\n"; |
print "<BODY>Error: $errmsg</BODY></HTML>\n"; |
|
exit(1); |
|
} |
|
|
|
sub redirect { |
|
local($url) = @_; |
|
print "Status: 301 Moved\n"; |
|
print "Location: $url\n"; |
|
print "\n"; |
|
print "<HTML><HEAD><TITLE>Moved</TITLE></HEAD>\n"; |
|
print "<BODY>This document is located <A HREF=$url>here</A>.</BODY></HTML>\n"; |
exit(1); |
exit(1); |
} |
} |