diff --git a/en/cgi/cgi-style.pl b/en/cgi/cgi-style.pl
index 72e571204d..64cf80d2ec 100644
--- a/en/cgi/cgi-style.pl
+++ b/en/cgi/cgi-style.pl
@@ -1,77 +1,81 @@
-# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.14 1999/09/06 07:02:40 peter Exp $
+# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.15 2000/01/05 15:47:42 phantom Exp $
#
# Perl routines to encapsulate various elements of HTML page style.
# For future reference, when is now?
($se,$mn,$hr,$md,$mo,$yr,$wd,$yd,$dst) = localtime(time);
$yr += 1900;
$mo += 1;
$timestamp = "$mo-$md-$yr";
# Colors for the body
$t_body = "";
if (!defined($hsty_base)) {
$hsty_base = "..";
}
if (!defined($hsty_email)) {
$hsty_email = "www\@FreeBSD.org";
}
if (!defined($hsty_author)) {
$hsty_author = "$hsty_email";
}
+if (!defined($hsty_date)) {
+ $hsty_date = "";
+}
+
$i_topbar = "![\"Navigation](\"$hsty_base/gifs/bar.gif\")
";
-if ($hsty_home eq "") {
+if (!defined($hsty_home)) {
$hsty_home = "![\"FreeBSD](\"$hsty_base/gifs/home.gif\")
";
}
sub html_header {
local ($title) = @_;
return "Content-type: text/html\n\n" .
"\n$title\n" .
"\n\n$t_body\n" .
"$i_topbar $title
\n";
}
sub short_html_header {
local ($title) = @_;
return "Content-type: text/html\n\n" .
"\n$title\n" .
"\n\n$t_body\n" .
"$i_topbar";
}
sub html_footer {
return "
$hsty_author
$hsty_date\n";
}
sub get_the_source {
return if $ENV{'PATH_INFO'} ne '/get_the_source';
open(R, $0) || do {
print "Oops! open $0: $!\n"; # should not reached
exit;
};
print "Content-type: text/plain\n\n";
while() { print }
close R;
exit;
}