#! /usr/local/bin/srinterpreter

Destination = ARGV[0]
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 { |rep|   
                            probe = Scriptroute::Icmp.new(16) 
                            probe.ip_dst = xprobe.ip_dst
                            probe.icmp_type = Scriptroute::Icmp::ICMP_ECHO
                            probe.icmp_code = 0
                            probe.icmp_seq = rep
                            Struct::DelayedPacket.new( (rep>1) ? -Math.log(rand)*AvgIntervalSec : 0, 
                                                      probe ) } )

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 #{xprobe.ip_dst} timed out"
  end
}