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.1 and 3.9

version 1.1.1.1, 2000/08/14 04:35:13

version 3.9, 2000/07/29 12:41:25

Line 1

#!/usr/bin/perl5 -ws

#!/usr/bin/perl -ws

# cvsweb - a CGI interface to CVS trees.

Line 42

# SUCH DAMAGE.

# $zId: cvsweb.cgi,v 1.93 2000/07/27 17:42:28 hzeller Exp $

# $kId: cvsweb.cgi,v 1.11 2000/08/13 18:58:24 knu Exp $

# $Id$

###

Line 80 use vars qw (

);

##### Start of Configuration Area ########

use Cwd;

# == EDIT this ==

# User configuration is stored in

$config = undef;

$config = defined($ENV{CVSWEB_CONFIG}) ? $ENV{CVSWEB_CONFIG} : '/usr/local/etc/cvsweb.conf';

for ($ENV{CVSWEB_CONFIG}, '/usr/local/etc/cvsweb.conf', getcwd . '/cvsweb.conf') {

$config = $_ if -r $_;

}

# == Configuration defaults ==

# Defaults for configuration variables that shouldn't need

# to be configured..

Line 2336 sub navigateHeader ($$$$$) {

Line 2330 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 BGCOLOR=\"$backcolor\">\n";

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

Line 2690 sub http_header {

Line 2684 sub http_header {

sub html_header($) {

my ($title) = @_;

my $version = '$zRevision: 1.93 $ $kRevision: 1.11 $';

my $version = '$zRevision: 1.93 $ $Revision$';

http_header();

print <<EOH;

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

CVSweb