From cef02125408009f292e059e303cc43d15adbcd37 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 Aug 2002 19:15:05 +0000
Subject: florin fixes for multiple NIC boxes

---
 perl-install/network/netconnect.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/network/netconnect.pm')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 7d7464872..7474b9b66 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -370,7 +370,7 @@ sub save_conf {
       "SystemName=" . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . "
 DomainName=" . do { $netc->{HOSTNAME} =~ /\.(.*)/; $1 } . "
 InternetAccessType=" . do { if ($netcnx->{type}) { $netcnx->{type} } else { $netc->{GATEWAY} ? "lan" : "" } } . "
-InternetInterface=" . ($netc->{GATEWAY} && (!$netcnx->{type} || $netcnx->{type} eq 'lan') ? $netc->{NET_DEVICE} : $netcnx->{NET_INTERFACE}) . "
+InternetInterface=" . ($netc->{GATEWAY} && (!$netcnx->{type} || $netcnx->{type} eq 'lan') ? $netc->{GATEWAYDEV} : $netcnx->{NET_INTERFACE}) . "
 InternetGateway=$netc->{GATEWAY}
 DNSPrimaryIP=$netc->{dnsServer}
 DNSSecondaryIP=$netc->{dnsServer2}
@@ -594,14 +594,14 @@ sub load_conf {
 #- ensures the migration from old config files
 sub read_raw_net_conf {
     my ($suffix) = @_;
-    my $dir = "$::prefix/etc/sysconfig";
+    my $dir = "$::prefix/etc/sysconfig/network-scripts";
     $suffix = $suffix ? ".$suffix" : '';
     rename "$dir/draknet$suffix", "$dir/drakconnect$suffix";
-    getVarsFromSh("$dir/drakconnect$suffix");
+    getVarsFromSh("$dir/drakconnect_conf");
 }
 
 sub get_net_device {
-    ${{ read_raw_net_conf() }}{NET_DEVICE};
+    ${{ read_raw_net_conf() }}{InternetInterface};
 }
 
 sub read_net_conf {
-- 
cgit v1.2.1