Source of error.tcl
if { [clock clicks -milliseconds] % 2 } { lappend problems is_odd "You caught the page on an odd tick." lappend problems another_thing "This is just another error." } if { [info exists problems] } { request error {*}$problems # Note that you must explicitly return from the Tcl script following an error. return } # Set up some data sources... # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: