Service discovery over Majordomo in Tcl
#
# MMI echo query example
#
lappend auto_path .
package require MDClient 1.0
set verbose 0
foreach {k v} $argv {
if {$k eq "-v"} { set verbose 1 }
}
set session [MDClient new "tcp://localhost:5555" $verbose]
foreach service {echo nonexisting} {
set reply [$session send "mmi.service" $service]
if {[llength $reply]} {
puts "Lookup '$service' service: [lindex $reply 0]"
} else {
puts "E: no response from broker, make sure it's running"
break
}
}
$session destroy