Artifact 98a9bbd4fabfdb7796fb9fc517981ff7a6bf4609:

• Executable file htdocs/access/auth/test.cgi — part of check-in [055404e4a8] at 2000-05-05 20:54:15 on branch trunk — Test file for REMOTE_USER passthrough to CGI scripts (user: welch size: 558)
• Executable file htdocs/cgi-bin/test.cgi — part of check-in [7dcb921f86] at 2000-04-19 19:11:41 on branch trunk — Changes these samples to use tclsh8.3, and changes some to use ncgi and html modules from the Standard Tcl Library. (user: welch size: 558)

#!/bin/sh
# \
exec tclsh8.3 "$0" ${1+"$@"}

if {[catch {
    package require ncgi
    package require html

    ncgi::header
    html::head Hello
    flush stdout

    set query [ncgi::nvlist]

    puts [html::h1 "Hello, World!"]
    puts [html::h2 [clock format [clock seconds]]]

    puts [html::h3 "CGI Values"]
    puts [html::tableFromList $query]

    puts [html::h3 Environment]
    puts [html::tableFromArray env]
    flush stdout
    exit 0
}]} {
    puts "Content-Type: text/html\n"
    puts "<h1>CGI Error</h1>"
    puts "<pre>$errorInfo</pre>"
}