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>}