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

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]}]