diff options
| author | Christian Belisle <cbelisle@mandriva.com> | 2002-07-30 21:08:36 +0000 |
|---|---|---|
| committer | Christian Belisle <cbelisle@mandriva.com> | 2002-07-30 21:08:36 +0000 |
| commit | 576618525818737b129c285fbe562937dbcfe45d (patch) | |
| tree | 27ad351b61477e909730f10aabf6cecd95bef32d /perl-install/standalone | |
| parent | d498565fa66347fe9f65d28864ee002b4c8ef5f2 (diff) | |
| download | drakx-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')
| -rwxr-xr-x | perl-install/standalone/draksec | 10 |
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; |