script:#! /usr/local/bin/srinterpreter
Destination = "134.79.18.188"
Probes = ARGV.length>1 ? ARGV[1].to_i : 10
AvgIntervalSec = 10.0/Probes.to_f; # hmm, didn't get this right.
xprobe = Scriptroute::Icmp.new(16)
xprobe.ip_dst = Destination
packets =
Scriptroute::send_train( ( 1..Probes ).map
)
packets.each { |tuple|
if( tuple.response ) then
response = tuple.response.packet
rtt = (response) ? ((tuple.response.time - tuple.probe.time) * 1000.0) : '*'
if tuple.response.packet.icmp_type != Scriptroute::Icmp::ICMP_ECHOREPLY then
puts "Received: " tuple.response.packet.to_s
else
puts tuple.response.packet.ip_len.to_s ' bytes from '
tuple.response.packet.ip_src
': icmp_seq=' tuple.probe.packet.icmp_seq.to_s
' ttl=' tuple.probe.packet.ip_ttl.to_s
' time=%5.3f ms' % rtt
end
else
puts "To #
timed out"
end
}
credentials:251;v1;kalim@slac.stanford.edu;134.79/16;1256421401;(s #32FFDF5C5DCB7F8F8149EF12532E244548A3166D0DA478888B05ABE1CA654CE0#)