Posted to tcl by colin at Mon Dec 26 15:23:40 GMT 2011view raw

  1. variable istate DISPATCH
  2. catch {
  3. set r1 [::Dispatcher pre $r]
  4. dict set r1 -time dispatch [expr {[clock microseconds] - [dict get $r -time connected]}]
  5. ::Dispatcher do REQUEST $r1
  6. } rsp eo ;# process the request
  7. set istate POSTPROCESS
  8. dict set r -time postprocess [expr {[clock microseconds] - [dict get $r -time connected]}]