Re^3: Solution to broken Net::Ping

[Generoso]

You may want to try.

#!/usr/bin/perl -w

use strict;
use Net::Ping;    
$| = 1;
my @hosts = <DATA>;
my @proto = ("tcp", "udp", "icmp", "stream", "syn");
foreach my $pro ( @proto ) {
    print "\nProtocol $pro \n";
    my $p = Net::Ping->new($pro);
    foreach my $host( @hosts ) {
        chomp($host);
 # Specify source interface of pings
        print "$host is ";        
        print "NOT " unless $p->ping($host, 2);        
        print "reachable.\n"; 
    }  
    $p->close();  
}
exit;

__DATA__
127.0.0.1
www.perlmonks.com

[solignis]

ll it seems my script works like should when I on my local network. Where I run into problems is when I am on my vpn. If I run the script while connected to the VPN it cannot ping the host. If I place the script on a server within the network it works fine. So now I need to find out why it is not pinging over the VPN because I do most of my work over it.

<Disregard my ramblings above>

I found the issue to the above problem, my "dev" box is a VM, VMware is preforming NAT to the VMs on my laptop. Then on top of that OpenVPN is performing NAT again which seems to be causing problems. If I connect OpenVPN directly to the VM the ping test using my script works like it should.

[Anonymous Monk]

Thanks, I already did :)