All pastes #173747 Raw Edit

Unnamed

public text v1 · immutable
·published 2006-09-17 07:05 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)]} {
       puts "SERVER <-- PERFORM"
       $bind_cmd($x) [clock seconds]
    }
  }