Changesets can be listed by changeset number.
The Git repository is here.
Changeset 49
First stage of configuring CVSWeb for the ROOL site. No changes to
look and feel beyond using shared images for file icons.
- Comitted by: adh
- Date: Thursday August 03 15:15:09 2006 (over 18 years ago)
Affected files:
- rool/perl/cvsweb/trunk/icons/miniback.gif
- rool/perl/cvsweb/trunk/icons/minidir.gif
- rool/perl/cvsweb/trunk/icons/minigraph.png
- rool/perl/cvsweb/trunk/icons/minitext.gif
- rool/perl/cvsweb/trunk/cvsweb.cgi (diff)
- rool/perl/cvsweb/trunk/cvsweb.conf (diff)
rool/perl/cvsweb/trunk/cvsweb.cgi:
prev. | current | |
1 | ||
1 | #!/bin/perl | |
# | ||
# cvsweb - a CGI interface to CVS trees. | ||
# | ||
... | ... | |
use warnings; | ||
use filetest qw(access); | ||
61 | # 2006-08-03 (ADH): Use additional local library files | |
62 | use lib qw(/home/adh/perl/lib); | |
63 | ||
use vars qw ( | ||
$VERSION $CheckoutMagic $MimeTypes $DEBUG | ||
$config $allow_version_select |
rool/perl/cvsweb/trunk/cvsweb.conf:
prev. | current | |
# cvsgraph (if you enable $allow_graph) | ||
# enscript (if you enable $allow_enscript) | ||
# | ||
27 | ||
27 | @command_path = qw(/bin /home/adh/local/bin); | |
# Search the above directories for each command (prefer gtar over tar). | ||
# | ||
... | ... | |
# 'symbolic_name' => ['Name to display', '/path/to/cvsroot'] | ||
# | ||
@CVSrepositories = ( | ||
60 | | |
60 | 'risc_os_open' => ['RISC OS Open', '/home/adh/cvsroot'], | |
# 'freebsd' => ['FreeBSD', '/var/ncvs'], | ||
# 'openbsd' => ['OpenBSD', '/var/ncvs'], | ||
# 'netbsd' => ['NetBSD', '/var/ncvs'], | ||
... | ... | |
# For example: | ||
# | ||
#$cvstreedefault = $CVSrepositories[2 * 0]; | ||
75 | ||
75 | $cvstreedefault = 'risc_os_open'; | |
# Mirror sites. The keys will be used as link texts, and the values are | ||
# URLs pointing to the corresponding mirrors. | ||
... | ... | |
# uc Unified diff, enscript colored (falls back to "u" w/o enscript) | ||
# cc Context diff, enscript colored (falls back to "c" w/o enscript) | ||
# sc Side by side, enscript colored (falls back to "s" w/o enscript) | ||
147 | | |
147 | "f" => "uc", | |
# hidecvsroot: Don't show the CVSROOT directory. Note that this is | ||
# just the default for a user settable option (like others in this | ||
... | ... | |
# check out the "mini" versions in the icons/ directory; they have a | ||
# width/height of 16/16. | ||
# | ||
229 | ||
229 | my $iconsdir = '/perl/cvsweb/icons'; | |
# format: TEXT ICON-URL width height | ||
%ICONS = ( | ||
233 | | |
234 | | |
235 | | |
236 | | |
237 | | |
233 | back => [('[BACK]', "$iconsdir/icon_up.gif", 11, 13)], | |
234 | dir => [('[DIR]', "$iconsdir/icon_folder.gif", 15, 13)], | |
235 | file => [('[TXT]', "$iconsdir/icon_text.gif", 11, 13)], | |
236 | binfile => [('[BIN]', "$iconsdir/icon_binary.gif", 11, 13)], | |
237 | graph => [('[GRAPH]', "$iconsdir/minigraph.png", 16, 16)], | |
); | ||
undef $iconsdir; | ||
# An URL where to find the CSS. | ||
# | ||
243 | ||
243 | $cssurl = '/perl/cvsweb/css/cvsweb.css'; | |
# The length to which the last log entry should be truncated when shown | ||
# in the directory view. | ||
... | ... | |
# are not displayed. | ||
# | ||
@ForbiddenFiles = ( | ||
264 | | |
265 | | |
264 | qr|^CVSROOT$|o, # Hide CVSROOT | |
265 | qr|/\.cvspass$|o, # Should never be committed, but just in case... | |
#qr|^my/+secret/+dir|o, | ||
); | ||