5 # Produce a page containing all FastCGI inputs
7 # Copyright (c) 1996 Open Market, Inc.
9 # See the file "LICENSE.TERMS" for information on usage and redistribution
10 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12 # $Id: echo-tcl,v 1.1 1997/09/16 15:36:28 stanleyg Exp $
15 proc printEnv {label envArrayName} {
16 upvar $envArrayName envArray
17 puts "$label:<br>\n<pre>"
18 foreach name [lsort [array names envArray]] {
19 puts "$name=$envArray($name)"
24 foreach name [array names env] {
25 set initialEnv($name) $env($name)
28 while {[FCGI_Accept] >= 0 } {
30 puts -nonewline "Content-type: text/html\r\n\r\n"
31 puts "<title>FastCGI echo (Tcl)</title>"
32 puts "<h1>FastCGI echo (Tcl)</h1>"
33 puts "Request number $count <p>"
34 if [info exists env(CONTENT_LENGTH)] {
35 set len $env(CONTENT_LENGTH)
40 puts "No data from standard input.<p>"
42 puts "Standard input:<br>\n<pre>"
43 for {set i 0} {$i < $len} {incr i} {
46 puts -nonewline "Error: Not enough bytes received "
47 puts "on standard input<p>"
54 printEnv "Request environment" env
55 printEnv "Initial environment" initialEnv