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
commita376e312a16aba36eb3b6e7879ef5dafdca3c30b (patch)
treee73d47895127baa6c72faef3f61f0b9bc7a31f3c /perl-install/security
parent5f6795838a839b0bceea0977a045f42444193a1e (diff)
downloaddrakx-backup-do-not-use-a376e312a16aba36eb3b6e7879ef5dafdca3c30b.tar
drakx-backup-do-not-use-a376e312a16aba36eb3b6e7879ef5dafdca3c30b.tar.gz
drakx-backup-do-not-use-a376e312a16aba36eb3b6e7879ef5dafdca3c30b.tar.bz2
drakx-backup-do-not-use-a376e312a16aba36eb3b6e7879ef5dafdca3c30b.tar.xz
drakx-backup-do-not-use-a376e312a16aba36eb3b6e7879ef5dafdca3c30b.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 {