I can hand my Routine to you people.
Use:
Start iptrace with
iptrace -i en1 -S 1500 -P ICMP /tmp/trace.bin
(when you kill iptrace use kill -15 important!!!)
Use this code
#####################################
use Net::Ping;
my $p; # Ping Objekt
my $r = 127.0.0.1; # Give any IP address
$p = new Net::Ping('icmp', 5);
#or
#$p = new Net::Ping('icmp', 5, 18); # Paketlaenge 60 Byte
# tcpdump -I -i en1 -s 200 -e| grep -i icmp
my $ping_elapsed = time();
$status = $p->ping($r);
$ping_elapsed = time() - $ping_elapsed;
return $status;
#######################################
Stop iptrace (like i said with kill -15)
Start it with iptrace -i en1 -S 1500 -P ICMP /tmp/trace_payload.bin
To get annother file.
Use this code
#####################################
use Net::Ping;
my $p; # Ping Objekt
my $r = 127.0.0.1; # Give any IP address
#$p = new Net::Ping('icmp', 5);
#or
$p = new Net::Ping('icmp', 5, 18); # Paketlaenge 60 Byte
# tcpdump -I -i en1 -s 200 -e| grep -i icmp
my $ping_elapsed = time();
$status = $p->ping($r);
$ping_elapsed = time() - $ping_elapsed;
return $status;
#######################################
Stop iptrace.
Post the .bin files you got from iptrace.
Post what system/os was used. Thanks!!
You can open the files with wireshark or ethereal.
-----Ursprüngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von
Tom Phoenix
Gesendet: Mittwoch, 16. Mai 2007 18:38
An: Angerstein
Cc: beginners@perl.org; [EMAIL PROTECTED]; [EMAIL PROTECTED]
Betreff: Re: Net::Ping Bug found?
On 5/16/07, Angerstein <[EMAIL PROTECTED]> wrote:
> So Please:
> Could somebody verify this on her/his own System?
I'm sure that many people will be glad to help you. Could you please
supply a small program that testers could run and send you the output?
Good luck with your project!
--Tom Phoenix
Stonehenge Perl Training
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
