Someone

    #####################################
    # End of burst
    #####################################
    puts "before: [lindex $arg 1]"
    } elseif {[string equal -nocase "eob" [lindex $arg 1]]} {
    puts "in"
      if {$srv(debug)} {
        puts "SERVER <-- :$srv(vhst) EOB"
      }
      puts $s ":$srv(vhst) EOB"
      foreach x [array names bind_type] {
      	puts "inforeach $x"
        if {[string equal -nocase "evnt" $bind_type($x)] && [string equal -nocase "eob" $bind_trig($x)]} {
          puts "send bind $bind_cmd($x)"
          $bind_cmd($x) [clock seconds]
        }
      }   
    #####################################
    # Connect event
    #####################################