Posted to tcl by gwlester at Wed Apr 29 17:50:00 GMT 2009view raw
- ΓΏ#!/usr/local/bin/tclsh8.5
- if {![info exists env(HOME)]} {
- set env(HOME) [file normalize ~gerald]
- }
- puts {}
- puts {<body>}
- foreach var [array names env] {
- puts "<br>$var = {$env($var)}"
- }
- puts {}
- puts {}
- puts [file normalize ~gerald]
- puts {}
- puts {}
- foreach var [info vars] {
- if {[array exists $var]} {
- foreach item [array names var] {
- puts [format {%s(%s) = {%s}} $var $item [set [format {%s($item)}] $var]]
- }
- } else {
- puts "<br>$var = {[set $var]}"
- }
- }
- set status [catch {
- package require sqlite3
- package require ncgi
- package require html
- ::html::author {Gerald W. Lester of KnG-Consulting, LLC}
- ::html::meta {HTTP-EQUIV "CACHE-CONTROL" CONTENT "NO-CACHE"}
- ::html::meta {HTTP-EQUIV "PRAGMA" CONTENT "NO-CACHE"}
- ::html::head {Olson 30 Hull Database}
- ::html::bodyTag
- ::html::h1 {Olson 30 Hull Database}
- ::html::end
- } msg]
- puts ""
- puts "Status = {$status}"
- puts ""
- puts "msg = {$msg}"
- puts ""
- puts {</body>}