From a22f9e34f0dab6621f90e066e15fa563f836e468 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 10 Sep 2002 08:24:01 +0000 Subject: move back draksec's files in drakxtools --- perl-install/standalone/draksec | 46 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100755 perl-install/standalone/draksec (limited to 'perl-install/standalone/draksec') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec new file mode 100755 index 000000000..084ae3f42 --- /dev/null +++ b/perl-install/standalone/draksec @@ -0,0 +1,46 @@ +#!/usr/bin/perl +#***************************************************************************** +# +# Copyright (c) 2002 Christian Belisle (cbelisle@mandrakesoft.com) +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License version 2, as +# published by the Free Software Foundation. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +# +#***************************************************************************** + +"@ARGV" =~ /-h/ and do { + printf STDERR "Usage: draksec [OPTION]... + --debug print debugging information +"; + exit 0; + }; + +use lib qw(/usr/lib/libDrakX); + +use strict; +use vars qw($MODE %options $XID $CCPID); + +use security::main; + +$MODE = 'basic'; +$0 =~ '/draksec-firewall$' and $MODE = 'firewall'; +$0 =~ '/draksec-perms$' and $MODE = 'perms'; + +/^-?-(\S+)$/ and $options{$1} = 1 foreach @ARGV; + +$::isStandalone = 1; +Gtk->init; + +draksec_main(); + +myexit 0; -- cgit v1.2.1