===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 4.2
retrieving revision 4.5
diff -u -p -r4.2 -r4.5
--- cvsweb/cvsweb.cgi 2019/11/09 09:10:05 4.2
+++ cvsweb/cvsweb.cgi 2019/11/09 09:24:13 4.5
@@ -1,5 +1,5 @@
-#!/usr/bin/perl -T
-# $Id: cvsweb.cgi,v 4.2 2019/11/09 09:10:05 schwarze Exp $
+#!/usr/bin/perl
+# $Id: cvsweb.cgi,v 4.5 2019/11/09 09:24:13 schwarze Exp $
# $knu: cvsweb.cgi,v 1.299 2010/11/13 16:37:18 simon
#
# cvsweb - a CGI interface to CVS trees.
@@ -50,7 +50,6 @@
require 5.006;
use strict;
-
use warnings;
use filetest qw(access);
@@ -88,7 +87,6 @@ use vars qw (
);
use Cwd qw(abs_path);
-use File::Basename qw(dirname);
use File::Path qw(rmtree);
use File::Spec::Functions qw(canonpath catdir catfile curdir devnull rootdir
tmpdir updir);
@@ -204,23 +202,9 @@ sub checkout_to_temp($$$);
# (think mod_perl)...
delete(@ENV{qw(PATH IFS CDPATH ENV BASH_ENV)});
-my ($mydir) = (dirname($0) =~ /(.*)/); # untaint
+# Location of the configuration file inside the web server chroot:
+$config = '/conf/cvsweb/cvsweb.conf';
-##### Start of Configuration Area ########
-
-# == EDIT this ==
-# Locations to search for user configuration, in order:
-for (catfile($mydir, 'cvsweb.conf'), '/usr/local/etc/cvsweb/cvsweb.conf') {
- if (-r $_) {
- $config = $_;
- last;
- }
-}
-
-##### End of Configuration Area ########
-
-undef $mydir;
-
######## Configuration parameters #########
@CVSrepositories = @CVSROOT = %CVSROOT = %MIRRORS = %DEFAULTVALUE = %ICONS =
@@ -2934,7 +2918,7 @@ sub printLog($$$;$$)
print "
\n";
print '';
- if (defined @mytz) {
+ if (@mytz) {
my ($est) = $mytz[(localtime($date{$_}))[8]];
print scalar localtime($date{$_}), " $est (";
} else {