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.30 and 1.1.1.32

version 1.1.1.30, 2002/05/22 07:00:03

version 1.1.1.32, 2002/07/07 04:31:41

Line 10

# 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>

# Based on:

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

Line 18

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

Line 43

Line 44

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

# SUCH DAMAGE.

# $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.102 2002/05/22 06:51:59 knu Exp $

# $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.112 2002/07/06 18:15:19 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 92 use vars qw (

Line 93 use vars qw (

$use_moddate $has_zlib $gzip_open

$allow_tar @tar_options @gzip_options @zip_options @cvs_options

$LOG_FILESEPARATOR $LOG_REVSEPARATOR

$tmpdir $HTML_DOCTYPE

$tmpdir $HTML_DOCTYPE $HTML_META

);

sub printDiffSelect($);

Line 104 sub htmlify($;$);

Line 105 sub htmlify($;$);

sub spacedHtmlText($;$);

sub link($$);

sub revcmp($$);

sub fatal($$);

sub fatal($$@);

sub redirect($);

sub safeglob($);

sub search_path($);

Line 147 sub forbidden_module($);

Line 148 sub forbidden_module($);

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

delete $ENV{PATH};

$cvsweb_revision = '2.0.2';

$cvsweb_revision = '2.0.4';

use File::Basename ();

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

Line 186 $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 237 $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 305 $maycompress =

Line 313 $maycompress =

@unsafevars = qw(logsort only_with_tag r1 r2 rev sortby tr1 tr2);

if (-f $config) {

do "$config" or &fatal(

do "$config" or fatal("500 Internal Error",

"500 Internal Error",

'Error in loading configuration file: %s<br><br>%s<br>',

sprintf(

$config, $@);

'Error in loading configuration file: %s<br><br>%s<br>',

$config,

&htmlify($@)

)

);

} else {

&fatal("500 Internal Error",

fatal("500 Internal Error",

'Configuration not found. Set the variable <code>$config</code> '

'Configuration not found. Set the variable <code>$config</code> in cvsweb.cgi to your <b>cvsweb.conf</b> configuration file first.'

. 'in cvsweb.cgi to your <b>cvsweb.conf</b> configuration file first.'

);

}

undef %input;

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

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

# Prevent cross-site scripting

foreach (@unsafevars) {

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

fatal("500 Internal Error", "Malformed query string ($_)");

fatal("500 Internal Error",

}

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

$_, $input{$_});

}

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

Line 447 $logsort = $input{'logsort'};

Line 451 $logsort = $input{'logsort'};

## Default CVS-Tree

if (!defined($CVSROOT{$cvstreedefault})) {

&fatal("500 Internal Error",

fatal("500 Internal Error",

"<code>\$cvstreedefault</code> points to a repository ($cvstreedefault) "

'<code>$cvstreedefault</code> points to a repository (%s) not defined in <code>%%CVSROOT</code> (edit your configuration file %s)',

. "not defined in <code>%CVSROOT</code> "

$cvstreedefault, $config);

. "(edit your configuration file $config)");

}

# alternate CVS-Tree, configured in cvsweb.conf

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

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

# Do some special configuration for cvstrees

if (-f $config_cvstree) {

do "$config_cvstree" or &fatal(

do "$config_cvstree" or

"500 Internal Error",

fatal("500 Internal Error",

sprintf(

'Error in loading configuration file: %s<br><br>%s<br>',

$config_cvstree, $@);

$config_cvstree,

&htmlify($@)

)

);

}

undef $config_cvstree;

