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

testthread {
    url /thread.txt
    code {
	return [Httpd Thread {
	    #expr {1/0}
	    after 10000
	    return [Http Ok $r $var:[clock format [clock seconds]] text/plain]
	} r $r var moop]
    }
    mime text/plain
}