From a2849d2425633eabb21fec8c5903f92b32b7fd79 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 14 Mar 2008 12:21:32 +0000 Subject: move --skip-wizard part in new network::drakconnect::edit --- lib/network/drakconnect.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'lib/network/drakconnect.pm') diff --git a/lib/network/drakconnect.pm b/lib/network/drakconnect.pm index 48db245..dbe2693 100644 --- a/lib/network/drakconnect.pm +++ b/lib/network/drakconnect.pm @@ -1,7 +1,24 @@ package network::drakconnect; +use common; + sub apply() { network::network::configure_network($net, $in, $modules_conf); } +sub get_intf_ip { + my ($interface) = @_; + my ($ip, $state, $mask); + if (-x "/sbin/ifconfig") { + local $_ = `LC_ALL=C LANGUAGE=C /sbin/ifconfig $interface`; + $ip = /inet addr:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/mso ? $1 : N("No IP"); + $mask = /Mask:(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/mso ? $1 : N("No Mask"); + $state = /inet/ ? N("up") : N("down"); + } else { + $ip = $net->{ifcfg}{$interface}{IPADDR}; + $state = "n/a"; + } + ($ip, $state, $mask); +} + 1; -- cgit v1.2.1