diff --git a/en/cgi/cgi-style.pl b/en/cgi/cgi-style.pl
index c3b002e6f5..25d8fd2136 100644
--- a/en/cgi/cgi-style.pl
+++ b/en/cgi/cgi-style.pl
@@ -1,4 +1,4 @@
-# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.21 2005/09/13 17:36:15 remko Exp $
+# $FreeBSD: www/en/cgi/cgi-style.pl,v 1.22 2005/09/17 15:48:23 remko Exp $
#
# Perl routines to encapsulate various elements of HTML page style.
@@ -25,50 +25,167 @@ if (!defined($hsty_date)) {
# This can be set to either a string containing an inline CSS stylesheet
# or to a element that references an external CSS stylesheet, to
# make local modifications to the style of a CGI script's output.
-$t_style = "";
+$t_style = ""; # Don't allow script to override completely, just
+ # let the script's setting cascade with the master.
-$i_topbar = "
-";
+$i_topbar = qq`
+
+`;
+
+#XXX does anyone use this? I don't know what it should be in the new style.
if (!defined($hsty_home)) {
$hsty_home = "";
}
sub html_header {
- local ($title) = @_;
+ local ($title, $xhtml) = @_;
- return "Content-type: text/html\n\n" .
- '' .
- "\n\n\n$title\n" .
- "\n" .
- "\n$t_style\n\n\n" .
- "$i_topbar\n