From ef3ce36c2a0e4f385c65ca6223ba4c5c4e86e122 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 19 Dec 1999 01:45:46 +0000 Subject: no_comment --- perl-install/standalone/draksec | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/draksec') diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 5fc4cce86..04d332541 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -11,7 +11,7 @@ local $_ = join '', @ARGV; /-h/ and die "usage: draksec [--expert]\n"; -$::expert = /--expert/ || cat_("/etc/sysconfig/system") =~ /^TYPE="?expert/m; #" +$::expert = /-expert/ || cat_("/etc/sysconfig/system") =~ /^TYPE="?expert/m; #" $::isStandalone = 1; my $in = vnew interactive('su'); @@ -28,7 +28,9 @@ delete @l{0,1,5} unless $::expert; if (my $level = $in->ask_from_list('', _("Choose security level"), [ values %l ], $l{$ENV{SECURE_LEVEL}})) { my $w = $in->wait_message('', _("Setting security level")); + $in->suspend; system("/etc/security/msec/init.sh ". $m{$level}); + $in->resume; } $in->exit(0); -- cgit v1.2.1