From abf477b292a33dd026a5f570544cac323dc6470d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 6 Jun 2005 03:13:28 +0000 Subject: API change (me sux) --- perl-install/network/shorewall.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index ab427d2d4..d42772b94 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -4,7 +4,6 @@ package network::shorewall; # $Id$ use detect_devices; -use network::netconnect; use network::ethernet; use network::network; use run_program; @@ -40,11 +39,9 @@ sub get_config_file { } sub get_ifcfg_interface() { - my $netcnx = {}; - my $netc = {}; - my $intf = {}; - network::netconnect::read_net_conf($netcnx, $netc, $intf); - network::tools::get_default_gateway_interface($netc, $intf); + my $net = {}; + network::network::read_net_conf($net); + network::tools::get_default_gateway_interface($net); } sub get_shorewall_interface() { -- cgit v1.2.1