summaryrefslogtreecommitdiffstats
path: root/perl-install/security
diff options
context:
space:
mode:
authorAnne Nicolas <ennael@mageia.org>2011-05-27 13:20:27 +0000
committerAnne Nicolas <ennael@mageia.org>2011-05-27 13:20:27 +0000
commit8e5cdf214200f3a7c603aa19d30b163b6bf88e16 (patch)
treee73d47895127baa6c72faef3f61f0b9bc7a31f3c /perl-install/security
parent0d64c9582d78bd263db64c9652399eeae75bd6f1 (diff)
downloaddrakx-8e5cdf214200f3a7c603aa19d30b163b6bf88e16.tar
drakx-8e5cdf214200f3a7c603aa19d30b163b6bf88e16.tar.gz
drakx-8e5cdf214200f3a7c603aa19d30b163b6bf88e16.tar.bz2
drakx-8e5cdf214200f3a7c603aa19d30b163b6bf88e16.tar.xz
drakx-8e5cdf214200f3a7c603aa19d30b163b6bf88e16.zip
fix default level being 'standard' (Thierry Vignaud)
Diffstat (limited to 'perl-install/security')
-rw-r--r--perl-install/security/level.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/security/level.pm b/perl-install/security/level.pm
index 51fe4b853..b12caf19e 100644
--- a/perl-install/security/level.pm
+++ b/perl-install/security/level.pm
@@ -32,7 +32,7 @@ sub get_common_list() { map { to_string($_) } (1, 2, 3, 4, 5) }
sub get() {
my $level = ${{ getVarsFromSh("$::prefix/etc/security/msec/security.conf") }}{BASE_LEVEL} || #- 2009.1 msec
- 1;
+ "standard";
from_lowlevel_string($level);
}
@@ -42,7 +42,7 @@ sub set {
# use Standard level if specified level is out of range
$security = 1 if $security > $#levelnames;
run_program::rooted($::prefix, 'msec', '-q', '-f', @levelnames[$security]);
- run_program::rooted($::prefix, 'msecperms', '-q', '-e', '-f', @levelnames[$security]);
+ run_program::rooted($::prefix, 'msecperms', '-q', '-e', @levelnames[$security]);
}
sub level_choose {