summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--CGI.pl3
-rw-r--r--defparams.pl5
2 files changed, 6 insertions, 2 deletions
diff --git a/CGI.pl b/CGI.pl
index 21f5c8c77..a1ced72ea 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -921,8 +921,7 @@ sub PutHeader {
print "<HTML><HEAD>\n<TITLE>$title</TITLE>\n";
print Param("headerhtml") . "\n$jscript\n</HEAD>\n";
- print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\"\n";
- print "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\" $extra>\n";
+ print "<BODY " . Param("bodyhtml") . " $extra>\n";
print PerformSubsts(Param("bannerhtml"), undef);
diff --git a/defparams.pl b/defparams.pl
index 3a767f84f..7407b65c2 100644
--- a/defparams.pl
+++ b/defparams.pl
@@ -238,6 +238,11 @@ DefParam("headerhtml",
"l",
'');
+DefParam("bodyhtml",
+ "Additional parameters to add to the BODY tag at the beginning of documents, eg. background image/colors, link colors, etc",
+ "l",
+ 'BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000"');
+
DefParam("footerhtml",
"HTML to add to the bottom of every page. By default it displays the blurbhtml, and %commandmenu%, a menu of useful commands. You probably really want either headerhtml or footerhtml to include %commandmenu%.",
"l",