From 60a32f602c51495953e8f5db7ff42704a939caca Mon Sep 17 00:00:00 2001 From: Mystery Man Date: Mon, 5 Aug 2002 15:51:48 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'V1_1_9_5mdk'. --- 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