#!/usr/local/bin/tclsh8.4
# The exec tclsh<whatever>'' below will simply be ignored.
# \
if [ -e /usr/bin/tclsh ]; then exec /usr/bin/tclsh "$0" ${1+"$@"} ; fi
# \
if [ -e /usr/local/bin/tclsh8.4 ]; then exec /usr/local/bin/tclsh8.4 "$0" ${1+"$@"} ; fi
# \
if [ -e /usr/local/bin/tclsh8.3 ]; then exec /usr/local/bin/tclsh8.3 "$0" ${1+"$@"} ; fi
# \
if [ -e /usr/bin/tclsh8.4 ]; then exec /usr/bin/tclsh8.4 "$0" ${1+"$@"} ; fi
# \
exec tclsh "$0" ${1+"$@"}

puts "Content-Type: text/html"
puts ""
puts "<title>The environment</title>"

if {[catch {
    puts [info hostname]<p>
    close [socket 127.0.0.1 5000]
    source prodebug.tcl
    if {![debugger_init 127.0.0.1 5000]} {
	puts "debugger_init failed"
	puts "<pre>$errorInfo</pre>"
    } else {
	puts "Contacted the debugger"
    }
} err]} {
    puts "<pre>$errorInfo</pre>"
}

debugger_eval {
    puts "<H1>The environment</h1>"
    puts <table>
    foreach name [lsort [array names env]] {
	    puts "<tr><td>$name</td><td>$env($name)</td></tr>"
    }
    puts </table>
}
exit 0