5 # Tcl FastCGI example program
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: tiny-tcl-fcgi,v 1.1 1997/09/16 15:36:29 stanleyg Exp $
16 while {[FCGI_Accept] >= 0 } {
18 puts -nonewline "Content-type: text/html\r\n\r\n"
19 puts "<title>FastCGI Hello! (Tcl)</title>"
20 puts "<h1>FastCGI Hello! (Tcl)</h1>"
21 puts "Request number $count running on host <i>$env(SERVER_NAME)</i>"