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.31 and 1.1.1.36

version 1.1.1.31, 2002/05/22 08:16:25

version 1.1.1.36, 2002/09/30 19:48:52

Line 3

# cvsweb - a CGI interface to CVS trees.

# Written in their spare time by

# Bill Fenner <fenner@FreeBSD.org> (original work)

# extended by Henner Zeller <zeller@think.de>,

# Henrik Nordstrom <hno@hem.passagen.se>

# Ken Coar <coar@Apache.Org>

# Dick Balaska <dick@buckosoft.com>

# Akinori MUSHA <knu@FreeBSD.org>

# Jens-Uwe Mager <jum@helios.de>

# Ville Skyttä <ville.skytta@iki.fi> (html cleanup)

# Ville Skyttä <scop@FreeBSD.org>

# Vassilii Khachaturov <vassilii@tarunz.org>

# Based on:

# * Bill Fenners cvsweb.cgi revision 1.28 available from:

Line 18

Line 19

# Redistribution and use in source and binary forms, with or without

Line 43

Line 45

# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

# SUCH DAMAGE.

# $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.104 2002/05/22 08:10:18 knu Exp $

# $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.119.2.6 2002/09/26 20:56:05 scop Exp $

# $zId: cvsweb.cgi,v 1.112 2001/07/24 13:03:16 hzeller Exp $

# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $

