version 4.12, 2019/11/26 11:28:43 |
version 4.24, 2019/11/29 18:33:24 |
|
|
# when no value for them has been explicitly set. |
# when no value for them has been explicitly set. |
# |
# |
|
|
# Set the path for the following commands: |
|
# cvs, rlog, rcsdiff |
|
# gzip (if you enable $allow_compress) |
|
# (g)tar, zip (if you enable $allow_tar) |
|
# |
|
@command_path = qw(/bin /usr/bin /usr/local/bin); |
|
|
|
# Search the above directories for each command (prefer gtar over tar). |
|
# |
|
for (qw(cvs rlog rcsdiff gzip gtar zip)) { |
|
$CMD{$_} = search_path($_); |
|
} |
|
$CMD{tar} = delete($CMD{gtar}) if $CMD{gtar}; |
|
$CMD{tar} ||= search_path('tar'); |
|
|
|
# CVS roots |
# CVS roots |
# |
# |
# CVSweb can handle several CVS repositories at once. Enter short (internal) |
# CVSweb can handle several CVS repositories at once. Enter short (internal) |
Line 57 $CMD{tar} ||= search_path('tar'); |
|
Line 42 $CMD{tar} ||= search_path('tar'); |
|
'local' => ['Local Repository', '/cvs'], |
'local' => ['Local Repository', '/cvs'], |
); |
); |
|
|
# The default CVS root. Note that @CVSrepositories is list, not a hash, |
|
# so you'll want to use 2 * 0-based-index-number here; or set this directly |
|
# to the default's symbolic name. Unless specified, the first valid one in |
|
# @CVSrepositories is used as the default. |
|
# |
|
# For example: |
|
# |
|
#$cvstreedefault = $CVSrepositories[2 * 0]; |
|
#$cvstreedefault = 'local'; |
|
|
|
# Mirror sites. The keys will be used as link texts, and the values are |
|
# URLs pointing to the corresponding mirrors. |
|
# |
|
#%MIRRORS = ( |
|
# 'Other location' => 'http://192.168.0.1/cgi-bin/cvsweb.cgi/', |
|
# 'Yet another one' => 'http://192.168.0.2/cgi-bin/cvsweb.cgi/', |
|
#); |
|
|
|
# Manual gateway linking. This will be done only for views for which |
# Manual gateway linking. This will be done only for views for which |
# $allow_*_extra below is true. |
# $allow_*_extra below is true. |
# |
# |
Line 152 $defaulttitle = "CVS Repository"; |
|
Line 119 $defaulttitle = "CVS Repository"; |
|
# |
# |
$address = '<span style="font-size: smaller">CVSweb</span>'; |
$address = '<span style="font-size: smaller">CVSweb</span>'; |
|
|
$long_intro = <<EOT; |
# Icons for the web UI. |
<p> |
|
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. <code>src/</code>). |
|
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. |
|
</p><p> |
|
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 <a |
|
href="http://www.opensource.org/licenses/bsd-license.html">The BSD License</a>. |
|
</p><p> |
|
If you would like to use this CGI script on your own web server and |
|
CVS tree, download the latest version from |
|
<<a href="http://cvsweb.bsd.lv/">http://cvsweb.bsd.lv/</a>>. |
|
</p> |
|
EOT |
|
|
|
$short_instruction = <<EOT; |
|
<p> |
|
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. |
|
</p> |
|
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. |
|
# |
|
my $iconsdir = '/icons'; |
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. |
# An URL where to find the CSS. |
# |
# |
$cssurl = '/css/cvsweb.css'; |
$cssurl = '/css/cvsweb.css'; |
Line 214 $shortLogLen = 80; |
|
Line 135 $shortLogLen = 80; |
|
# |
# |
$show_author = 1; |
$show_author = 1; |
|
|
# Cell padding for directory table. |
|
# |
|
$tablepadding = 2; |
|
|
|
# Regular expressions for files and directories which should be hidden. |
# Regular expressions for files and directories which should be hidden. |
# Each regexp is compared against a path relative to a CVS root, after |
# Each regexp is compared against a path relative to a CVS root, after |
# stripping the trailing ",v" if present. Matching files and directories |
# stripping the trailing ",v" if present. Matching files and directories |
Line 251 $use_descriptions = 0; |
|
Line 168 $use_descriptions = 0; |
|
# |
# |
$hr_breakable = 1; |
$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) |
# Ignore whitespace in human readable diffs? ('-w' option to diff) |
# |
# |
$hr_ignwhite = 0; |
$hr_ignwhite = 0; |
Line 265 $hr_ignwhite = 0; |
|
Line 177 $hr_ignwhite = 0; |
|
# |
# |
$hr_ignkeysubst = 1; |
$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 |
# Custom per MIME type diff tools, used for comparing binary files such as |
# spreadsheets, images etc. Each key is a MIME type in lowercase. |
# 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 |
# Each value is an array ref of available diff tools for that type, each of |
Line 427 $show_log_in_markup = 1; |
|
Line 335 $show_log_in_markup = 1; |
|
$use_moddate = 1; |
$use_moddate = 1; |
|
|
# Maximum number of filenames to pass to rlog(1) in one command. |
# 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 |
# 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. |
# 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. |
# Just comment this out if you're not bitten by the problem. |
# |
# |
#$file_list_len = 200; |
#$file_list_len = 200; |
|
|
# 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 |
# 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 |
# 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 |
# 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). |
# Options to pass to tar(1). |
# For example: @tar_options = qw(--ignore-failed-read); |
# For example: @tar_options = qw(--ignore-failed-read); |
Line 450 $use_moddate = 1; |
|
Line 358 $use_moddate = 1; |
|
# |
# |
@tar_options = qw(); |
@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). |
# 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 |
# 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. |
# can use the '-l' option to prevent cvs from writing to the history file. |
Line 472 $use_moddate = 1; |
|
Line 366 $use_moddate = 1; |
|
# can read and write to CVSROOT/history. |
# can read and write to CVSROOT/history. |
# FreeBSD's and OpenBSD's cvs(1) has long since supported -R (read only access |
# 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 |
# mode) option, which considerably speeds up checkouts over NFS. For other |
# platforms, the -R option and the CVSREADONLYFS environment variable are |
# platforms, the -R option is available in cvs >= 1.12.1. |
# available in cvs >= 1.12.1. A similar effect is provided by -u on NetBSD. |
# A similar effect is provided by -u on NetBSD. |
# |
# |
@cvs_options = qw(-f); |
@cvs_options = qw(-f); |
push @cvs_options, '-R' if ($^O eq 'freebsd' || $^O eq 'openbsd'); |
push @cvs_options, '-R' if ($^O eq 'freebsd' || $^O eq 'openbsd'); |
push @cvs_options, '-u' if ($^O eq 'netbsd'); |
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 |
# Options to pass to the 'cvs annotate' command, usually the normal |
# @cvs_options are good enough here. |
# @cvs_options are good enough here. |