$title
=
"Your CVS Tree"
;
$h1
=
"Your CVS Tree"
;
$intro
=
<<EOM;
This is a WWW interface to your CVS tree.
You can browse the file hierarchy by picking directories
(which have slashes after them, e.g. <b>src/</b>).
If you pick a file, you will see the revision history
for that file.
<p>
Selecting a revision number will download that revision of
the file. There is a link at each revision to display
diffs between that revision and the previous one, and
a form at the bottom of the page that allows you to
display diffs between arbitrary revisions.
<p>
Please send any suggestions, comments, etc. to:
EOM
$intro
.=
"<A HREF=\"mailto:"
.
$administrator
.
"\">"
.
$administrator
.
"</A>\n"
;
$shortinstr
=
<<EOM;
Click on a directory to enter that directory. Click on a file to display
its revision history and to get a chance to display diffs between revisions.
EOM
$tailhtml
="
<ADDRESS>
<A HREF=\"mailto:
$ENV
{SERVER_ADMIN}\">
$ENV
{SERVER_ADMIN}</A>
</ADDRESS>";
sub
html_header {
my
(
$title
) =
@_
;
return
"Content-type: text/html\n"
.
"pragma: no-cache\n\n"
.
"<html>\n<head><title>$title</title>\n</head>\n<body text=\"#000000\" bgcolor=\"#ffffff\">\n"
.
"<h1><font color=\"#660000\">$title</font></h1>\n"
;
}
sub
html_footer {
return
"<hr><address> Bill Fenner <fenner\@freebsd.org> (cvsweb) and Martin.Cleaver\@BCS.org.uk (cvswebedit)<br>$hsty_date</address>\n"
;
}
1;