hide ifcfg files for non-root users if they contain a WEP key (#12177)

1 files changed, 2 insertions, 0 deletions

diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 53ea5d6f5..3a99c2f96 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -167,6 +167,8 @@ sub write_interface_conf {
                 if_($intf->{DEVICE} =~ /^ippp\d+$/, qw(DIAL_ON_IFUP))
                );
     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
     log::explanations("written $intf->{DEVICE} interface configuration in $file");
 }