From 548d8d045b4cfdfa54f207e05cf351d6f09f0e66 Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Tue, 1 Sep 1998 11:33:37 +0000 Subject: Added parameters to specify the HTML that goes at the top of every page. The banner.html and blurb.html files are now obsolete! --- CGI.tcl | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) (limited to 'CGI.tcl') diff --git a/CGI.tcl b/CGI.tcl index c368ed8a4..8adecab36 100755 --- a/CGI.tcl +++ b/CGI.tcl @@ -289,22 +289,12 @@ name=PleaseMailAPassword> } -proc CopyOut {filename} { - if {[file exists $filename]} { - set fid [open $filename "r"] - while {[gets $fid line] > 0} { - puts $line - } - close $fid - } -} - proc PutHeader {title h1 {h2 ""}} { puts "$title"; puts ""; - CopyOut "banner.html" + puts [Param bannerhtml] puts ""; puts " \n"; @@ -319,7 +309,7 @@ proc PutHeader {title h1 {h2 ""}} { puts " \n"; puts "
\n"; - CopyOut "blurb.html" + puts [Param blurbhtml] puts "
\n"; -- cgit v1.2.3-24-g4f1b