Posted to tcl by colin at Mon Dec 26 15:23:40 GMT 2011view raw
- variable istate DISPATCH
- catch {
- set r1 [::Dispatcher pre $r]
- dict set r1 -time dispatch [expr {[clock microseconds] - [dict get $r -time connected]}]
- ::Dispatcher do REQUEST $r1
- } rsp eo ;# process the request
- set istate POSTPROCESS
- dict set r -time postprocess [expr {[clock microseconds] - [dict get $r -time connected]}]