From 9d261654a80c56a46c303dcef27eb745e7815044 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 17 Feb 2005 17:22:27 +0000 Subject: use network::shorewall::get_net_device --- perl-install/network/shorewall.pm | 2 +- perl-install/standalone/drakgw | 4 ++-- perl-install/standalone/drakvpn | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index 6c930d0e4..8ea4ef113 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -72,7 +72,7 @@ sub default_interfaces_silent { sub default_interfaces { my ($in) = @_; my %conf; - my $card_netconnect = network::netconnect::get_net_device() || "eth0"; + my $card_netconnect = get_net_device() || "eth0"; defined $card_netconnect and log::l("[drakgw] Information from netconnect: ignore card $card_netconnect"); my @l = detect_devices::getNet() or return; diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index f76e2b2af..d00cba315 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -206,8 +206,8 @@ my @configured_devices = map { /ifcfg-(\S+)/ } glob('/etc/sysconfig/network-scri my %aliased_devices; /^\s*alias\s+(eth[0-9])\s+(\S+)/ and $aliased_devices{$1} = $2 foreach cat_("/etc/modules.conf"); -my $card_netconnect = network::netconnect::get_net_device() || "eth0"; -defined $card_netconnect and log::l("[drakgw] Information from netconnect: ignore card $card_netconnect"); +my $card_netconnect = network::shorewall::get_net_device() || "eth0"; +log::l("[drakgw] Information from netconnect: ignore card $card_netconnect"); my $modules_conf = modules::any_conf->read; my @all_cards = network::ethernet::get_eth_cards($modules_conf); diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn index ae9d7ae64..1f7a8dce4 100644 --- a/perl-install/standalone/drakvpn +++ b/perl-install/standalone/drakvpn @@ -207,7 +207,7 @@ step_detectsetup: my %aliased_devices; /^\s*alias\s+(eth[0-9])\s+(\S+)/ and $aliased_devices{$1} = $2 foreach cat_("/etc/modules.conf"); -my $card_netconnect = network::netconnect::get_net_device() || "eth0"; +my $card_netconnect = network::shorewall::get_net_device() || "eth0"; defined $card_netconnect and log::l("[drakvpn] Information from netconnect: ignore card $card_netconnect"); $in->ask_from('', -- cgit v1.2.1