version 3.38, 2000/11/02 17:34:35 |
version 3.40, 2000/11/22 19:26:11 |
|
|
$is_links $is_lynx $is_w3m $is_msie $is_mozilla3 $is_textbased |
$is_links $is_lynx $is_w3m $is_msie $is_mozilla3 $is_textbased |
%input $query $barequery $sortby $bydate $byrev $byauthor |
%input $query $barequery $sortby $bydate $byrev $byauthor |
$bylog $byfile $defaultDiffType $logsort $cvstree $cvsroot |
$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 |
$long_intro $short_instruction $shortLogLen |
$show_author $dirtable $tablepadding $columnHeaderColorDefault |
$show_author $dirtable $tablepadding $columnHeaderColorDefault |
$columnHeaderColorSorted $hr_breakable $showfunc $hr_ignwhite |
$columnHeaderColorSorted $hr_breakable $showfunc $hr_ignwhite |
Line 1001 sub findLastModifiedSubdirs(@) { |
|
Line 1001 sub findLastModifiedSubdirs(@) { |
|
sub htmlify_sub(&$) { |
sub htmlify_sub(&$) { |
(my $proc, local $_) = @_; |
(my $proc, local $_) = @_; |
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
my ($linked, $result); |
my $linked; |
|
my $result = ''; |
|
|
while (($_, $linked) = splice(@_, 0, 2)) { |
while (($_, $linked) = splice(@_, 0, 2)) { |
&$proc(); |
&$proc(); |
$result .= $_; |
$result .= $_ if defined($_); |
$result .= $linked; |
$result .= $linked if defined($linked); |
} |
} |
|
|
$result; |
$result; |
Line 2998 sub http_header(;$) { |
|
Line 2999 sub http_header(;$) { |
|
} |
} |
select(GZIP); |
select(GZIP); |
$gzip_open = 1; |
$gzip_open = 1; |
# print "<!-- gzipped -->" if ($content_type eq "text/html"); |
# print "<!-- gzipped -->" if ($content_type =~ m|^text/html\b|); |
} |
} |
else { |
else { |
if ($is_mod_perl) { |
if ($is_mod_perl) { |
Line 3023 sub http_header(;$) { |
|
Line 3024 sub http_header(;$) { |
|
sub html_header($) { |
sub html_header($) { |
my ($title) = @_; |
my ($title) = @_; |
my $version = '$zRevision: 1.104 $ $Revision$'; #' |
my $version = '$zRevision: 1.104 $ $Revision$'; #' |
http_header(); |
http_header($charset ne "" ? "text/html; charset=$charset" : "text/html"); |
print <<EOH; |
print <<EOH; |
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" |
"http://www.w3.org/TR/REC-html40/loose.dtd"> |
"http://www.w3.org/TR/REC-html40/loose.dtd"> |
<html> |
<html> |
|
<head> |
<title>$title</title> |
<title>$title</title> |
<!-- CVSweb $version --> |
<!-- CVSweb $version --> |
</head> |
</head> |