source: ResearchApps/Measurement/warpnet_framework/tclserver.tcl

# TCL Server for Azimuth Interaction
#
# Author: Siddharth Gupta

package require Azimuth-Sdk ;# needed to include Azimuth package

puts "Starting TCL server and listening on port 10102"

proc Azimuth_Server {port} {
    set s [socket -server ConnectionAccept $port]
    vwait forever
}

    
proc ConnectionAccept {sock addr port} {
    global connectedClient
    puts "Accept $sock from $addr port $port"
    
    if [info exists connectedClient] {
        close $connectedClient
        puts "Closed $connectedClient"
    }
    
    set connectedClient $sock
    
    fconfigure $sock -buffering line

    fileevent $sock readable [list DataAccept $sock]
}


proc DataAccept {sock} {
    global connectedClient

    if {[eof $sock] || [catch {gets $sock line}]} {
        close $sock
        puts "Closed $connectedClient"
        unset connectedClient
    } else {
        set success 0
        set reterr 0
        puts "Executing '$line'"
        if {[catch {eval $line} err]} {
            set reterr $err
        } else {
            set success 1
        }
        if {$success == 0} {
            puts $sock "ace_error: $reterr, command: $line"
        } else {
            puts $sock "ace_success: $line"
        }
    }
}


Azimuth_Server 10102