From 6dda538c4b98b0f554d56d0a73fe83bafa169846 Mon Sep 17 00:00:00 2001
From: Florin Grad <florin@mandriva.com>
Date: Mon, 3 Feb 2003 18:56:29 +0000
Subject: fix some drakgw behaviour

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

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

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index a2bc40aba..a74c01d16 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -462,7 +462,14 @@ my $file = "$dir/draknet$suffix";
 }
 
 sub get_net_device {
-    ${{ read_raw_net_conf() }}{InternetInterface};
+	#${{ read_raw_net_conf() }}{InternetInterface};
+	my $connect_file = "/etc/sysconfig/network-scripts/net_cnx_up";
+	my $network_file = "/etc/sysconfig/network";
+	if (cat_("$prefix$connect_file") =~ /network/) {
+		${{getVarsFromSh("$prefix$network_file")}}{GATEWAYDEV};
+	} else {
+		"ppp+";
+	};
 }
 
 sub read_net_conf {
-- 
cgit v1.2.1