From 33226b4e857ed5ddbe7f5615bf319622fb5efdae Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 19 Mar 2008 15:32:35 +0000 Subject: add has_network_connection helper --- lib/network/tools.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/network/tools.pm') diff --git a/lib/network/tools.pm b/lib/network/tools.pm index 1d4df88..b00bdb0 100644 --- a/lib/network/tools.pm +++ b/lib/network/tools.pm @@ -199,6 +199,11 @@ sub get_default_connection { return $gw_intf, get_interface_status($gw_intf), $net->{resolv}{dnsServer}; } +sub has_network_connection() { + (undef, undef, $gw_address) = get_default_connection({}); + to_bool($gw_address); +} + sub get_interface_type { my ($interface, $o_module) = @_; require detect_devices; -- cgit v1.2.1