[Tclhttpd-users] CGI POST bug fix

[Donald G P. <dgp...@er...>]

While I was testing out TIP #13 with tclhttpd 2.3.6, I had to make
the following patch to get handling of POST requests working smoothly.
I don't know whether a similar patch might be useful in tclhttpd 3.x:

*** tmp/tclhttpd2.3.6/lib/cgi.tcl	Wed Dec  1 01:34:55 1999
--- tclhttpd2.3.6/lib/cgi.tcl	Tue Nov 14 10:53:51 2000
***************
*** 294,299 ****
--- 294,300 ----
  	    # of response to make
  
  	    if {[gets $fd line] <= 0} {
+ 	      if {![fblocked $fd]} {
  		set data(header) 1
  		puts $sock "HTTP/1.0 $data(headercode)"
  		puts $sock "Server: $Httpd(server)"
***************
*** 304,309 ****
--- 305,311 ----
  		}
  		puts $sock ""
  		flush $sock
+ 	      }
  	    } else {
  		lappend data(headerlist) $line
  		if {[regexp -nocase ^(location|uri): $line]} {

-- 
| Don Porter          Mathematical and Computational Sciences Division |
| don...@ni...             Information Technology Laboratory |
| http://math.nist.gov/~DPorter/                                  NIST |
|______________________________________________________________________|