[BACK]Return to cvsweb.conf CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / cvsweb

Annotation of cvsweb/cvsweb.conf, Revision 3.54

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

CVSweb