summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-01-29 16:07:28 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-01-29 16:07:28 +0000
commit52efa4e2f9032f5f6db34b46da00dcb80cf3cee9 (patch)
treec25e7602aaa7fcdb8a7d9331f38869abf4b5b1e7
parentaf28ee1764834ec1d880449cf1741cdeb16559cf (diff)
downloaddrakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar
drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar.gz
drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar.bz2
drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar.xz
drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.zip
fix modem login fetching
-rwxr-xr-xperl-install/standalone/drakconnect1
1 files changed, 1 insertions, 0 deletions
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};