Line 526 if ($rewrite) {

Line 525 if ($rewrite) {

undef $rewrite;

if (!-d $cvsroot) {

&fatal("500 Internal Error",

fatal("500 Internal Error",

'$CVSROOT not found!<p>The server on which the CVS tree lives is probably down. Please try again in a few minutes.'

'$CVSROOT not found!<p>The server on which the CVS tree lives is probably down. Please try again in a few minutes.');

);

}

Line 537 if (!-d $cvsroot) {

Line 535 if (!-d $cvsroot) {

$where =~ m:([^/]*):;

$module = $1;

if ($module && &forbidden_module($module)) {

&fatal("403 Forbidden", "Access to $where forbidden.");

fatal("403 Forbidden",

'Access to %s forbidden.',

$where);

}

# Handle tarball downloads before any headers are output.

if ($input{tarball}) {

&fatal("403 Forbidden", "Downloading tarballs is prohibited.")

fatal("403 Forbidden",

'Downloading tarballs is prohibited.')

unless $allow_tar;

my ($module) = ($where =~ m,^/?(.*),); # untaint

$module =~ s,/([^/]*)$,,;

Line 552 if ($input{tarball}) {

Line 553 if ($input{tarball}) {

my ($basedir) = ($module =~ m,([^/]+)$,);

if ($basedir eq '' || $module eq '') {

&fatal("500 Internal Error",

fatal("500 Internal Error",

"You cannot download the top level directory.");

'You cannot download the top level directory.');

}

my $tmpexportdir = "$tmpdir/.cvsweb.$$." . int(time);

mkdir($tmpexportdir, 0700)

or &fatal("500 Internal Error",

or fatal("500 Internal Error",

"Unable to make temporary directory: $!");

'Unable to make temporary directory: %s',

$!);

my @fatal;

Line 575 if ($input{tarball}) {

Line 577 if ($input{tarball}) {

if (system $CMD{cvs}, @cvs_options, '-Qd', $cvsroot, 'export', '-r',

$tag, '-d', "$tmpexportdir/$basedir", $module)

{

@fatal = ("500 Internal Error", "cvs co failure: $!: $module");

@fatal = ("500 Internal Error",

'cvs co failure: %s: %s',

$!, $module);

} else {

$| = 1; # Essential to get the buffering right.

Line 585 if ($input{tarball}) {

Line 589 if ($input{tarball}) {

system

"$CMD{tar} @tar_options -cf - -C $tmpexportdir $basedir | $CMD{gzip} @gzip_options -c"

and @fatal =

("500 Internal Error",

"tar zc failure: $!: $basedir");

'tar zc failure: %s: %s',

$!, $basedir);

} elsif ($ext eq '.zip' && $CMD{zip}) {

print "Content-Type: application/zip\r\n\r\n";

system

"cd $tmpexportdir && $CMD{zip} @zip_options -r - $basedir"

and @fatal =

("500 Internal Error", "zip failure: $!: $basedir");

("500 Internal Error",

'zip failure: %s: %s',

$!, $basedir);

} else {

@fatal =

("500 Internal Error", "unsupported file type");

("500 Internal Error",

'unsupported file type');

}

Line 612 if ($input{tarball}) {

Line 620 if ($input{tarball}) {

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

if (-d $fullname) {

my $dh = do { local (*DH); };

opendir($dh, $fullname) or &fatal("404 Not Found", "$where: $!");

opendir($dh, $fullname) or fatal("404 Not Found",

'%s: %s',

$where, $!);

my @dir = readdir($dh);

closedir($dh);

my @subLevelFiles = findLastModifiedSubdirs(@dir)

Line 628 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 1000 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 1013 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 1054 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 1066 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 1169 elsif (-f $fullname . ',v') {

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

}

&fatal("404 Not Found", "$where: no such file or directory");

fatal("404 Not Found",

'%s: no such file or directory',

$where);

}

gzipclose();

Line 1180 sub printDiffSelect($) {

Line 1199 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 1196 sub printDiffSelect($) {

Line 1215 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 1403 sub revcmp($$) {

Line 1422 sub revcmp($$) {

return 0;

}

sub fatal($$) {

sub fatal($$@) {

my ($errcode, $errmsg) = @_;

my ($errcode, $format, @args) = @_;

if ($is_mod_perl) {

Apache->request->status((split (/ /, $errcode))[0]);

} else {

print "Status: $errcode\r\n";

}

html_header("Error");

print "<p>Error: ", htmlquote($errmsg), "</p>\n";

print "<p>Error: ",

sprintf($format, map(htmlquote($_), @args)),

"</p>\n";

html_footer();

exit(1);

}

Line 1561 sub doAnnotate($$) {

Line 1582 sub doAnnotate($$) {

# make sure the revisions are wellformed, for security

# reasons ..

if ($rev =~ /[^\w.]/) {

&fatal("404 Not Found",

fatal("404 Not Found",

"Malformed query \"$ENV{QUERY_STRING}\"");

'Malformed query "%s"',

$ENV{QUERY_STRING});

}

if (&forbidden_file($fullname)) {

&fatal("403 Forbidden",

fatal("403 Forbidden",

"Access forbidden. This file is mentioned in \@ForbiddenFiles"

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

);

return;

}

Line 1587 sub doAnnotate($$) {

Line 1608 sub doAnnotate($$) {

# the cvsserver in a similiar way one day (..after rewrite)

$pid = open2($reader, $writer, $CMD{cvs}, @cvs_options, "server")

or fatal("500 Internal Error",

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

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

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

# Root /home/kingdon/zwork/cvsroot

Line 1722 sub doAnnotate($$) {

Line 1743 sub doAnnotate($$) {

# CVS command line client. But for simplicity, we don't.

} elsif ($words[0] eq "error") {

fatal("500 Internal Error",

"Error occured during annotate: <b>$_</b>");

'Error occured during annotate: <b>%s</b>',

$_);

}

Line 1750 sub doCheckout($$) {

Line 1772 sub doCheckout($$) {

# make sure the revisions a wellformed, for security

# reasons ..

if (defined($rev) && $rev =~ /[^\w.]/) {

&fatal("404 Not Found",

fatal("404 Not Found",

"Malformed query \"$ENV{QUERY_STRING}\"");

'Malformed query "%s"',

$ENV{QUERY_STRING});

}

if (&forbidden_file($fullname)) {

&fatal("403 Forbidden",

fatal("403 Forbidden",

"Access forbidden. This file is mentioned in \@ForbiddenFiles"

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

);

return;

}

Line 1805 sub doCheckout($$) {

Line 1827 sub doCheckout($$) {

}

if (eof($fh)) {

&fatal("404 Not Found", "$where is not (any longer) pertinent");

fatal("404 Not Found",

'%s is not (any longer) pertinent',

$where);

}

#===================================================================

Line 1829 sub doCheckout($$) {

Line 1853 sub doCheckout($$) {

}

if ($filename ne $where) {

&fatal("500 Internal Error",

fatal("500 Internal Error",

"Unexpected output from cvs co: $cvsheader");

'Unexpected output from cvs co: %s',

$cvsheader);

}

$| = 1;

Line 1924 sub doDiff($$$$$$) {

Line 1949 sub doDiff($$$$$$) {

my ($rev1, $rev2, $sym1, $sym2, $f1, $f2);

if (&forbidden_file($fullname)) {

&fatal("403 Forbidden",

fatal("403 Forbidden",

"Access forbidden. This file is mentioned in \@ForbiddenFiles"

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

);

return;

}

Line 1951 sub doDiff($$$$$$) {

Line 1975 sub doDiff($$$$$$) {

# make sure the revisions a wellformed, for security

# reasons ..

if ($rev1 =~ /[^\w.]/ || $rev2 =~ /[^\w.]/) {

&fatal("404 Not Found",

fatal("404 Not Found",

"Malformed query \"$ENV{QUERY_STRING}\"");

'Malformed query "%s"',

$ENV{QUERY_STRING});

}

Line 1967 sub doDiff($$$$$$) {

Line 1992 sub doDiff($$$$$$) {

my $difftype = $DIFFTYPES{$f};

if (!$difftype) {

fatal("400 Bad arguments", "Diff format $f not understood");

fatal("400 Bad arguments",

'Diff format %s not understood',

$f);

}

my @difftype = @{$difftype->{'opts'}};

Line 2261 sub getDirLogs($$@) {

Line 2288 sub getDirLogs($$@) {

}

if ($. == 0) {

fatal("500 Internal Error", "Failed to spawn GNU rlog on <em>'"

fatal("500 Internal Error",

. join (", ", @files)

'Failed to spawn GNU rlog on <em>"%s"</em>. <p>Did you set the <b>$command_path</b> in your configuration file correctly ? (Currently "%s"',

. "'</em><p>Did you set the <b>\$command_path</b> in your configuration file correctly ? (Currently '$command_path'"

join (", ", @files), $command_path);

);

}

close($fh);

}

Line 2352 sub readLog($;$) {

Line 2378 sub readLog($;$) {

# these lines since we don't know what revision they go with

# any more.

next logentry;

# &fatal("500 Internal Error","Error parsing RCS output: $_");

}

$_ = <$fh>;

print "D:", $_ if ($verbose);

Line 2373 sub readLog($;$) {

Line 2397 sub readLog($;$) {

$state{$rev} = $8;

$difflines{$rev} = $10;

} else {

&fatal("500 Internal Error",

fatal("500 Internal Error",

"Error parsing RCS output: $_");

'Error parsing RCS output: %s',

$_);

}

line:

Line 2481 sub readLog($;$) {

Line 2506 sub readLog($;$) {

if (!defined($onlyonbranch) || $onlybranchpoint eq "") {

fatal("404 Tag not found",

"Tag $input{'only_with_tag'} not defined");

'Tag %s not defined',

$input{'only_with_tag'});

}

Line 2752 sub printLog($;$) {

Line 2778 sub printLog($;$) {

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

}

print '<br>' if $diff;

}

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

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

Line 2814 sub doLog($) {

Line 2839 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 2878 sub doLog($) {

Line 2909 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 3135 sub navigateHeader($$$$$) {

Line 3166 sub navigateHeader($$$$$) {

$HTML_DOCTYPE

<html>

<head>

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

</head>

$HTML_META</head>

$body_tag_for_src

Line 3270 sub chooseCVSRoot() {

Line 3297 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 3290 sub chooseCVSRoot() {

Line 3317 sub chooseCVSRoot() {

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

}

print " Module path or alias:\n";

print " <label for=\"path\" accesskey=\"P\">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=\"path\" name=\"path\" value=\"\" size=\"15\">\n";

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

if (2 <= @CVSROOT) {

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

Line 3312 sub chooseMirror() {

Line 3340 sub chooseMirror() {

# Should perhaps exlude the current site somehow..

if (keys %MIRRORS) {

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

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

foreach $mirror (keys %MIRRORS) {

print ", " if ($moremirrors);

Line 3583 sub html_header($) {

Line 3611 sub html_header($) {

$HTML_DOCTYPE

<html>

<head>

<title>$title</title>

$HTML_META</head>

</head>

$body_tag

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

EOH

CVSweb