Annotation of cvsweb/cvsweb.conf, Revision 3.78
3.76 scop 1: # -*- perl -*-
2: # Configuration of cvsweb.cgi, a web interface to CVS repositories.
3.1 knu 3: #
4: # (c) 1998-1999 H. Zeller <zeller@think.de>
5: # 1999 H. Nordstrom <hno@hem.passagen.se>
3.30 knu 6: # 2000-2002 A. MUSHA <knu@FreeBSD.org>
3.65 scop 7: # 2002-2004 V. Skyttä <scop@FreeBSD.org>
3.1 knu 8: # based on work by Bill Fenner <fenner@FreeBSD.org>
3.28 knu 9: #
3.30 knu 10: # $FreeBSD$
3.27 knu 11: # $Id: cvsweb.conf,v 3.29 2001/07/23 09:14:52 hzeller Exp $
3.28 knu 12: # $Idaemons: /home/cvs/cvsweb/cvsweb.conf,v 3.27 2001/08/01 09:48:39 knu Exp $
3.1 knu 13: #
14:
3.19 knu 15: # Set the path for the following commands:
3.47 scop 16: # cvs, rlog, rcsdiff
3.19 knu 17: # gzip (if you enable $allow_compress)
3.47 scop 18: # (g)tar, zip (if you enable $allow_tar)
3.42 scop 19: # cvsgraph (if you enable $allow_graph)
3.71 scop 20: # enscript (if you enable $allow_enscript)
3.58 scop 21: #
3.73 scop 22: @command_path = qw(/bin /usr/bin /usr/local/bin);
3.19 knu 23:
3.47 scop 24: # Search the above directories for each command (prefer gtar over tar).
3.58 scop 25: #
3.71 scop 26: for (qw(cvs rlog rcsdiff gzip gtar zip cvsgraph enscript)) {
3.26 knu 27: $CMD{$_} = search_path($_);
3.19 knu 28: }
3.47 scop 29: $CMD{tar} = delete($CMD{gtar}) if $CMD{gtar};
30: $CMD{tar} ||= search_path('tar');
3.19 knu 31:
3.53 scop 32: # CVS roots
33: #
34: # CVSweb can handle several CVS repositories at once. Enter short (internal)
35: # symbolic repository names, their names in the UI and the actual locations
36: # here. The repositories will be listed in the order they're specified here.
37: #
3.76 scop 38: # CVSweb will also load per-cvsroot configuration files if they exist.
39: # The symbolic_name (see below) of the CVS root will be concatenated into the
40: # name of the main (this) configuration file along with a hyphen, and that
41: # file will be loaded for that particular CVS root. For examples, see
42: # cvsweb.conf-* in the CVSweb distribution.
43: #
3.53 scop 44: # Note that only local repositories are currently supported. Things like
45: # :pserver:someone@xyz.com:/data/cvsroot won't work.
46: #
47: # 'symbolic_name' => ['Name to display', '/path/to/cvsroot']
48: #
3.17 knu 49: @CVSrepositories = (
3.78 ! scop 50: 'local' => ['Local Repository', '/var/cvs'],
! 51: # 'freebsd' => ['FreeBSD', '/var/ncvs'],
! 52: # 'openbsd' => ['OpenBSD', '/var/ncvs'],
! 53: # 'netbsd' => ['NetBSD', '/var/ncvs'],
3.53 scop 54: # 'ruby' => ['Ruby', '/var/anoncvs/ruby'],
3.26 knu 55: );
3.1 knu 56:
3.53 scop 57: # The default CVS root. Note that @CVSrepositories is list, not a hash,
58: # so you'll want to use 2 * 0-based-index-number here; or set this directly
59: # to the default's symbolic name. Unless specified, the first valid one in
60: # @CVSrepositories is used as the default.
61: #
62: # For example:
63: #
64: #$cvstreedefault = $CVSrepositories[2 * 0];
65: #$cvstreedefault = 'local';
3.1 knu 66:
3.76 scop 67: # Bug tracking system linking options ("PR" means Problem Report, as in GNATS)
68: #
3.15 knu 69: #@prcategories = qw(
3.26 knu 70: # advocacy
71: # alpha
72: # bin
73: # conf
74: # docs
75: # gnu
76: # i386
77: # kern
78: # misc
79: # pending
80: # ports
81: # sparc
82: #);
3.15 knu 83: #$prcgi = "http://www.FreeBSD.org/cgi/query-pr.cgi?pr=%s";
84: #$prkeyword = "PR";
3.1 knu 85:
3.76 scop 86: # Manual gateway linking.
87: #
3.26 knu 88: $mancgi =
89: "http://www.FreeBSD.org/cgi/man.cgi?apropos=0&sektion=%s&query=%s&manpath=FreeBSD+5.0-current&format=html";
3.1 knu 90:
3.76 scop 91: # Defaults for user options.
92: #
3.1 knu 93: %DEFAULTVALUE = (
3.26 knu 94:
3.76 scop 95: # sortby: File sort order
96: # file Sort by filename
97: # rev Sort by revision number
98: # date Sort by commit date
99: # author Sort by author
100: # log Sort by log message
101: "sortby" => "file",
102:
103: # ignorecase: Ignore case in sorts (filenames, authors, log messages)
104: # 0 Honor case
105: # 1 Ignore case
106: "ignorecase" => "0",
107:
108: # hideattic: Hide or show files in Attic
109: # 1 Hide files in Attic
110: # 0 Show files in Attic
111: "hideattic" => "1",
112:
113: # logsort: Sort order for CVS logs
114: # date Sort revisions by date
115: # rev Sort revision by revision number
116: # cvs Don't sort them. Same order as CVS/RCS shows them.
117: "logsort" => "date",
118:
119: # f: Default diff format
120: # h Human readable
121: # u Unified diff
122: # c Context diff
123: # s Side by side
124: # uc Unified diff, enscript colored (falls back to "u" w/o enscript)
125: # cc Context diff, enscript colored (falls back to "c" w/o enscript)
126: # sc Side by side, enscript colored (falls back to "s" w/o enscript)
127: "f" => "u",
128:
129: # hidecvsroot: Don't show the CVSROOT directory
130: # 1 Hide CVSROOT directory
131: # 0 Show CVSROOT directory
132: "hidecvsroot" => "0",
133:
134: # hidenonreadable: Don't show entries which cannot be read
135: # 1 Hide non-readable entries
136: # 0 Show non-readable entries
137: "hidenonreadable" => "1",
138:
139: # ln: Show line numbers in HTMLized views
140: # 1 Show line numbers
141: # 0 Don't show line numbers
142: "ln" => "0",
3.1 knu 143: );
144:
3.76 scop 145: #
146: # Layout options (see also the included CSS file)
147: #
3.1 knu 148:
149: # Wanna have a logo on the page ?
3.58 scop 150: #
3.60 scop 151: $logo = '<p><img src="/icons/apache_pb.gif" alt="Powered by Apache" /></p>';
3.1 knu 152:
3.34 scop 153: # The title of the Page on startup. This will be put inside a <h1> tag.
3.58 scop 154: #
3.1 knu 155: $defaulttitle = "CVS Repository";
156:
3.34 scop 157: # The address is shown on the footer. This will be put inside a <address> tag.
3.58 scop 158: #
3.34 scop 159: $address = '<span style="font-size: smaller">FreeBSD-CVSweb <<a href="mailto:freebsd-cvsweb@FreeBSD.org">freebsd-cvsweb@FreeBSD.org</a>></span>';
3.1 knu 160:
161: $long_intro = <<EOT;
162: <p>
163: This is a WWW interface for CVS Repositories.
3.67 scop 164: You can browse the file hierarchy by following directory links (which
165: have slashes after them, e.g. <code>src/</code>).
166: If you follow a link to a file, you will see its revision history.
167: Following a link labeled with a revision number will display that
168: revision of the file. In the revision history view, there is a link
169: near each revision to display diffs between that revision and the
170: previous one, and a form at the bottom of the page that allows you to
3.1 knu 171: display diffs between arbitrary revisions.
3.67 scop 172: </p><p>
3.33 scop 173: This script has been written by Bill Fenner and improved by Henner Zeller,
174: Henrik Nordström, and Ken Coar, then Akinori MUSHA brought it
3.22 knu 175: back to FreeBSD community and made further improvements; it is covered
3.33 scop 176: by <a
177: href="http://www.opensource.org/licenses/bsd-license.html">The BSD Licence</a>.
3.67 scop 178: </p><p>
3.1 knu 179: If you would like to use this CGI script on your own web server and
3.67 scop 180: CVS tree, download the latest version from <<a
3.33 scop 181: href="http://www.FreeBSD.org/projects/cvsweb.html">http://www.FreeBSD.org/projects/cvsweb.html</a>>.
3.67 scop 182: </p><p>
3.33 scop 183: Feel free to send any patches, suggestions and comments to the FreeBSD-CVSweb
184: mailing list at
185: <<a
186: href="mailto:freebsd-cvsweb\@FreeBSD.org">freebsd-cvsweb\@FreeBSD.org</a>>.
3.1 knu 187: </p>
188: EOT
189:
190: $short_instruction = <<EOT;
191: <p>
192: Click on a directory to enter that directory. Click on a file to display
3.32 scop 193: its revision history and to get a chance to display diffs between revisions.
3.1 knu 194: </p>
195: EOT
196:
3.42 scop 197: # Icons for the web UI. If ICON-URL is empty, the TEXT representation is
198: # used. If you do not want to have a tool tip for an icon, set TEXT empty.
199: # The width and height of the icon allow the browser to correctly display
200: # the table while still loading the icons. If these icons are too large,
201: # check out the "mini" versions in the icons/ directory; they have a
202: # width/height of 16/16.
3.58 scop 203: #
3.42 scop 204: my $iconsdir = '/icons';
205:
3.51 scop 206: # format: TEXT ICON-URL width height
3.26 knu 207: %ICONS = (
3.51 scop 208: back => [('[BACK]', "$iconsdir/back.gif", 20, 22)],
209: dir => [('[DIR]', "$iconsdir/dir.gif", 20, 22)],
210: file => [('[TXT]', "$iconsdir/text.gif", 20, 22)],
211: binfile => [('[BINARY]', "$iconsdir/binary.gif", 20, 22)],
212: graph => [('[GRAPH]', "$iconsdir/minigraph.png", 16, 16)],
3.26 knu 213: );
3.15 knu 214: undef $iconsdir;
3.1 knu 215:
3.43 scop 216: # An URL where to find the CSS.
3.58 scop 217: #
3.43 scop 218: $cssurl = '/css/cvsweb.css';
219:
3.76 scop 220: # The length to which the last log entry should be truncated when shown
221: # in the directory view.
3.58 scop 222: #
3.1 knu 223: $shortLogLen = 80;
224:
3.76 scop 225: # Show author of last change?
3.58 scop 226: #
3.1 knu 227: $show_author = 1;
228:
3.76 scop 229: # Cell padding for directory table.
3.58 scop 230: #
3.1 knu 231: $tablepadding = 2;
232:
3.75 scop 233: # Regular expresions for files and directories which should be hidden.
234: # Each regexp is compared against a path relative to a CVS root, after
235: # stripping the trailing ",v" if present. Matching files and directories
236: # are not displayed.
3.58 scop 237: #
3.27 knu 238: @ForbiddenFiles = (
3.74 scop 239: qr|^CVSROOT/+passwd$|o, # CVSROOT/passwd should not be 'cvs add'ed though.
240: qr|/\.cvspass$|o, # Ditto. Just in case.
3.75 scop 241: #qr|^my/+secret/+dir|o,
3.27 knu 242: );
3.1 knu 243:
3.77 scop 244: # Use CVSROOT/descriptions for describing the directories/modules?
3.69 scop 245: # See INSTALL, section 9.
3.1 knu 246: #
247: $use_descriptions = 0;
248:
3.76 scop 249: #
250: # Human readable diff.
251: #
3.1 knu 252: # (c) 1998 H. Zeller <zeller@think.de>
253: #
3.76 scop 254: # Generates two columns of color encoded diff; much like xdiff or GNU Emacs'
255: # ediff-mode.
3.1 knu 256: #
3.76 scop 257: # The diff-stuff is a piece of code I once made for cvs2html which is under
258: # GPL, see http://www.sslug.dk/cvs2html
3.1 knu 259: # (c) 1997/98 Peter Toft <pto@sslug.imm.dtu.dk>
260:
3.76 scop 261: # Make lines breakable so that the columns do not exceed the width of the
262: # browser?
3.58 scop 263: #
3.1 knu 264: $hr_breakable = 1;
265:
3.76 scop 266: # Give out function names in diffs. This makes sense only for C files,
267: # otherwise diff's heuristic doesn't work too well... ('-p' option to diff)
3.58 scop 268: #
3.4 knu 269: $showfunc = 1;
3.1 knu 270:
271: # For each pair of regexps, files that match the first regexp will be diff'ed
272: # with an '-F' option with the second regexp.
3.58 scop 273: #
3.4 knu 274: %funcline_regexp = (
3.74 scop 275: qr/\.(?:4th|fr)$/o => "\\(^\\|[ \t]\\): ",
276: qr/\.rb$/o => "^[\t ]*\\(class\\|module\\|def\\) ",
3.26 knu 277: );
3.1 knu 278:
3.76 scop 279: # Ignore whitespace in human readable diffs? ('-w' option to diff)
3.58 scop 280: #
3.7 knu 281: $hr_ignwhite = 0;
3.1 knu 282:
3.76 scop 283: # Ignore diffs which are caused by keyword substitution, $Id and friends?
284: # ('-kk' option to rcsdiff)
3.58 scop 285: #
3.1 knu 286: $hr_ignkeysubst = 1;
287:
3.76 scop 288: # The width of the textinput of the "request diff" form.
3.58 scop 289: #
3.1 knu 290: $inputTextSize = 12;
3.70 scop 291:
292: # Custom per MIME type diff tools, used for comparing binary files such as
293: # spreadsheets, images etc. Each key is a MIME type in lowercase.
294: # Each value is an array ref of available diff tools for that type, each of
295: # which is a hash ref with values (mandatory where default not listed):
296: # name: the name to show in the UI for this diff type
297: # cmd: full path to executable
298: # args: arguments as an array ref (not string!, defaults to no arguments)
299: # type: output MIME type (defaults to text/plain)
300: #
301: %DIFF_COMMANDS = (
302: #'text/xml' => [
303: # { name => 'XMLdiff',
304: # cmd => $CMD{xmldiff},
305: # },
306: # { name => 'XMLdiff (XUpdate)',
307: # cmd => $CMD{xmldiff},
308: # args => [ qw(-x) ],
309: # type => 'text/xml',
310: # },
311: #],
312: );
3.1 knu 313:
3.76 scop 314: #
315: # Mime types
316: #
3.1 knu 317:
3.52 scop 318: # The MIME type lookup works like this:
319: # 1) Look up from %MTYPES below with the file name extension (suffix).
320: # 2) If not found, use the MIME::Types(3) module if it's available.
321: # 3) If not found, lookup from the $mime_types file (see below).
322: # 4) If not found, try %MTYPES{'*'}.
323: # 5) If not found, use 'application/octet-stream' if the file's keyword
324: # substitution mode is b (ie. the file was checked in as binary to CVS),
325: # 'text/plain' otherwise.
3.1 knu 326:
3.52 scop 327: # Quick MIME type lookup; maps filename extensions to MIME types.
328: # Add common mappings here for fast lookup. You can also use this
329: # to override MIME::Types(3) or the $mime_types file (see below).
3.58 scop 330: #
3.1 knu 331: %MTYPES = (
3.26 knu 332: "html" => "text/html",
333: "shtml" => "text/html",
334: "gif" => "image/gif",
335: "jpeg" => "image/jpeg",
336: "jpg" => "image/jpeg",
337: "png" => "image/png",
338: "xpm" => "image/xpm",
3.52 scop 339: # "*" => "text/plain",
3.26 knu 340: );
3.52 scop 341:
342: # The traditional mime.types file, eg. the one from Apache is fine.
343: # See above where this gets used.
3.58 scop 344: #
3.52 scop 345: $mime_types = '/usr/local/etc/apache/mime.types';
3.11 knu 346:
3.56 scop 347: # Charset appended to the Content-Type HTTP header for text/* MIME types.
348: # Note that the web server may default to some charset which may take effect
349: # if you leave this parameter empty or unset.
3.69 scop 350: # For Apache, see also the AddDefaultCharset directive.
3.56 scop 351: #
3.13 knu 352: $charset = '';
3.26 knu 353:
3.13 knu 354: # e.g.
355: #$charset = $where =~ m,/ru[/_-], ? 'koi8-r'
356: # : $where =~ m,/zh[/_-], ? 'big5'
357: # : $where =~ m,/ja[/_-], ? 'x-euc-jp'
358: # : $where =~ m,/ko[/_-], ? 'x-euc-kr'
359: # : 'iso-8859-1';
3.29 knu 360:
361: # Output filter
3.58 scop 362: #
3.29 knu 363: $output_filter = '';
364:
365: # e.g.
366: ## unify/convert Japanese code into EUC-JP
367: #$output_filter= '/usr/local/bin/nkf -e';
3.1 knu 368:
369: ##############
370: # Misc
371: ##############
3.58 scop 372:
3.76 scop 373: # Allow annotation of files? See also @annotate_options below.
3.58 scop 374: #
3.1 knu 375: $allow_annotate = 1;
376:
3.76 scop 377: # Allow HTMLized version of files?
3.58 scop 378: #
3.1 knu 379: $allow_markup = 1;
380:
3.76 scop 381: # Allow extra hyperlinking (such as PR cross-references) in logs?
3.58 scop 382: #
3.31 knu 383: $allow_log_extra = 1; # default: enabled
384:
3.76 scop 385: # Allow extra hyperlinking in directories?
3.58 scop 386: #
3.31 knu 387: $allow_dir_extra = 1;
388:
3.76 scop 389: # Allow extra hyperlinking in source code/formatted diff views?
3.58 scop 390: #
3.31 knu 391: $allow_source_extra = 1;
392:
3.76 scop 393: # Allow compression with gzip in general? Note that this also requires
394: # that the browser supports it, and will be disabled on the fly when necessary.
3.58 scop 395: #
3.16 knu 396: $allow_compress = 0;
3.1 knu 397:
3.76 scop 398: # Use JavaScript in the UI?
3.58 scop 399: #
3.1 knu 400: $use_java_script = 1;
401:
3.76 scop 402: # Show a form for setting options in the directory view?
3.58 scop 403: #
404: $edit_option_form = 1;
3.1 knu 405:
3.77 scop 406: # Show last changelog message for subdirectories?
3.1 knu 407: # The current implementation makes many assumptions and may show the
408: # incorrect file at some times. The main assumption is that the last
409: # modified file has the newest filedate. But some CVS operations
410: # touches the file without even when a new version is't checked in,
411: # and TAG based browsing essientially puts this out of order, unless
412: # the last checkin was on the same tag as you are viewing.
413: # Enable this if you like the feature, but don't rely on correct results.
3.58 scop 414: #
3.1 knu 415: $show_subdir_lastmod = 0;
416:
3.76 scop 417: # Show CVS log when viewing file contents?
3.58 scop 418: #
3.1 knu 419: $show_log_in_markup = 1;
420:
3.77 scop 421: # Preformat when viewing file contents? This should be turned off
3.13 knu 422: # when you have files in the repository that are in a multibyte
423: # encoding which uses HTML special characters ([<>&"]) as part of a
424: # multi-byte character. (such as iso-2022-jp, ShiftJIS, etc.)
425: # Otherwise those files will get screwed up in markup.
3.58 scop 426: #
3.59 scop 427: # Note: enscript(1) highlighting is preferred over the built-in preformatting,
428: # ie. this has no effect if $allow_enscript is true and enscript can highlight
429: # the file.
430: #
431: $preformat_in_markup = 0;
3.13 knu 432:
3.1 knu 433: # Tabstop used to expand tabs in colored diffs. If undefined then
434: # tabs are always expanded to 8 spaces.
3.58 scop 435: #
3.1 knu 436: $tabstop = 8;
437:
3.58 scop 438: # If you wish to display absolute times in your local timezone,
3.1 knu 439: # then define mytz and fill in the strings for your standard and
440: # daylight time. Note that you must also make sure the system
441: # timezone is correctly set.
3.58 scop 442: #
443: #@mytz=("EST", "EDT");
3.1 knu 444:
3.77 scop 445: # CVSweb is friendly to caches by indicating a HTTP Last-Modified
446: # timestamp. Doing this uses slightly more CPU so you might want to disable
447: # it if you have a slow server.
3.58 scop 448: #
3.1 knu 449: $use_moddate = 1;
450:
3.45 scop 451: # Maximum number of filenames to pass to rlog(1) in one command.
452: # If you see "Failed to spawn GNU rlog" errors with directories containing
453: # lots of files, experiment by setting this to different values and see if
454: # the error still occurs. A good value to start from would be eg. 200.
455: # Just comment this out if you're not bitten by the problem.
3.57 scop 456: #
3.45 scop 457: #$file_list_len = 200;
458:
3.77 scop 459: # Allows graphical representations of file logs with CvsGraph?
3.57 scop 460: #
461: $allow_cvsgraph = $CMD{cvsgraph} ? 1 : 0;
462:
3.42 scop 463: # Path to the CvsGraph configuration file. Only used if $allow_cvsgraph
464: # is true. Leave this empty or comment it out to make cvsgraph(1) use its
465: # default configuration file.
3.57 scop 466: #
3.42 scop 467: #$cvsgraph_config = "/etc/cvsgraph.conf";
3.13 knu 468:
3.57 scop 469: # Whether to allow downloading a tarball or a zip of the current directory.
470: # While downloading of the entire repository is disallowed, depending on
471: # the directory this may take a lot of time and disk space. For some CVS
3.69 scop 472: # versions, the user account running CVSweb needs write access to
3.57 scop 473: # CVSROOT/val-tags. See also the tar, gzip and zip options below.
474: #
475: #$allow_tar = (($CMD{tar} && $CMD{gzip}) || $CMD{zip}) ? 1 : 0;
476:
3.13 knu 477: # Options to pass to tar(1).
3.57 scop 478: # For example: @tar_options = qw(--ignore-failed-read);
479: # GNU tar has some useful options against unexpected errors.
480: # Other useful options include "--owner=0" and "--group=0", see
481: # the tar(1) (or gtar(1)) manpage for details.
482: #
3.15 knu 483: @tar_options = qw();
3.26 knu 484:
3.19 knu 485: # Options to pass to gzip(1) when compressing a tarball to download.
3.57 scop 486: # For example: @gzip_options = qw(-3);
487: # Try lower compression level than 6 (default) if you want faster
488: # compression, or higher for better compression.
489: #
3.19 knu 490: @gzip_options = qw();
3.26 knu 491:
3.25 knu 492: # Options to pass to zip(1) when compressing a zip archive to download.
3.57 scop 493: # For example: @zip_options = qw(-3);
494: # Try lower compression level than 6 (default) if you want faster
495: # compression, or higher for better compression.
496: #
3.47 scop 497: @zip_options = qw(-q);
3.26 knu 498:
3.13 knu 499: # Options to pass to cvs(1).
3.63 scop 500: # For cvs versions 1.11 to 1.11.6 (broken in < 1.11, removed in 1.11.7), you
501: # can use the '-l' option to prevent cvs from writing to the history file.
502: # For other cvs versions, either suppress history logging by using the
3.69 scop 503: # LogHistory parameter in CVSROOT/config or make sure that the CVSweb user
3.63 scop 504: # can read and write to CVSROOT/history.
3.61 scop 505: # FreeBSD's and OpenBSD's cvs(1) has long since supported -R (read only access
506: # mode) option, which considerably speeds up checkouts over NFS. For other
3.62 scop 507: # platforms, the -R option and the CVSREADONLYFS environment variable are
508: # available in cvs >= 1.12.1. A similar effect is provided by -u on NetBSD.
3.57 scop 509: #
3.35 scop 510: @cvs_options = qw(-lf);
3.47 scop 511: push @cvs_options, '-R' if ($^O eq 'freebsd' || $^O eq 'openbsd');
512: push @cvs_options, '-u' if ($^O eq 'netbsd');
3.62 scop 513: # Only affects cvs >= 1.12.1, but doesn't hurt older ones.
514: $ENV{CVSREADONLYFS} = 1 unless exists($ENV{CVSREADONLYFS});
3.26 knu 515:
3.39 scop 516: # Options to pass to the 'cvs annotate' command, usually the normal
517: # @cvs_options are good enough here.
3.57 scop 518: # To make annotate work against a read only repository, add -n, ie.:
519: # @annotate_options = (@cvs_options, '-n');
520: #
3.39 scop 521: @annotate_options = @cvs_options;
522:
3.54 scop 523: # Options to pass to rcsdiff(1).
524: # Probably the only useful one here is -q (suppress diagnostic output).
3.57 scop 525: #
3.54 scop 526: @rcsdiff_options = qw(-q);
3.48 scop 527:
528: # Enables syntax highlighting using GNU Enscript if set.
3.64 scop 529: # You will need GNU Enscript version 1.6.3 or newer for this to work.
3.57 scop 530: #
3.48 scop 531: #$allow_enscript = $CMD{enscript} ? 1 : 0;
532:
533: # Options to pass to enscript(1).
3.54 scop 534: # Do not set the -q, --language, -o or --highlight options here.
3.48 scop 535: # Most useful styles are probably emacs, emacs_verbose and msvc.
3.57 scop 536: #
3.48 scop 537: @enscript_options = qw(--style=emacs --color=1);
538:
539: # Enscript highlight rule to filename regex mappings. The set of useful
540: # mappings depends on what highlight rules the system has installed.
3.57 scop 541: #
3.48 scop 542: %enscript_types =
543: (
544: 'ada' => qr/\.ad(s|b|a)$/o,
545: 'asm' => qr/\.[Ss]$/o,
546: 'awk' => qr/\.awk$/o,
547: 'bash' => qr/\.(bash(_profile|rc)|inputrc)$/o,
548: 'c' => qr/\.(c|h)$/o,
549: 'changelog' => qr/^changelog$/io,
550: 'cpp' => qr/\.(c\+\+|C|H|cpp|cc|cxx)$/o,
551: 'csh' => qr/\.(csh(rc)?|log(in|out)|history)$/o,
552: 'elisp' => qr/\.e(l|macs)$/o,
553: 'fortran' => qr/\.[fF]$/o,
554: 'haskell' => qr/\.(l?h|l?g)s$/o,
555: 'html' => qr/\.x?html?$/o,
556: 'idl' => qr/\.idl$/o,
557: 'inf' => qr/\.inf$/io,
558: 'java' => qr/\.java$/o,
559: 'javascript' => qr/\.js$/o,
560: 'ksh' => qr/\.ksh$/o,
561: 'm4' => qr/\.m4$/o,
562: 'makefile' => qr/((GNU)?[Mm]akefile.*|\.(ma?ke?|am)$)/o,
563: 'matlab' => qr/\.m$/o,
564: 'nroff' => qr/\.man$/o,
565: 'pascal' => qr/\.p(as|p)?$/io,
566: 'perl' => qr/\.p(m|(er?)l)$/io,
567: 'postscript' => qr/\.e?ps$/io,
568: 'python' => qr/\.py$/o,
569: 'rfc' => qr/\b((rfc|draft)\..*\.txt)$/o,
570: 'scheme' => qr/\.(scm|scheme)$/o,
571: 'sh' => qr/\.sh$/o,
572: 'skill' => qr/\.il$/o,
573: 'sql' => qr/\.sql$/o,
574: 'states' => qr/\.st$/o,
575: 'synopsys' => qr/\.s(cr|yn(th)?)$/o,
576: 'tcl' => qr/\.tcl$/o,
577: 'tcsh' => qr/\.tcshrc$/o,
578: 'tex' => qr/\.tex$/o,
579: 'vba' => qr/\.vba$/o,
580: 'verilog' => qr/\.(v|vh)$/o,
581: 'vhdl' => qr/\.vhdl?$/o,
582: 'vrml' => qr/\.wrl$/o,
583: 'wmlscript' => qr/\.wmls(cript)?$/o,
584: 'zsh' => qr/\.(zsh(env|rc)|z(profile|log(in|out)))$/o,
585: );
3.39 scop 586:
3.12 knu 587: 1;
3.26 knu 588:
3.57 scop 589: # EOF
CVSweb