=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 1.11 retrieving revision 1.15 diff -u -p -r1.11 -r1.15 --- cvsweb/cvsweb.cgi 1997/11/15 16:48:07 1.11 +++ cvsweb/cvsweb.cgi 1998/04/05 10:20:37 1.15 @@ -36,6 +36,7 @@ require 'cgi-style.pl'; 'freebsd', '/home/ncvs', 'openbsd', '/home/OpenBSD/cvs', 'learn', '/c/learncvs', + 'mozilla', '/a/mozilla-cvs', ); $cvstreedefault = 'freebsd'; @@ -76,7 +77,6 @@ $scriptname =~ s|/$||; $scriptwhere = $scriptname . '/' . $where; $scriptwhere =~ s|/$||; - if ($query = $ENV{'QUERY_STRING'}) { foreach (split(/&/, $query)) { s/%(..)/sprintf("%c", hex($1))/ge; # unquote %-quoted @@ -102,8 +102,9 @@ if ($input{'cvsroot'}) { do "$config-$cvstree" if -f "$config-$cvstree"; $fullname = $cvsroot . '/' . $where; + if (!-d $cvsroot) { - &fatal("500 Internal Error",'$CVSROOT not found!'); + &fatal("500 Internal Error",'$CVSROOT not found!
The server on which the CVS tree lives is probably down. Please try again in a few minutes.');
}
@@ -130,6 +131,7 @@ if (-d $fullname) {
last lookingforattic;
}
}
+ $haveattic = 1 if ($i <= $#dir);
if (!$input{"showattic"} && ($i <= $#dir) &&
opendir(DIR, $fullname . "/Attic")) {
splice(@dir, $i, 1,
@@ -155,13 +157,14 @@ if (-d $fullname) {
# &link("Directory-wide diffs", $scriptwhere . '/*'), "
";
} elsif (-d $fullname . "/" . $_) {
print " ",
- &link($_ . "/", $scriptwhere . '/' . $_ . '/' . $query), $attic, "
";
+ &link($_ . "/", $scriptwhere . '/' . $_ . '/' . $query),
+ $attic, "
";
} elsif (s/,v$//) {
# TODO: add date/time? How about sorting?
print " ",
&link($_, $scriptwhere . '/' .
($attic ? "Attic/" : "") . $_ . $query),
- $attic, "
";
+ $attic, "
";
}
}
print "\n";
@@ -177,15 +180,17 @@ if (-d $fullname) {
}
$formwhere = $scriptwhere;
$formwhere =~ s|Attic/?$|| if ($input{"showattic"});
- print "