#!/usr/bin/tclsh
# tcl-cgi.tcl
# robert.bagwill@nist.gov, no warranty, no rights reserved
# print out command line args, stdin, and environment variables
#
set envvars {SERVER_SOFTWARE SERVER_NAME GATEWAY_INTERFACE SERVER_PROTOCOL SERVER_PORT REQUEST_METHOD PATH_INFO PATH_TRANSLATED SCRIPT_NAME QUERY_STRING REMOTE_HOST REMOTE_ADDR REMOTE_USER AUTH_TYPE CONTENT_TYPE CONTENT_LENGTH HTTP_ACCEPT}
puts "Content-type: text/HTML\n"
puts ""
puts ""
puts "CGI/1.0 TCL script report:"
puts ""
puts ""
puts "Environment Variables
"
puts ""
foreach var $envvars {
if {[info exists env($var)]} {
puts -nonewline "- $var"
eval {set val $env($var)}
if {[llength $val] > 1} {
puts "
- "
foreach subval [lsort $val] {
puts "$subval"
}
} else {
puts "
- $val"
}
}
}
puts "
"
puts ""
puts ""
######################
# end of tcl-cgi.tcl
######################