Posted to tcl by gwlester at Wed Apr 29 17:50:00 GMT 2009view pretty
ΓΏ#!/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>}