Miscellany

    #####################################
    # 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
#####################################