From 86ac09f1fee56db1da7b1ff5aca20a21a1ad0d1f Mon Sep 17 00:00:00 2001 From: Christian Belisle Date: Mon, 19 Aug 2002 02:52:08 +0000 Subject: - draksec is now in his own package --- perl-install/standalone/draksec | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100755 perl-install/standalone/draksec (limited to 'perl-install/standalone/draksec') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec deleted file mode 100755 index a14049097..000000000 --- a/perl-install/standalone/draksec +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -use lib qw(/usr/lib/libDrakX); - -use standalone; #- warning, standalone must be loaded very first, for 'explanations' - -use common; -use interactive; -use log; -use security::main; - -local $_ = join '', @ARGV; - -/-h/ and die "usage: draksec [--expert]\n"; - -$::expert = /-expert/ || cat_("/etc/sysconfig/system") =~ /^CLASS="?expert/m; #" - -my $in = 'interactive'->vnew('su', 'security'); - -begin: -$::isEmbedded and kill 'USR2', $::CCPID; - -security::main::main($prefix, $in); - -!$::isEmbedded ? $in->exit(0) : kill('USR1', $::CCPID); -goto begin; -- cgit v1.2.1