Add basic support for connecting to WPA2-PSK network with net_applet when networkmanager is used

We need to set KEY_MGMT and WPA_PSK in ifcfg file for networkmanager.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/network/network.pm b/lib/network/network.pm
index ba1e022..9e157a4 100644
--- a/lib/network/network.pm
+++ b/lib/network/network.pm
@@ -190,6 +190,7 @@ sub write_interface_settings {
     my ($intf, $file) = @_;
     setVarsInSh($file, $intf, qw(DEVICE BOOTPROTO IPADDR NETMASK NETWORK BROADCAST GATEWAY ONBOOT HWADDR MACADDR METRIC MII_NOT_SUPPORTED TYPE USERCTL ATM_ADDR ATM_DEVICE ETHTOOL_OPTS VLAN MTU DNS1 DNS2 DOMAIN RESOLV_MODS LINK_DETECTION_DELAY),
                 qw(WIRELESS_MODE WIRELESS_ESSID WIRELESS_NWID WIRELESS_FREQ WIRELESS_SENS WIRELESS_RATE WIRELESS_ENC_KEY WIRELESS_ENC_MODE WIRELESS_RTS WIRELESS_FRAG WIRELESS_IWCONFIG WIRELESS_IWSPY WIRELESS_IWPRIV WIRELESS_WPA_DRIVER WIRELESS_WPA_REASSOCIATE CRDA_DOMAIN),
+                qw(KEY_MGMT WPA_PSK),
                 qw(DVB_ADAPTER_ID DVB_NETWORK_DEMUX DVB_NETWORK_PID),
                 qw(IPV6INIT IPV6TO4INIT),
                 qw(MRU REMIP PPPOPTIONS HARDFLOWCTL DEFABORT RETRYTIMEOUT PAPNAME LINESPEED MODEMPORT DEBUG ESCAPECHARS INITSTRING),
@@ -204,6 +205,7 @@ sub write_interface_settings {
                );
     substInFile { s/^DEVICE='(`.*`)'/DEVICE=$1/g } $file; #- remove quotes if DEVICE is the result of a command
     chmod $intf->{WIRELESS_ENC_KEY} ? 0700 : 0755, $file; #- hide WEP key for non-root users
+    chmod $intf->{WPA_PSK} ? 0700 : 0755, $file; #- hide WPA key
     log::explanations("written $intf->{DEVICE} interface configuration in $file");
 }