os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add tags and branches to the list of things that get anchors, e.g.

Browse source 
you can also say things like #RELENG_2_2 or #RELENG_2_1_6_1_RELEASE

Allow specifying a module name, e.g. http://.../cvsweb.cgi/mrouted
will give you a redirect to .../cvsweb.cgi/src/usr.sbin/mrouted
This commit is contained in:
Bill Fenner 1997-02-03 20:47:12 +00:00
parent 2db504acb3
commit 81d2c6707f
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=1117
2 changed files with 62 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

33
data/cgi/cvsweb.cgi
View file

@ -366,7 +366,18 @@ if (-d $fullname) {
for ($i = 0; $i <= $#revorder; $i++) { for ($i = 0; $i <= $#revorder; $i++) {
$_ = $revorder[$i]; $_ = $revorder[$i];
print "<a NAME=\"rev$_\"></a>\n"; 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+$/) {
@ -381,7 +392,7 @@ 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 "; ";
@ -458,6 +469,14 @@ if (-d $fullname) {
print &html_footer; print &html_footer;
print "</BODY></HTML>\n"; print "</BODY></HTML>\n";
} else { } else {
# Is there an indexed version of modules?
if (open(MODULES, "$cvsroot/CVSROOT/modules")) {
while (<MODULES>) {
if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1") {
&redirect($scriptname . '/' . $1);
}
}
}
&fatal("404 Not Found","$where: no such file or directory"); &fatal("404 Not Found","$where: no such file or directory");
} }
@ -502,3 +521,13 @@ sub fatal {
print "<BODY>Error: $errmsg</BODY></HTML>\n"; print "<BODY>Error: $errmsg</BODY></HTML>\n";
exit(1); 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);
}

33
en/cgi/cvsweb.cgi
View file

@ -366,7 +366,18 @@ if (-d $fullname) {
for ($i = 0; $i <= $#revorder; $i++) { for ($i = 0; $i <= $#revorder; $i++) {
$_ = $revorder[$i]; $_ = $revorder[$i];
print "<a NAME=\"rev$_\"></a>\n"; 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+$/) {
@ -381,7 +392,7 @@ 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 "; ";
@ -458,6 +469,14 @@ if (-d $fullname) {
print &html_footer; print &html_footer;
print "</BODY></HTML>\n"; print "</BODY></HTML>\n";
} else { } else {
# Is there an indexed version of modules?
if (open(MODULES, "$cvsroot/CVSROOT/modules")) {
while (<MODULES>) {
if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1") {
&redirect($scriptname . '/' . $1);
}
}
}
&fatal("404 Not Found","$where: no such file or directory"); &fatal("404 Not Found","$where: no such file or directory");
} }
@ -502,3 +521,13 @@ sub fatal {
print "<BODY>Error: $errmsg</BODY></HTML>\n"; print "<BODY>Error: $errmsg</BODY></HTML>\n";
exit(1); 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);
}