diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-04-24 21:24:58 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-04-24 21:24:58 +0000 |
| commit | c7c1b99646b12e21fd08cf6ec8a318c6648ed9d7 (patch) | |
| tree | cae2008734225e60ce62e219aa560b4aa2624a86 /perl-install | |
| parent | e29cad04ee583802428326839cd846955378591b (diff) | |
| download | drakx-c7c1b99646b12e21fd08cf6ec8a318c6648ed9d7.tar drakx-c7c1b99646b12e21fd08cf6ec8a318c6648ed9d7.tar.gz drakx-c7c1b99646b12e21fd08cf6ec8a318c6648ed9d7.tar.bz2 drakx-c7c1b99646b12e21fd08cf6ec8a318c6648ed9d7.tar.xz drakx-c7c1b99646b12e21fd08cf6ec8a318c6648ed9d7.zip | |
fix WPA key
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/wireless.pm | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index a37db2e8a..3dc390015 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1286,7 +1286,7 @@ See iwpriv(8) man page for further information."), $ethntf->{WIRELESS_ENC_KEY} = network::wireless::convert_wep_key_for_iwconfig($wireless_enc_key, $wireless_enc_mode eq 'restricted'); if ($wireless_enc_mode eq 'wpa-psk') { $ethntf->{WIRELESS_WPA_DRIVER} = network::wireless::wpa_supplicant_get_driver($module); - network::wireless::wpa_supplicant_configure($in, $ethntf); + network::wireless::wpa_supplicant_configure($in, $ethntf->{WIRELESS_ESSID}, $wireless_enc_key); } else { delete $ethntf->{WIRELESS_WPA_DRIVER}; } diff --git a/perl-install/network/wireless.pm b/perl-install/network/wireless.pm index 27f06971b..f78ac5640 100644 --- a/perl-install/network/wireless.pm +++ b/perl-install/network/wireless.pm @@ -90,13 +90,13 @@ sub wpa_supplicant_get_driver { } sub wpa_supplicant_configure { - my ($in, $ethntf) = @_; + my ($in, $essid, $key) = @_; require services; $in->do_pkgs->install('wpa_supplicant'); wpa_supplicant_add_network({ - ssid => qq("$ethntf->{WIRELESS_ESSID}"), - psk => convert_key_for_wpa_supplicant($ethntf->{WIRELESS_ENC_KEY}), + ssid => qq("$essid"), + psk => convert_key_for_wpa_supplicant($key), scan_ssid => 1, }); } |