All pastes #173748 Raw Edit

Mine

public text v1 · immutable
·published 2006-09-17 07:06 UTC
rendered paste body
  foreach x [array names bind_type] {
    if {[string equal -nocase "evnt" $bind_type($x)] && [string equal -nocase "peform" $bind_trig($x)]} {
       if {$srv(debug)} {
         puts "SERVER <-- PERFORM"
       }
       $bind_cmd($x) [clock seconds]
    }
  }