summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksec
diff options
context:
space:
mode:
authorChristian Belisle <cbelisle@mandriva.com>2002-07-30 21:08:36 +0000
committerChristian Belisle <cbelisle@mandriva.com>2002-07-30 21:08:36 +0000
commit576618525818737b129c285fbe562937dbcfe45d (patch)
tree27ad351b61477e909730f10aabf6cecd95bef32d /perl-install/standalone/draksec
parentd498565fa66347fe9f65d28864ee002b4c8ef5f2 (diff)
downloaddrakx-backup-do-not-use-576618525818737b129c285fbe562937dbcfe45d.tar
drakx-backup-do-not-use-576618525818737b129c285fbe562937dbcfe45d.tar.gz
drakx-backup-do-not-use-576618525818737b129c285fbe562937dbcfe45d.tar.bz2
drakx-backup-do-not-use-576618525818737b129c285fbe562937dbcfe45d.tar.xz
drakx-backup-do-not-use-576618525818737b129c285fbe562937dbcfe45d.zip
- complete re-write
Diffstat (limited to 'perl-install/standalone/draksec')
-rwxr-xr-xperl-install/standalone/draksec10
1 files changed, 2 insertions, 8 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 6af60a0b1..fa1ff2961 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -7,11 +7,10 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use common;
use interactive;
use log;
-use security::msec;
+use security::main;
local $_ = join '', @ARGV;
-
/-h/ and die "usage: draksec [--expert]\n";
$::expert = /-expert/ || cat_("/etc/sysconfig/system") =~ /^CLASS="?expert/m; #"
@@ -22,12 +21,7 @@ my $in = 'interactive'->vnew('su', 'security');
begin:
$::isEmbedded and kill USR2, $::CCPID;
-my $security = security::msec::get_secure_level('');
-my $libsafe = security::msec::config_libsafe('');
-my $sec_user = security::msec::config_security_user('');
-my $w;
-
-security::main($in, $security, $sec_user);
+security::main::main($prefix, $in);
!$::isEmbedded ? $in->exit(0) : kill(USR1, $::CCPID);
goto begin;