cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

version 3.39, 2000/11/04 15:32:17

version 3.40, 2000/11/22 19:26:11

Line 63 use vars qw (

$is_links $is_lynx $is_w3m $is_msie $is_mozilla3 $is_textbased

%input $query $barequery $sortby $bydate $byrev $byauthor

$bylog $byfile $defaultDiffType $logsort $cvstree $cvsroot

$mimetype $defaultTextPlain $defaultViewable $allow_compress

$mimetype $charset $defaultTextPlain $defaultViewable

$GZIPBIN $backicon $diricon $fileicon $fullname $newname

$allow_compress $GZIPBIN $backicon $diricon $fileicon

$cvstreedefault $body_tag $body_tag_for_src

$fullname $newname $cvstreedefault

$logo $defaulttitle $address

$body_tag $body_tag_for_src $logo $defaulttitle $address

$long_intro $short_instruction $shortLogLen

$show_author $dirtable $tablepadding $columnHeaderColorDefault

$columnHeaderColorSorted $hr_breakable $showfunc $hr_ignwhite

Line 2999 sub http_header(;$) {

}

select(GZIP);

$gzip_open = 1;

# print "" if ($content_type eq "text/html");

# print "" if ($content_type =~ m|^text/html\b|);

}

else {

if ($is_mod_perl) {

Line 3024 sub http_header(;$) {

sub html_header($) {

my ($title) = @_;

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

http_header();

http_header($charset ne "" ? "text/html; charset=$charset" : "text/html");

print <<EOH;

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

<html>

<head>

<title>$title</title>

</head>