-This is a WWW interface for CVS repositories.
-You can browse the file hierarchy by following directory links (which
-have slashes after them, e.g. src/).
-If you follow a link to a file, you will see its revision history.
-Following a link labeled with a revision number will display that
-revision of the file. In the revision history view, there is a link
-near each revision to display diffs between that revision and the
-previous one, and a form at the bottom of the page that allows you to
-display diffs between arbitrary revisions.
-
-This script has been written by Bill Fenner and improved by Henner Zeller,
-Henrik Nordström, and Ken Coar, then Akinori MUSHA brought it
-back to FreeBSD community and made further improvements; it is covered
-by The BSD License.
-
-If you would like to use this CGI script on your own web server and
-CVS tree, download the latest version from
-<http://cvsweb.bsd.lv/>.
-
-EOT
-
-$short_instruction = <
-Click on a directory to enter that directory. Click on a file to display
-its revision history and to get a chance to display diffs between revisions.
-
-EOT
-
-# Icons for the web UI. If ICON-URL is empty, the TEXT representation is
-# used. If you do not want to have a tool tip for an icon, set TEXT empty.
-# The width and height of the icon allow the browser to correctly display
-# the table while still loading the icons. If these icons are too large,
-# check out the "mini" versions in the icons/ directory; they have a
-# width/height of 16/16.
-#
+# Icons for the web UI.
my $iconsdir = '/icons';
-# format: TEXT ICON-URL width height
-%ICONS = (
- back => [('[BACK]', "$iconsdir/back.gif", 20, 22)],
- dir => [('[DIR]', "$iconsdir/dir.gif", 20, 22)],
- file => [('[TXT]', "$iconsdir/text.gif", 20, 22)],
- binfile => [('[BIN]', "$iconsdir/binary.gif", 20, 22)],
-);
-undef $iconsdir;
-
# An URL where to find the CSS.
#
$cssurl = '/css/cvsweb.css';
@@ -214,10 +135,6 @@ $shortLogLen = 80;
#
$show_author = 1;
-# Cell padding for directory table.
-#
-$tablepadding = 2;
-
# Regular expressions for files and directories which should be hidden.
# Each regexp is compared against a path relative to a CVS root, after
# stripping the trailing ",v" if present. Matching files and directories
@@ -251,11 +168,6 @@ $use_descriptions = 0;
#
$hr_breakable = 1;
-# Print function names in diffs (unified and context only).
-# See the -p option in the diff(1) man page.
-#
-$showfunc = 1;
-
# Ignore whitespace in human readable diffs? ('-w' option to diff)
#
$hr_ignwhite = 0;
@@ -265,33 +177,7 @@ $hr_ignwhite = 0;
#
$hr_ignkeysubst = 1;
-# The width of the textinput of the "request diff" form.
#
-$inputTextSize = 12;
-
-# Custom per MIME type diff tools, used for comparing binary files such as
-# spreadsheets, images etc. Each key is a MIME type in lowercase.
-# Each value is an array ref of available diff tools for that type, each of
-# which is a hash ref with values (mandatory where default not listed):
-# name: the name to show in the UI for this diff type
-# cmd: full path to executable
-# args: arguments as an array ref (not string!, defaults to no arguments)
-# type: output MIME type (defaults to text/plain)
-#
-%DIFF_COMMANDS = (
- #'text/xml' => [
- # { name => 'XMLdiff',
- # cmd => $CMD{xmldiff},
- # },
- # { name => 'XMLdiff (XUpdate)',
- # cmd => $CMD{xmldiff},
- # args => [ qw(-x) ],
- # type => 'text/xml',
- # },
- #],
-);
-
-#
# Mime types
#
@@ -324,28 +210,6 @@ $inputTextSize = 12;
#
$mime_types = '/conf/mime.types';
-# Charset appended to the Content-Type HTTP header for text/* MIME types.
-# Note that the web server may default to some charset which may take effect
-# if you leave this parameter empty or unset.
-# For Apache, see also the AddDefaultCharset directive.
-#
-$charset = '';
-
-# e.g.
-#$charset = $where =~ m,/ru[/_-], ? 'koi8-r'
-# : $where =~ m,/zh[/_-], ? 'big5'
-# : $where =~ m,/ja[/_-], ? 'x-euc-jp'
-# : $where =~ m,/ko[/_-], ? 'x-euc-kr'
-# : 'iso-8859-1';
-
-# Output filter
-#
-$output_filter = '';
-
-# e.g.
-## unify/convert Japanese code into EUC-JP
-#$output_filter= '/usr/local/bin/nkf -e';
-
##############
# Misc
##############
@@ -418,13 +282,6 @@ $show_log_in_markup = 1;
#
#$tabstop = 4;
-# If you wish to display absolute times in your local timezone,
-# then define @mytz and fill in the strings for your standard and
-# daylight time. Note that you must also make sure the system
-# timezone is correctly set.
-#
-#@mytz=("EST", "EDT");
-
# CVSweb is friendly to caches by sending the HTTP Last-Modified
# header corresponding to the sent content. In the case of a
# checkout, this may require running rcslog on the file solely for the
@@ -434,25 +291,20 @@ $show_log_in_markup = 1;
$use_moddate = 1;
# Maximum number of filenames to pass to rlog(1) in one command.
-# If you see "Failed to spawn GNU rlog" errors with directories containing
+# If you see "Failed to spawn rlog" errors with directories containing
# lots of files, experiment by setting this to different values and see if
# the error still occurs. A good value to start from would be eg. 200.
# Just comment this out if you're not bitten by the problem.
#
#$file_list_len = 200;
-# URL to the CVSHistory script. This should be absolute (but does not need
-# to include the host and port if the script is on the same server as
-# CVSweb).
-#$cvshistory_url = "/cgi-bin/cvshistory.cgi";
-
-# Whether to allow downloading a tarball or a zip of the current directory.
+# Whether to allow downloading a tarball of the current directory.
# While downloading of the entire repository is disallowed, depending on
# the directory this may take a lot of time and disk space. For some CVS
# versions, the user account running CVSweb needs write access to
-# CVSROOT/val-tags. See also the tar, gzip and zip options below.
+# CVSROOT/val-tags. See also the tar options below.
#
-#$allow_tar = (($CMD{tar} && $CMD{gzip}) || $CMD{zip}) ? 1 : 0;
+$allow_tar = 0;
# Options to pass to tar(1).
# For example: @tar_options = qw(--ignore-failed-read);
@@ -462,20 +314,6 @@ $use_moddate = 1;
#
@tar_options = qw();
-# Options to pass to gzip(1) when compressing a tarball to download.
-# For example: @gzip_options = qw(-3);
-# Try lower compression level than 6 (default) if you want faster
-# compression, or higher for better compression.
-#
-@gzip_options = qw();
-
-# Options to pass to zip(1) when compressing a zip archive to download.
-# For example: @zip_options = qw(-3);
-# Try lower compression level than 6 (default) if you want faster
-# compression, or higher for better compression.
-#
-@zip_options = qw(-q);
-
# Options to pass to cvs(1).
# For cvs versions 1.11 to 1.11.6 (broken in < 1.11, removed in 1.11.7), you
# can use the '-l' option to prevent cvs from writing to the history file.
@@ -484,14 +322,12 @@ $use_moddate = 1;
# can read and write to CVSROOT/history.
# FreeBSD's and OpenBSD's cvs(1) has long since supported -R (read only access
# mode) option, which considerably speeds up checkouts over NFS. For other
-# platforms, the -R option and the CVSREADONLYFS environment variable are
-# available in cvs >= 1.12.1. A similar effect is provided by -u on NetBSD.
+# platforms, the -R option is available in cvs >= 1.12.1.
+# A similar effect is provided by -u on NetBSD.
#
@cvs_options = qw(-f);
push @cvs_options, '-R' if ($^O eq 'freebsd' || $^O eq 'openbsd');
push @cvs_options, '-u' if ($^O eq 'netbsd');
-# Only affects cvs >= 1.12.1, but doesn't hurt older ones.
-$ENV{CVSREADONLYFS} = 1 unless exists($ENV{CVSREADONLYFS});
# Options to pass to the 'cvs annotate' command, usually the normal
# @cvs_options are good enough here.
@@ -510,23 +346,6 @@ $ENV{CVSREADONLYFS} = 1 unless exists($ENV{CVSREADONLY
# this should be set to 0 or commented out.
#
#$DEBUG = 1;
-
-# Enable this to let CVSweb load extra configuration files from the "conf.d"
-# subdirectory of the directory this file is located in. This enables site
-# specific configuration without having to modify this "master" configuration
-# file (except for enabling this functionality below :)
-#
-if (0) {
- my $confdir = catdir(dirname(__FILE__), 'conf.d');
- if (opendir(CONFD, $confdir)) {
- my @files = sort(map(catfile($confdir, $_), readdir(CONFD)));
- close(CONFD);
- for my $conffile (grep(-f && -r _, @files)) {
- ($conffile) = ($conffile =~ /(.+\.conf)$/) or next;
- do "$conffile" or config_error($conffile, $@);
- }
- }
-}
1;