diff options
| -rw-r--r-- | lib/network/tools.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/network/tools.pm b/lib/network/tools.pm index efa38f9..1b49572 100644 --- a/lib/network/tools.pm +++ b/lib/network/tools.pm @@ -189,7 +189,8 @@ sub get_interface_status { my ($intf) = @_; $intf = get_real_interface($intf); my $routes = get_routes(); - return $routes->{$intf}{network}, $routes->{$intf}{network} eq '0.0.0.0' && $routes->{$intf}{gateway}; + return $routes->{$intf}{network}, + $routes->{$intf}{network} eq '0.0.0.0' && ($routes->{$intf}{gateway} || get_interface_ptp_address($intf)); } #- returns (gateway_interface, interface is up, gateway address, dns server address) @@ -243,6 +244,16 @@ sub get_interface_ip_address { $net->{ifcfg}{$interface}{IPADDR}; } +sub get_interface_ptp_address { + my ($interface) = @_; + my ($flags, $_link, $addrs) = `/sbin/ip addr show dev $interface`; + $flags =~ /\bPOINTOPOINT\b/ or return; + my ($peer) = $addrs =~ /peer\s+([\d.]+)/; + return $peer if $peer; + my ($addr) = $addrs =~ /inet\s+([\d.]+)/; + return $addr if $addr; +} + sub host_hex_to_dotted { my ($address) = @_; inet_ntoa(pack('N', unpack('L', pack('H8', $address)))); |