diff options
| author | damien <damien@mandriva.com> | 2001-10-16 11:44:33 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-10-16 11:44:33 +0000 |
| commit | 0f6b8287759aa1390ee879a2b6e62f283f14c602 (patch) | |
| tree | 9684178ebbbb852428f51add25f9f5c1f1f6fa7d /perl-install | |
| parent | a8bfa8dd7fa6c550cac65acc8ed9194b3d091785 (diff) | |
| download | drakx-backup-do-not-use-0f6b8287759aa1390ee879a2b6e62f283f14c602.tar drakx-backup-do-not-use-0f6b8287759aa1390ee879a2b6e62f283f14c602.tar.gz drakx-backup-do-not-use-0f6b8287759aa1390ee879a2b6e62f283f14c602.tar.bz2 drakx-backup-do-not-use-0f6b8287759aa1390ee879a2b6e62f283f14c602.tar.xz drakx-backup-do-not-use-0f6b8287759aa1390ee879a2b6e62f283f14c602.zip | |
correct bad level display
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draksec | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 7228e232e..4b557050f 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -47,7 +47,6 @@ delete @help{0,1,5} unless $::expert; begin: $::isEmbedded and kill USR2, $::CCPID; -$secure_level = ${{ getVarsFromSh("/etc/profile") }}{SECURE_LEVEL} || $ENV{SECURE_LEVEL} || 2; #$in->ask_from('', # _("Choose security level") . "\n\n" . join('', map { "$l{$_}: $help{$_}\n\n" } keys %l), @@ -55,14 +54,23 @@ $secure_level = ${{ getVarsFromSh("/etc/profile") }}{SECURE_LEVEL} || $ENV{SECUR # { label => _($st->{$f}{text}), val => \$def_choice, list => [ 'replay', 'manual' ] } # ) -my ($level, $libsafe); +my $libsafe); +my $secure_level; +if (-e "$prefix/etc/profile.d/msec.sh") { + local $_ = cat_("$prefix/etc/profile.d/msec.sh"); + /export SECURE_LEVEL=(\d+)/ and $secure_level = $1; +} +$secure_level ||= $ENV{SECURE_LEVEL}; +$secure_level ||= 2; +$secure_level = $l{$secure_level}; + my %h = getVarsFromSh("$prefix/etc/sysconfig/system"); $libsafe = $h{LIBSAFE} =~ /yes/i; if ($in->ask_from('', _("Choose security level") . "\n\n" . join('', map { "$l{$_}: $help{$_}\n\n" } keys %l), [ - { label => _("Security level"), val => \$level, list => [ (values %l) ] }, + { label => _("Security level"), val => \$secure_level, list => [ (values %l) ] }, if_(pkgs_interactive::is_installed('libsafe') && arch() =~ /^i.86/, { label => _("Use libsafe for servers"), val => \$libsafe, type => 'bool', text => _("A library which defends against buffer overflow and format string attacks.") } @@ -73,7 +81,7 @@ if ($in->ask_from('', _("Choose security level") . "\n\n" . $in->suspend; $ENV{LILO_PASSWORD} = ''; # make it non interactive - system "/usr/sbin/msec", $m{$level}; + system "/usr/sbin/msec", $m{$secure_level}; my %t = getVarsFromSh("$prefix/etc/sysconfig/system"); $t{LIBSAFE} = bool2yesno($libsafe); |