Error

=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- cvsweb/cvsweb.cgi 1997/02/03 15:14:22 1.3 +++ cvsweb/cvsweb.cgi 1997/02/03 20:47:12 1.4 @@ -366,7 +366,18 @@ if (-d $fullname) { for ($i = 0; $i <= $#revorder; $i++) { $_ = $revorder[$i]; - print "\n"; + print ""; + foreach $sym (split(", ", $revsym{$_})) { + print ""; + } + ($br = $_) =~ s/\.\d+$//; + if ($revsym{$br} && !$nameprinted{$br}) { + foreach $sym (split(", ", $revsym{$br})) { + print ""; + } + $nameprinted{$br}++; + } + print "\n"; # print "RCS revision $_\n"; print "$_"; if (/^1\.1\.1\.\d+$/) { @@ -381,7 +392,7 @@ if (-d $fullname) { # print "CVS Tags: $revsym{$_}
\n"; print "
CVS Tags: $revsym{$_}"; } - if (($br = $_) =~ s/\.\d+$// && $revsym{$br}) { + if ($revsym{$br}) { # print "Branch: $revsym{$br}
\n"; if ($revsym{$_}) { print "; "; @@ -458,6 +469,14 @@ if (-d $fullname) { print &html_footer; print "\n"; } else { + # Is there an indexed version of modules? + if (open(MODULES, "$cvsroot/CVSROOT/modules")) { + while () { + if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1") { + &redirect($scriptname . '/' . $1); + } + } + } &fatal("404 Not Found","$where: no such file or directory"); } @@ -500,5 +519,15 @@ sub fatal { print "\n"; print "Error\n"; print "Error: $errmsg\n"; + exit(1); +} + +sub redirect { + local($url) = @_; + print "Status: 301 Moved\n"; + print "Location: $url\n"; + print "\n"; + print "Moved\n"; + print "This document is located here.\n"; exit(1); }