Freelance server, Model One in Tcl
#
# Freelance server - Model 1
# Trivial echo service
#
package require zmq
if {[llength $argv] != 1} {
puts "Usage: flserver1.tcl <endpoint>"
exit 1
}
zmq context context
zmq socket server context REP
server bind [lindex $argv 0]
puts "I: echo service is ready at [lindex $argv 0]"
while {1} {
set msg [zmsg recv server]
if {[llength $msg] == 0} {
break
}
zmsg send server $msg
}
server close
context term