Line 91 use vars qw (

Line 93 use vars qw (

$module $use_descriptions %descriptions @mytz $dwhere $moddate

$use_moddate $has_zlib $gzip_open

$allow_tar @tar_options @gzip_options @zip_options @cvs_options

$LOG_FILESEPARATOR $LOG_REVSEPARATOR

@annotate_options $LOG_FILESEPARATOR $LOG_REVSEPARATOR

$tmpdir $HTML_DOCTYPE

$tmpdir $HTML_DOCTYPE $HTML_META

);

sub printDiffSelect($);

Line 147 sub forbidden_module($);

Line 149 sub forbidden_module($);

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

delete $ENV{PATH};

$cvsweb_revision = '2.0.3';

$cvsweb_revision = '2.0.6';

use File::Basename ();

Line 185 $cvstreedefault = $body_tag = $body_tag_for_src = $log

Line 187 $cvstreedefault = $body_tag = $body_tag_for_src = $log

$extern_window_width = $extern_window_height = $edit_option_form =

$show_subdir_lastmod = $show_log_in_markup = $v = $navigationHeaderColor =

$tableBorderColor = $markupLogColor = $tabstop = $use_moddate = $moddate =

$gzip_open = $HTML_DOCTYPE = undef;

$gzip_open = $HTML_DOCTYPE = $HTML_META = undef;

$tmpdir = defined($ENV{TMPDIR}) ? $ENV{TMPDIR} : "/var/tmp";

$LOG_FILESEPARATOR = q/^={77}$/;

Line 236 $LOG_REVSEPARATOR = q/^-{28}$/;

Line 238 $LOG_REVSEPARATOR = q/^-{28}$/;

$HTML_DOCTYPE =

'<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';

$HTML_META = <<EOM;

EOM

##### End of configuration variables #####

use Time::Local ();

Line 335 $input{only_with_tag} = $input{only_on_branch}

Line 344 $input{only_with_tag} = $input{only_on_branch}

# Prevent cross-site scripting

foreach (@unsafevars) {

if (defined($input{$_}) && $input{$_} =~ /[^\w\-.]/) {

# Colons are needed in diffs between tags.

if (defined($input{$_}) && $input{$_} =~ /[^\w\-.:]/) {

fatal("500 Internal Error",

'Malformed query (%s=%s)',

$_, $input{$_});

Line 458 if ($input{'cvsroot'} && $CVSROOT{$input{'cvsroot'}})

Line 468 if ($input{'cvsroot'} && $CVSROOT{$input{'cvsroot'}})

$cvsroot = $CVSROOT{$cvstree};

# create icons out of description

my $k;

foreach my $k (keys %ICONS) {

foreach $k (keys %ICONS) {

no strict 'refs';

my ($itxt, $ipath, $iwidth, $iheight) = @{$ICONS{$k}};

if ($ipath) {

Line 471 foreach $k (keys %ICONS) {

Line 480 foreach $k (keys %ICONS) {

${"${k}icon"} = $itxt;

}

undef $k;

my $config_cvstree = "$config-$cvstree";

Line 630 if (-d $fullname) {

Line 638 if (-d $fullname) {

print $short_instruction;

}

my $descriptions;

if ($use_descriptions && open(DESC, "<$cvsroot/CVSROOT/descriptions"))

if (($use_descriptions) && open(DESC, "<$cvsroot/CVSROOT/descriptions"))

{

while (<DESC>) {

chomp;

my ($dir, $description) = /(\S+)\s+(.*)/;

$descriptions{$dir} = $description;

}

close(DESC);

}

print "<p><a name=\"dirlist\"></a></p>\n";

Line 802 if (-d $fullname) {

Line 810 if (-d $fullname) {

my $filesexists;

my $filesfound;

foreach (sort { &fileSortCmp } @dir) {

foreach my $file (sort { &fileSortCmp } @dir) {

if ($_ eq '.') {

next;

}

next if ($file eq '.');

# ignore CVS lock and stale NFS files

next if (/^#cvs\.|^,|^\.nfs/);

next if ($file =~ /^#cvs\.|^,|^\.nfs/);

# Check whether to show the CVSROOT path

next if ($input{'hidecvsroot'} && ($_ eq 'CVSROOT'));

next if ($input{'hidecvsroot'} && $file eq 'CVSROOT');

# Check whether the module is in the restricted list

next if ($_ && &forbidden_module($_));

next if ($file && &forbidden_module($file));

# Ignore non-readable files

next if ($input{'hidenonreadable'} && !(-r "$fullname/$_"));

next if ($input{'hidenonreadable'} && !(-r "$fullname/$file"));

if (s|^Attic/||) {

if ($file =~ s|^Attic/||) {

$attic = " (in the Attic) " . $hideAtticToggleLink;

} else {

$attic = "";

}

if ($_ eq '..' || -d "$fullname/$_") {

if ($file eq '..' || -d "$fullname/$file") {

next if ($_ eq '..' && $where eq '/');

next if ($file eq '..' && $where eq '/');

my ($rev, $date, $log, $author, $filename);

my ($rev, $date, $log, $author, $filename) =

($rev, $date, $log, $author, $filename) =

@{$fileinfo{$file}}

@{$fileinfo{$_}}

if (defined($fileinfo{$file}));

if (defined($fileinfo{$_}));

printf "<tr style=\"background-color: %s\">\n<td>",

$tabcolors[$dirrow % 2] if $dirtable;

if ($_ eq '..') {

if ($file eq '..') {

$url = "../$query";

if ($nofilelinks) {

print $backicon;

Line 843 if (-d $fullname) {

Line 849 if (-d $fullname) {

}

print ' ', &link("Parent Directory", $url);

} else {

$url = './' . urlencode($_) . "/$query";

$url = './' . urlencode($file) . "/$query";

print "<a name=\"$_\"></a>";

print "<a name=\"$file\"></a>";

if ($nofilelinks) {

print $diricon;

} else {

print &link($diricon, $url);

}

print ' ', &link("$_/", $url), $attic;

print ' ', &link("$file/", $url), $attic;

if ($_ eq "Attic") {

if ($file eq "Attic") {

print "  ";

print &link(

"[Don't hide]",

Line 896 if (-d $fullname) {

Line 902 if (-d $fullname) {

}

} else {

my ($dwhere) =

($where ne "/" ? $where : "") . $_;

($where ne "/" ? $where : "") . $file;

if ($use_descriptions

&& defined $descriptions{$dwhere})

Line 923 if (-d $fullname) {

Line 929 if (-d $fullname) {

print "<br>\n";

}

$dirrow++;

} elsif (s/,v$//) {

} elsif ($file =~ s/,v$//) {

$fileurl = ($attic ? "Attic/" : "") . urlencode($_);

# Skip forbidden files now so we'll give no hint

# about their existence. This should probably have

# been done earlier, but it's straightforward here.

next if forbidden_file("$fullname/$file");

$fileurl = ($attic ? "Attic/" : "") . urlencode($file);

$url = './' . $fileurl . $query;

my $rev = '';

my $date = '';

my $log = '';

my $author = '';

$filesexists++;

next if (!defined($fileinfo{$_}));

next if (!defined($fileinfo{$file}));

($rev, $date, $log, $author) = @{$fileinfo{$_}};

my ($rev, $date, $log, $author) = @{$fileinfo{$file}};

$filesfound++;

printf "<tr style=\"background-color: %s\">\n<td>",

$tabcolors[$dirrow % 2] if $dirtable;

print "<a name=\"$_\"></a>";

print "<a name=\"$file\"></a>";

if ($nofilelinks) {

print $fileicon;

} else {

print &link($fileicon, $url);

}

print ' ', &link($_, $url), $attic;

print ' ', &link(htmlquote($file), $url), $attic;

print "</td>\n<td> " if ($dirtable);

download_link($fileurl, $rev, $rev,

$defaultViewable ? "text/x-cvsweb-markup" :

Line 1002 if (-d $fullname) {

Line 1010 if (-d $fullname) {

|| $input{$var} ne $DEFAULTVALUE{$var})

&& $input{$var} ne "" && $var ne "only_with_tag");

}

print "<p>Show only files with tag:\n";

print "<p><label for=\"only_with_tag\" accesskey=\"T\">";

print "<select name=\"only_with_tag\"";

print "Show only files with tag:</label>\n";

print "<select id=\"only_with_tag\" name=\"only_with_tag\"";

print " onchange=\"this.form.submit()\"" if $use_java_script;

print ">";

print "<option value=\"\">All tags / default branch</option>\n";

Line 1015 if (-d $fullname) {

Line 1024 if (-d $fullname) {

">$tag</option>\n";

}

print "</select>\n";

print " Module path or alias:\n";

print " <label for=\"path\" accesskey=\"P\">";

printf "<input type=\"text\" name=\"path\" value=\"%s\" size=\"15\">\n",

print "Module path or alias:</label>\n";

printf "<input type=\"text\" id=\"path\" name=\"path\" value=\"%s\" size=\"15\">\n",

htmlquote($where);

print "<input type=\"submit\" value=\"Go\"></p>\n";

print "<input type=\"submit\" value=\"Go\" accesskey=\"G\"></p>\n";

print "</form>\n";

}

Line 1056 if (-d $fullname) {

Line 1066 if (-d $fullname) {

print "<center>\n<table cellpadding=\"0\" cellspacing=\"0\">";

print "\n<tr style=\"background-color: $columnHeaderColorDefault\">\n";

print "<th colspan=\"2\">Preferences</th>\n</tr>\n";

print "<tr>\n<td>Sort files by <select name=\"sortby\">\n";

print "<tr>\n<td>";

print "<label for=\"sortby\" accesskey=\"F\">Sort files by ";

print "</label><select id=\"sortby\" name=\"sortby\">\n";

print "<option value=\"\">File</option>\n";

print "<option", $bydate ? " selected" : "",

" value=\"date\">Age</option>\n";

Line 1068 if (-d $fullname) {

Line 1080 if (-d $fullname) {

print "<option", $bylog ? " selected" : "",

" value=\"log\">Log message</option>\n";

print "</select>\n</td>\n";

print "<td>Sort log by: ";

print "<td><label for=\"logsort\" accesskey=\"L\">";

print "Sort log by: </label>";

printLogSortSelect(0);

print "</td>\n</tr>\n";

print "<tr>\n<td>Diff format: ";

print "<tr>\n<td><label for=\"f\" accesskey=\"D\">";

print "Diff format: </label>";

printDiffSelect(0);

print "</td>\n";

print "<td><label>Show Attic files: ";

print "<td><label for=\"hideattic\" accesskey=\"A\">";

print "<input name=\"hideattic\" type=\"checkbox\"",

print "Show Attic files: </label>";

print "<input id=\"hideattic\" name=\"hideattic\" type=\"checkbox\"",

$input{'hideattic'} ? " checked" : "",

"></label></td>\n</tr>\n";

"></td>\n</tr>\n";

print "<tr>\n<td align=\"center\" colspan=\"2\">";

print "<input type=\"submit\" value=\"Change Options\">";

print "<input type=\"submit\" value=\"Change Options\" accesskey=\"C\">";

print "</td>\n</tr>\n</table>\n</center>\n</form>\n";

}

html_footer();

Line 1089 if (-d $fullname) {

Line 1104 if (-d $fullname) {

# View Files

###############################

elsif (-f $fullname . ',v') {

if (forbidden_file($fullname)) {

fatal('403 Forbidden',

'Access forbidden. This file is mentioned in @ForbiddenFiles');

return;

}

if (defined($input{'rev'}) || $doCheckout) {

&doCheckout($fullname, $input{'rev'});

gzipclose();

Line 1184 sub printDiffSelect($) {

Line 1206 sub printDiffSelect($) {

my ($use_java_script) = @_;

my $f = $input{'f'};

print '<select name="f"';

print '<select id="f" name="f"';

print ' onchange="this.form.submit()"' if $use_java_script;

print ">\n";

Line 1200 sub printDiffSelect($) {

Line 1222 sub printDiffSelect($) {

sub printLogSortSelect($) {

my ($use_java_script) = @_;

print '<select name="logsort"';

print '<select id="logsort" name="logsort"';

print ' onchange="this.form.submit()"' if $use_java_script;

print ">\n";

Line 1236 sub findLastModifiedSubdirs(@) {

Line 1258 sub findLastModifiedSubdirs(@) {

$filename = "$dirname/$filename";

my ($file) = "$fullname/$filename";

next if ($filename !~ /,v$/ || !-f $file);

# Skip forbidden files.

(my $f = $file) =~ s/,v$//;

next if forbidden_file($f);

$filename =~ s/,v$//;

my $modtime = -M $file;

Line 1378 sub spacedHtmlText($;$) {

Line 1405 sub spacedHtmlText($;$) {

return $_;

}

# Note that this doesn't htmlquote the first argument...

sub link($$) {

my ($name, $url) = @_;

Line 1572 sub doAnnotate($$) {

Line 1600 sub doAnnotate($$) {

$ENV{QUERY_STRING});

}

if (&forbidden_file($fullname)) {

fatal("403 Forbidden",

'Access forbidden. This file is mentioned in @ForbiddenFiles');

return;

}

($pathname = $where) =~ s/(Attic\/)?[^\/]*$//;

($filename = $where) =~ s/^.*\///;

Line 1585 sub doAnnotate($$) {

Line 1607 sub doAnnotate($$) {

$| = 1;

$| = 0; # Flush

# Work around a mod_perl bug (?) in order to make open2() work.

# Search for "untie STDIN" in mod_perl mailing list archives.

my $old_stdin;

if ($is_mod_perl && ($old_stdin = tied *STDIN)) {

local $^W = undef;

untie *STDIN;

}

# this annotate version is based on the

# cvs annotate-demo Perl script by Cyclic Software

# It was written by Cyclic Software, http://www.cyclic.com/, and is in

# 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, $CMD{cvs}, @cvs_options, "server")

$pid = open2($reader, $writer, $CMD{cvs}, @annotate_options, 'server')

or fatal("500 Internal Error",

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

# Re-tie STDIN if we fiddled around with it earlier, just to be sure.

tie(*STDIN, ref($old_stdin), $old_stdin) if ($old_stdin && !tied(*STDIN));

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

# Root /home/kingdon/zwork/cvsroot

# Argument foo/xx

Line 1738 sub doAnnotate($$) {

Line 1771 sub doAnnotate($$) {

} else {

print "</pre>";

}

html_footer();

close($reader) or warn "cannot close: $!";

wait;

}

Line 1762 sub doCheckout($$) {

Line 1797 sub doCheckout($$) {

$ENV{QUERY_STRING});

}

if (&forbidden_file($fullname)) {

fatal("403 Forbidden",

'Access forbidden. This file is mentioned in @ForbiddenFiles');

return;

}

# get mimetype

if (defined($input{"content-type"})

&& ($input{"content-type"} =~ /\S\/\S/))

Line 2086 sub getDirLogs($$@) {

Line 2115 sub getDirLogs($$@) {

push (@files, &safeglob("$DirName/*,v"));

push (@files, &safeglob("$DirName/Attic/*,v"))

if (!$input{'hideattic'});

foreach $file (@otherFiles) {

foreach my $file (@otherFiles) {

push (@files, "$DirName/$file");

}

Line 2763 sub printLog($;$) {

Line 2792 sub printLog($;$) {

printDiffLinks($input{'r1'}, $url);

}

print '<br>' if $diff;

}

print "\n</p>\n<pre>\n";

print &htmlify($log{$_}, $allow_log_extra);

Line 2825 sub doLog($) {

Line 2853 sub doLog($) {

|| $input{$_} ne $DEFAULTVALUE{$_}) && $input{$_} ne ""));

}

print "<table style=\"border: none\">\n<tr>\n";

print "<td align=\"right\">Diffs between \n";

print "<td align=\"right\">";

print "<select name=\"r1\">\n";

print "<label for=\"r1\" accesskey=\"1\">Diffs between </label>\n";

print "<select id=\"r1\" name=\"r1\">\n";

print "<option value=\"text\" selected>Use Text Field</option>\n";

print $sel;

print "</select>\n";

$diffrev = $revdisplayorder[$#revdisplayorder];

$diffrev = $input{"r1"} if (defined($input{"r1"}));

"<input type=\"text\" size=\"$inputTextSize\" name=\"tr1\" value=\"$diffrev\" onchange=\"document.diff_select.r1.selectedIndex=0\"></td>\n";

"<input type=\"text\" size=\"$inputTextSize\" name=\"tr1\" value=\"$diffrev\" onchange=\"this.form.r1.selectedIndex=0\"></td>\n";

print "<td><br></td>\n</tr>\n";

print "<tr>\n<td align=\"right\">and \n";

print "<tr>\n<td align=\"right\">";

print "<select name=\"r2\">\n";

print "<label for=\"r2\" accesskey=\"2\">and </label>\n";

print "<select id=\"r2\" name=\"r2\">\n";

print "<option value=\"text\" selected>Use Text Field</option>\n";

print $sel;

print "</select>\n";

$diffrev = $revdisplayorder[0];

$diffrev = $input{"r2"} if (defined($input{"r2"}));

"<input type=\"text\" size=\"$inputTextSize\" name=\"tr2\" value=\"$diffrev\" onchange=\"document.diff_select.r2.selectedIndex=0\"></td>\n";

"<input type=\"text\" size=\"$inputTextSize\" name=\"tr2\" value=\"$diffrev\" onchange=\"this.form.r2.selectedIndex=0\"></td>\n";

print "<td><input type=\"submit\" value=\" Get Diffs \"></td>\n";

print "<td><input type=\"submit\" value=\" Get Diffs \" accesskey=\"G\"></td>\n";

print "</tr>\n</table>\n";

print "</form>\n";

print "<hr noshade>\n";

print "<form method=\"get\" action=\"$scriptwhere\">\n";

print "<table style=\"border: none\">\n";

print "<tr>\n<td align=\"right\">Preferred Diff type:</td>\n";

print "<tr>\n<td align=\"right\">";

print "<label for=\"f\" accesskey=\"D\">Preferred Diff type:";

print "</label></td>\n";

print "<td>";

printDiffSelect($use_java_script);

print "</td>\n<td></td>\n</tr>\n";

if (@branchnames) {

print "<tr>\n<td align=\"right\">View only Branch:</td>\n";

print "<tr>\n<td align=\"right\">";

print "<label for=\"only_with_tag\" accesskey=\"B\">";

print "View only Branch:</label></td>\n";

print "<td>";

print "<a name=\"branch\"></a>\n";

print "<select name=\"only_with_tag\"";

print "<select id=\"only_with_tag\" name=\"only_with_tag\"";

print " onchange=\"this.form.submit()\"" if $use_java_script;

print ">\n";

print "<option value=\"\"";

Line 2889 sub doLog($) {

Line 2923 sub doLog($) {

}

print "<tr>\n<td align=\"right\">";

print "<a name=\"logsort\"></a>\n";

print "Sort log by:</td>\n";

print "<label for=\"logsort\" accesskey=\"L\">Sort log by:";

print "<td>";

print "</label></td>\n<td>";

printLogSortSelect($use_java_script);

print "</td>\n";

print "<td><input type=\"submit\" value=\" Set \"></td>\n";

print "<td><input type=\"submit\" value=\" Set \" accesskey=\"S\"></td>\n";

print "</tr>\n</table>\n";

print "</form>\n";

html_footer();

Line 3146 sub navigateHeader($$$$$) {

Line 3180 sub navigateHeader($$$$$) {

$HTML_DOCTYPE

<html>

<head>

<title>$path$filename - $title - $rev</title>$css

</head>

$HTML_META</head>

$body_tag_for_src

Line 3281 sub chooseCVSRoot() {

Line 3311 sub chooseCVSRoot() {

# isn't gray and the form elements are not placed

# within a table ...

print "<table style=\"border: none\">\n<tr>\n";

print "<td>CVS Root:</td>\n";

print "<td><label for=\"cvsroot\" accesskey=\"C\">CVS Root:</label></td>\n";

print "<td>\n<select name=\"cvsroot\"";

print "<td>\n<select id=\"cvsroot\" name=\"cvsroot\"";

print " onchange=\"this.form.submit()\"" if $use_java_script;

print ">\n";

Line 3301 sub chooseCVSRoot() {

Line 3331 sub chooseCVSRoot() {

print "CVS Root: <b>[$cvstree]</b>";

}

print " Module path or alias:\n";

print " <label for=\"mpath\" accesskey=\"M\">Module path or alias:";

print "<input type=\"text\" name=\"path\" value=\"\" size=\"15\">\n";

print "</label>\n";

print "<input type=\"submit\" value=\"Go\">";

print "<input type=\"text\" id=\"mpath\" name=\"path\" value=\"\" size=\"15\">\n";

print "<input type=\"submit\" value=\"Go\" accesskey=\"O\">";

if (2 <= @CVSROOT) {

print "</td>\n</tr>\n</table>";

Line 3314 sub chooseCVSRoot() {

Line 3345 sub chooseCVSRoot() {

}

sub chooseMirror() {

my ($mirror, $moremirrors);

$moremirrors = 0;

# This code comes from the original BSD-cvsweb

# and may not be useful for your site; If you don't

# set %MIRRORS this won't show up, anyway

# set %MIRRORS this won't show up, anyway.

scalar(%MIRRORS) or return;

# Should perhaps exlude the current site somehow..

if (keys %MIRRORS) {

print "\nThis cvsweb is mirrored in:\n";

foreach $mirror (keys %MIRRORS) {

# Should perhaps exclude the current site somehow...

print ", " if ($moremirrors);

print "\n<p>\nThis CVSweb is mirrored in\n";

print &link(htmlquote($mirror), $MIRRORS{$mirror});

$moremirrors = 1;

my @tmp = map(&link(htmlquote($_), $MIRRORS{$_}),

}

sort keys %MIRRORS);

print "<p>\n";

my $tmp = pop(@tmp);

if (scalar(@tmp)) {

print join(', ', @tmp), ' and ';

}

print "$tmp.\n</p>\n";

}

sub fileSortCmp() {

Line 3359 sub fileSortCmp() {

Line 3390 sub fileSortCmp() {

if ($comp == 0) {

# Directories first, then sorted on name if no other sort critera

# Directories first, then files under version control,

# available.

# then other, "rogue" files.

my $ad = ((-d "$fullname/$a") ? "D" : "F");

# Sort by filename if no other criteria available.

my $bd = ((-d "$fullname/$b") ? "D" : "F");

my $ad = ((-d "$fullname/$a") ? 'D'

: (defined($fileinfo{$af}) ? 'F' : 'R'));

my $bd = ((-d "$fullname/$b") ? 'D'

: (defined($fileinfo{$bf}) ? 'F' : 'R'));

($c = $a) =~ s|.*/||;

($d = $b) =~ s|.*/||;

$comp = ("$ad$c" cmp "$bd$d");

Line 3422 sub download_link($$$;$) {

Line 3457 sub download_link($$$;$) {

# currently, the best way is to comment out the size parameters

# ($extern_window...) in cvsweb.conf.

if ($use_java_script) {

my @attr = qw(resizeable scrollbars);

my @attr = qw(resizable scrollbars);

push @attr, qw(status toolbar)

if (defined($mimetype) && $mimetype eq "text/html");

Line 3439 sub download_link($$$;$) {

Line 3474 sub download_link($$$;$) {

# the same window *twice*.

printf

q` onclick="window.open('%s','cvs_checkout','%s');return false"`,

hrefquote($fullurl), join (',', @attr);

hrefquote("$fullurl$barequery"), join (',', @attr);

}

print "><b>$textlink</b></a>";

Line 3594 sub html_header($) {

Line 3629 sub html_header($) {

$HTML_DOCTYPE

<html>

<head>

<title>$title</title>

$HTML_META</head>

</head>

$body_tag

$logo <h1 align="center">$title</h1>

EOH

}

sub html_footer() {

print "<hr noshade>\n<address>$address</address>\n</body>\n</html>\n";

print "<hr noshade>\n<address>$address</address>\n" if $address;

print "</body>\n</html>\n";

}

sub link_tags($) {

CVSweb