On Mon, 2005-09-26 at 15:09 -0400, Dossy Shiobara wrote:
> No, I don't think it's NSAdmin.  Rob Seeger should have a better
> explanation as to why this bug is happening, I think.  I'll try to dig
> through my email, unless he beats me to it.

Ok, I can duplicate the bug now.  Here is the code.  Try it once, then
on the next time through, insert a # and CR on the first line.

<html>
<body>
<%

  if { [string equal [ns_conn method] POST] } {
    set tcl [ns_queryget tcl]
    regsub -all "\r\n" $tcl "\n" tcl
    if [catch { ns_eval $tcl }] {
      ns_puts "<font color='red'>$::errorInfo</font><hr>"
    } else {
      ns_puts "ok<hr>"
    }
  } else {
    set tcl "proc test { arg } { set arg 1 }"
  }

  ns_puts "
<form method='POST' action='test.adp'>
<textarea wrap='off' rows='10' cols='60' name='tcl'>[ns_quotehtml 
$tcl]</textarea><br />
<input type=submit>
</form>"

%>
</body>
</html>

-- 
| ---------------------------------------------------------------
| Daniel P. Stasinski         | http://www.disabilities-r-us.com/
| [EMAIL PROTECTED]        | http://www.scriptkitties.com/
| --------------------------- | ---------------------------------
| Jabber: [EMAIL PROTECTED] | Google Talk: mooooooo


--
AOLserver - http://www.aolserver.com/

To Remove yourself from this list, simply send an email to <[EMAIL PROTECTED]> 
with the
body of "SIGNOFF AOLSERVER" in the email message. You can leave the Subject: 
field of your email blank.

Reply via email to