Posted to tcl by Colin at Tue Sep 16 06:54:17 GMT 2008view raw

  1. Coco init said {r {
  2. set r [yield [Http Ok+ [yield] [<form> said "[<text> stuff][<submit> ok]"]]]
  3. Query qvars [Query parse $r] stuff
  4. return [Http Ok+ [yield [Http Ok+ $r [<a> href . "click here"]]] [<p> "You said: $stuff"]]
  5. }}
  6.