Posted to tcl by Colin at Tue Sep 16 06:54:17 GMT 2008view raw
- Coco init said {r {
- set r [yield [Http Ok+ [yield] [<form> said "[<text> stuff][<submit> ok]"]]]
- Query qvars [Query parse $r] stuff
- return [Http Ok+ [yield [Http Ok+ $r [<a> href . "click here"]]] [<p> "You said: $stuff"]]
- }}