Posted to tcl by jdc at Wed Jan 05 14:29:39 GMT 2011view raw
- proc /testsuspend { req } {
- after 10000 [ list WikitWub::slowrequest $req]
- return [Httpd Suspend $req]
- }
- proc slowrequest { req } {
- set C {}
- append C [<h1> "Download XML-File"]
- dict set req -content $C
- Httpd Resume [Http Ok $req]
- return $req
- }