cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

version 3.8, 2000/07/29 12:10:40

version 3.11, 2000/08/13 18:58:24

Line 1

#!/usr/bin/perl -ws

#!/usr/bin/perl5 -ws

# cvsweb - a CGI interface to CVS trees.

Line 80 use vars qw (

);

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

use Cwd;

# == EDIT this ==

# User configuration is stored in

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

$config = undef;

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 2330 sub navigateHeader ($$$$$) {

Line 2336 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 2684 sub http_header {

Line 2690 sub http_header {

sub html_header($) {

my ($title) = @_;

my $version = '$Revision$';

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

http_header();

print <<EOH;

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