From 52efa4e2f9032f5f6db34b46da00dcb80cf3cee9 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Thu, 29 Jan 2004 16:07:28 +0000
Subject: fix modem login fetching

---
 perl-install/standalone/drakconnect | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 772be28d8..7273ccffc 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -262,6 +262,7 @@ sub build_tree {
 	foreach (cat_("/etc/sysconfig/network-scripts/ifcfg-ppp0")) {
 	    /NAME=(['"]?)(.*)\1/ and $intf->{login} = $2;
 	}
+	$intf->{login} ||= $l{Username};
 	my $secret = network::tools::read_secret_backend();
 	foreach (@$secret) {
 	    $intf->{passwd} = $_->{passwd} if $_->{login} eq $intf->{login};
-- 
cgit v1.2.1