home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 3_4.tcl < prev    next >
Text File  |  2003-04-15  |  227b  |  18 lines
  1. #
  2. # Example 3-4
  3. # The Cgi_Header procedure.
  4. #
  5.  
  6. proc Cgi_Header {title {body {bgcolor=white text=black}}} {
  7.     puts stdout "Content-Type: text/html
  8.  
  9. <HTML>
  10. <HEAD>
  11. <TITLE>$title</TITLE>
  12. </HEAD>
  13. <BODY $body>
  14. <H1>$title</H1>"
  15. }
  16.  
  17.  
  18.