##################################### # Raw event ##################################### } else { foreach x [array names bind_type] { if {[string equal -nocase "raw" $bind_type($x)] && [string match -nocase $bind_trig($x) [lindex $arg 1]] && [matchattr [lindex $arg 2] $bind_flag($x)]} { $bind_cmd($x) [lindex $arg 2] [lindex $arg 3] [string trimleft [join [lrange $arg 4 end]] \x3A] } } } } err foreach x [array names bind_type] { puts "inforeach $x" if {[string equal -nocase "evnt" $bind_type($x)] && [string equal -nocase "peform" $bind_trig($x)]} { puts "send bind $bind_cmd($x)" $bind_cmd($x) [clock seconds] } } if {![string equal {} $err]} { putlog "$err" } } ##################################### # Puts data to the service server # link without any prefixes #####################################