Posted to tcl by colin at Thu Jan 06 07:26:35 GMT 2011view raw

  1. testthread {
  2. url /thread.txt
  3. code {
  4. return [Httpd Thread {
  5. #expr {1/0}
  6. after 10000
  7. return [Http Ok $r $var:[clock format [clock seconds]] text/plain]
  8. } r $r var moop]
  9. }
  10. mime text/plain
  11. }