From 75934b664684403bd03279f3c416c803b703a942 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 5 Nov 2004 10:34:19 +0000 Subject: hide ifcfg files for non-root users if they contain a WEP key (#12177) --- perl-install/network/network.pm | 2 ++ 1 file changed, 2 insertions(+) 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"); } -- cgit v1.2.1