From 0c79fff50fec0ee6b462b4654cc845f718da7a2f Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 24 Feb 2005 17:32:10 +0000 Subject: minimal WPA support --- perl-install/network/netconnect.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 479bc4f5c..a7858939b 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1132,6 +1132,7 @@ notation (for example, 1.2.3.4).")), { label => N("Sensitivity threshold"), val => \$ethntf->{WIRELESS_SENS}, advanced => 1 }, { label => N("Bitrate (in b/s)"), val => \$ethntf->{WIRELESS_RATE}, advanced => 1 }, { label => N("Encryption key"), val => \$ethntf->{WIRELESS_ENC_KEY} }, + { text => N("Use Wi-Fi Protected Access (WPA)"), val => \$ethntf->{WIRELESS_USE_WPA}, type => "bool" }, ]; }, complete => sub { @@ -1197,6 +1198,7 @@ See iwpriv(8) man page for further information."), # untranslate parameters $ethntf->{WIRELESS_MODE} = $wireless_mode{$ethntf->{WIRELESS_MODE}}; $module =~ /^prism2_/ and network::network::wlan_ng_configure($in, $ethntf, $module); + network::network::wpa_supplicant_configure($in, $ethntf); return "static_hostname"; }, }, -- cgit v1.2.1