cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 1.1.1.8 and 3.27

version 1.1.1.8, 2000/09/30 18:55:43

version 3.27, 2000/09/28 18:06:58

Line 43

# SUCH DAMAGE.

# $zId: cvsweb.cgi,v 1.103 2000/09/20 17:02:29 jumager Exp $

# $kId: cvsweb.cgi,v 1.29 2000/09/30 18:48:16 knu Exp $

# $Id$

###

Line 125 sub forbidden_module($);

use Cwd;

# == EDIT this ==

# Locations to search for user configuration, in order:

# User configuration is stored in

for (

$config = undef;

$ENV{CVSWEB_CONFIG},

for ($ENV{CVSWEB_CONFIG},

# '/home/knu/etc/cvsweb.conf',

'/usr/local/etc/cvsweb.conf',

getcwd() . '/cvsweb.conf'

getcwd . '/cvsweb.conf') {

) {

$config = $_ if defined($_) && -r $_;

}

# == Configuration defaults ==

Line 145 $allow_version_select = 1;

Line 146 $allow_version_select = 1;

# These are defined to allow checking with perl -cw

%CVSROOT = %MIRRORS = %DEFAULTVALUE = %ICONS = %MTYPES =

%tags = %alltags = @tabcolors = ();

$cvstreedefault = $body_tag = $body_tag_for_src =

$logo = $defaulttitle = $address =

$long_intro = $short_instruction = $shortLogLen =

$show_author = $dirtable = $tablepadding = $columnHeaderColorDefault =

Line 1155 sub doAnnotate($$) {

Line 1156 sub doAnnotate($$) {

# the public domain.

# we could abandon the use of rlog, rcsdiff and co using

# the cvsserver in a similiar way one day (..after rewrite)

$pid = open2($reader, $writer, "cvs -Rl server") || fatal ("500 Internal Error",

$pid = open2($reader, $writer, "cvs server") || fatal ("500 Internal Error",

"Fatal Error - unable to open cvs for annotation");

# OK, first send the request to the server. A simplified example is:

Line 2478 sub navigateHeader($$$$$) {

Line 2479 sub navigateHeader($$$$$) {

$swhere = urlencode($filename) if ($swhere eq "");

print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";

print "<HTML>\n<HEAD>\n";

print '';

print '';

print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n";

print "$body_tag_for_src\n";

print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=1 bgcolor=\"$navigationHeaderColor\">";

Line 2833 sub http_header(;$) {

Line 2834 sub http_header(;$) {

sub html_header($) {

my ($title) = @_;

my $version = '$zRevision: 1.103 $ $kRevision: 1.29 $'; #'

my $version = '$zRevision: 1.103 $ $Revision$'; #'

http_header();

print <<EOH;

<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"

CVSweb