summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-20 12:37:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-20 12:37:51 +0000
commite22ce2c6238ae5b238a01e7a443a782409d65126 (patch)
tree5f4b45d90c68ae0e7ece3523c7d3fa2fbee26f91 /perl-install/standalone
parent927f0695e36f024f44bed9ab406acc1dcaac1ff4 (diff)
downloaddrakx-backup-do-not-use-e22ce2c6238ae5b238a01e7a443a782409d65126.tar
drakx-backup-do-not-use-e22ce2c6238ae5b238a01e7a443a782409d65126.tar.gz
drakx-backup-do-not-use-e22ce2c6238ae5b238a01e7a443a782409d65126.tar.bz2
drakx-backup-do-not-use-e22ce2c6238ae5b238a01e7a443a782409d65126.tar.xz
drakx-backup-do-not-use-e22ce2c6238ae5b238a01e7a443a782409d65126.zip
factorize and update the reading of previous security level
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draksec7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 9cf75788f..1fed07193 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -6,7 +6,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use common;
use interactive;
-use mouse;
+use any;
use c;
local $_ = join '', @ARGV;
@@ -21,10 +21,7 @@ my $in = 'interactive'->vnew('su', 'security');
begin:
$::isEmbedded and kill USR2, $::CCPID;
-
-my $security =
- cat_("/etc/profile.d/msec.sh") =~ /export SECURE_LEVEL=(\d+)/ ? $1 :
- $ENV{SECURE_LEVEL} || 2;
+my $security = any::get_secure_level('');
my $libsafe = any::config_libsafe('');
if (any::choose_security_level($in, \$security, \$libsafe)) {