===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 1.1.1.1
retrieving revision 3.8
diff -u -p -r1.1.1.1 -r3.8
--- cvsweb/cvsweb.cgi 2000/08/14 04:35:13 1.1.1.1
+++ cvsweb/cvsweb.cgi 2000/07/29 12:10:40 3.8
@@ -1,4 +1,4 @@
-#!/usr/bin/perl5 -ws
+#!/usr/bin/perl -ws
#
# cvsweb - a CGI interface to CVS trees.
#
@@ -42,7 +42,7 @@
# SUCH DAMAGE.
#
# $zId: cvsweb.cgi,v 1.93 2000/07/27 17:42:28 hzeller Exp $
-# $kId: cvsweb.cgi,v 1.11 2000/08/13 18:58:24 knu Exp $
+# $Id: cvsweb.cgi,v 3.8 2000/07/29 12:10:40 knu Exp $
#
###
@@ -80,16 +80,10 @@ use vars qw (
);
##### Start of Configuration Area ########
-use Cwd;
-
# == EDIT this ==
# User configuration is stored in
-$config = undef;
+$config = defined($ENV{CVSWEB_CONFIG}) ? $ENV{CVSWEB_CONFIG} : '/usr/local/etc/cvsweb.conf';
-for ($ENV{CVSWEB_CONFIG}, '/usr/local/etc/cvsweb.conf', getcwd . '/cvsweb.conf') {
- $config = $_ if -r $_;
-}
-
# == Configuration defaults ==
# Defaults for configuration variables that shouldn't need
# to be configured..
@@ -2336,7 +2330,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 "\n";
print "";
@@ -2690,7 +2684,7 @@ sub http_header {
sub html_header($) {
my ($title) = @_;
- my $version = '$zRevision: 1.93 $ $kRevision: 1.11 $';
+ my $version = '$Revision: 3.8 $';
http_header();
print <