#! ../scotty -nf
##
## Simply probe all RPC services on a given host
##

proc probe {host} {
    foreach s [rpc info $host] {
        set err [catch { set p [eval "rpc probe $host $s"] }]
        if {$err==0} {
            puts stdout "$host: $s\t$p"
        } else {
            puts stdout "$host: $s\t(probe failed)"
        }
    }
}

if {$argc<1} {
    puts stderr "usage: rpcprobe hostnames"
    exit
}

foreach name $argv {
    probe $name
}

