Since I upgraded to version 3.2 I can't POST anymore. All the
examples that come with the server seem to work fine like file
upload and mixed POST/GET.
The request seems to come in fine, it's logged, and then it just
seems to hang. If I change the POST to a GET it works like I would
expect it to. Anyone else experienced this or have a suggestion...
I've added the script I'm using below....
Derek
#!/bin/sh
# \
exec tclsh "$0" ${1+"$0}
if {[catch {
package require ncgi
lappend auto_path [pwd]
set vars [ncgi::parse]
set action [ncgi::value action]
set profile [ncgi::cookie profile]
ncgi::header
if {[string compare $action "posttest"] == 0} {
puts "
<H1>Post Results</H1>
text1: [ncgi::value text1]
"
} else {
puts "
<H1>Post Test </H1>
<FORM ACTION=\"[file tail [info script]]\" METHOD=\"POST\">
<INPUT TYPE=HIDDEN NAME=\"action\" VALUE=\"posttest\">
<TABLE>
<TR>
<TD>
<INPUT TYPE=TEXT NAME=text1>
</TD>
</TR>
<TR>
<TD>
<INPUT TYPE=SUBMIT VALUE=\"Go\">
</TD>
</TR>
</TABLE>
</FORM>
"
}
}]} {
#--Catch Errors
puts "Content-Type: text/html\n"
puts "<PRE>$errorInfo</PRE>"
exit 0
}
