home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 18_2.tcl < prev    next >
Text File  |  2003-04-16  |  682b  |  33 lines
  1. #
  2. # Example 18-2
  3. # A simple URL domain.
  4. #
  5.  
  6. Url_PrefixInstall /simple [list SimpleDomain /simple]
  7.  
  8. proc SimpleDomain {prefix sock suffix} {
  9.     upvar #0 Httpd$sock data
  10.  
  11.     # Generate page header
  12.  
  13.     set html "<title>A simple page</title>\n"
  14.     append html "<h1>$prefix$suffix</h1>\n"
  15.     append html "<h1>Date and Time</h1>\n"
  16.     append html [clock format [clock seconds]]
  17.  
  18.     # Display connection state
  19.  
  20.     append html "<h1>Connection State</h1>"
  21.     append html [html::tableFromArray data border=1]
  22.  
  23.     # Display query data
  24.  
  25.     if {[info exist data(query)]} {
  26.         append html "<h1>Query Data</h1>\n"
  27.         append html [html::tableFromList [ncgi::nvlist] border=1]
  28.     }
  29.     Httpd_ReturnData $sock text/html $html
  30. }
  31.  
  32.  
  33.