diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-29 16:07:28 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-29 16:07:28 +0000 |
| commit | 52efa4e2f9032f5f6db34b46da00dcb80cf3cee9 (patch) | |
| tree | c25e7602aaa7fcdb8a7d9331f38869abf4b5b1e7 /perl-install | |
| parent | af28ee1764834ec1d880449cf1741cdeb16559cf (diff) | |
| download | drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar.gz drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar.bz2 drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.tar.xz drakx-52efa4e2f9032f5f6db34b46da00dcb80cf3cee9.zip | |
fix modem login fetching
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 1 |
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}; |