Posted to tcl by gwlester at Wed Apr 29 17:50:00 GMT 2009view raw

  1. ΓΏ#!/usr/local/bin/tclsh8.5
  2.  
  3. if {![info exists env(HOME)]} {
  4. set env(HOME) [file normalize ~gerald]
  5. }
  6.  
  7. puts {}
  8. puts {<body>}
  9.  
  10. foreach var [array names env] {
  11. puts "<br>$var = {$env($var)}"
  12. }
  13.  
  14. puts {}
  15. puts {}
  16. puts [file normalize ~gerald]
  17. puts {}
  18. puts {}
  19.  
  20. foreach var [info vars] {
  21. if {[array exists $var]} {
  22. foreach item [array names var] {
  23. puts [format {%s(%s) = {%s}} $var $item [set [format {%s($item)}] $var]]
  24. }
  25. } else {
  26. puts "<br>$var = {[set $var]}"
  27. }
  28. }
  29.  
  30. set status [catch {
  31.  
  32. package require sqlite3
  33. package require ncgi
  34. package require html
  35.  
  36. ::html::author {Gerald W. Lester of KnG-Consulting, LLC}
  37. ::html::meta {HTTP-EQUIV "CACHE-CONTROL" CONTENT "NO-CACHE"}
  38. ::html::meta {HTTP-EQUIV "PRAGMA" CONTENT "NO-CACHE"}
  39. ::html::head {Olson 30 Hull Database}
  40.  
  41. ::html::bodyTag
  42. ::html::h1 {Olson 30 Hull Database}
  43.  
  44.  
  45.  
  46. ::html::end
  47. } msg]
  48.  
  49. puts ""
  50. puts "Status = {$status}"
  51. puts ""
  52. puts "msg = {$msg}"
  53. puts ""
  54.  
  55. puts {</body>}