-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';
@@ -217,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
@@ -254,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;
@@ -268,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
#
@@ -412,10 +295,6 @@ $show_log_in_markup = 1;
# multibyte character. (such as iso-2022-jp, ShiftJIS, etc.)
# Otherwise those files will get screwed up in markup.
#
-# Note: enscript(1) highlighting is preferred over the built-in preformatting,
-# ie. this has no effect if $allow_enscript is true and enscript can highlight
-# the file.
-#
#$preformat_in_markup = 1;
# Default tab width used to expand tabs to spaces in various HTMLized views.
@@ -425,13 +304,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
@@ -441,25 +313,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);
@@ -469,20 +336,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.
@@ -491,14 +344,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.
@@ -512,87 +363,11 @@ $ENV{CVSREADONLYFS} = 1 unless exists($ENV{CVSREADONLY
#
@rcsdiff_options = qw(-q);
-# Enables syntax highlighting using GNU Enscript if set.
-# You will need GNU Enscript version 1.6.3 or newer for this to work.
-#
-#$allow_enscript = $CMD{enscript} ? 1 : 0;
-
-# Options to pass to enscript(1).
-# Do not set the -q, --language, -o or --highlight options here.
-# Most useful styles are probably emacs, emacs_verbose and msvc.
-#
-@enscript_options = qw(--style=emacs --color=1);
-
-# Enscript highlight rule to filename regex mappings. The set of useful
-# mappings depends on what highlight rules the system has installed.
-#
-%enscript_types =
- (
- 'ada' => qr/\.ad(s|b|a)$/o,
- 'asm' => qr/\.[Ss]$/o,
- 'awk' => qr/\.awk$/o,
- 'bash' => qr/\.(bash(_profile|rc)|inputrc)$/o,
- 'c' => qr/\.(c|h)$/o,
- 'changelog' => qr/^changelog$/io,
- 'cpp' => qr/\.(c\+\+|C|H|cpp|cc|cxx)$/o,
- 'csh' => qr/\.(csh(rc)?|log(in|out)|history)$/o,
- 'elisp' => qr/\.e(l|macs)$/o,
- 'fortran' => qr/\.[fF]$/o,
- 'haskell' => qr/\.(l?h|l?g)s$/o,
- 'html' => qr/\.x?html?$/o,
- 'idl' => qr/\.idl$/o,
- 'inf' => qr/\.inf$/io,
- 'java' => qr/\.java$/o,
- 'javascript' => qr/\.(js|pac)$/o,
- 'ksh' => qr/\.ksh$/o,
- 'm4' => qr/\.m4$/o,
- 'makefile' => qr/(GNU)?[Mm]akefile(?!\.PL\b)|\.(ma?ke?|am)$/o,
- 'matlab' => qr/\.m$/o,
- 'nroff' => qr/\.man$/o,
- 'pascal' => qr/\.p(as|p)?$/io,
- 'perl' => qr/\.p(m|(er)?l)$/io,
- 'postscript' => qr/\.e?ps$/io,
- 'python' => qr/\.py$/o,
- 'rfc' => qr/\b((rfc|draft)\..*\.txt)$/o,
- 'scheme' => qr/\.(scm|scheme)$/o,
- 'sh' => qr/\.sh$/o,
- 'skill' => qr/\.il$/o,
- 'sql' => qr/\.sql$/o,
- 'states' => qr/\.st$/o,
- 'synopsys' => qr/\.s(cr|yn(th)?)$/o,
- 'tcl' => qr/\.tcl$/o,
- 'tcsh' => qr/\.tcshrc$/o,
- 'tex' => qr/\.tex$/o,
- 'vba' => qr/\.vba$/o,
- 'verilog' => qr/\.(v|vh)$/o,
- 'vhdl' => qr/\.vhdl?$/o,
- 'vrml' => qr/\.wrl$/o,
- 'wmlscript' => qr/\.wmls(cript)?$/o,
- 'zsh' => qr/\.(zsh(env|rc)|z(profile|log(in|out)))$/o,
- );
-
# Troubleshooting: in case of problems, setting this to 1 will cause more
# error output into your web server error log. Under normal operation,
# 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;