diff options
| author | damien <damien@mandriva.com> | 2001-08-23 15:43:04 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-08-23 15:43:04 +0000 |
| commit | 562106f4cd654792a1970042721a3e830a6ff3cd (patch) | |
| tree | 807cdd0aecf45aa116e4a6bff75489e210b45115 /perl-install | |
| parent | 5160b680f37335147efd97ada3c868016db5f273 (diff) | |
| download | drakx-backup-do-not-use-562106f4cd654792a1970042721a3e830a6ff3cd.tar drakx-backup-do-not-use-562106f4cd654792a1970042721a3e830a6ff3cd.tar.gz drakx-backup-do-not-use-562106f4cd654792a1970042721a3e830a6ff3cd.tar.bz2 drakx-backup-do-not-use-562106f4cd654792a1970042721a3e830a6ff3cd.tar.xz drakx-backup-do-not-use-562106f4cd654792a1970042721a3e830a6ff3cd.zip | |
addedlibsafe option
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draksec | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index e1436c067..f9a92a576 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -49,15 +49,29 @@ $::isEmbedded and kill USR2, $::CCPID; $secure_level = ${{ getVarsFromSh("/etc/profile") }}{SECURE_LEVEL} || $ENV{SECURE_LEVEL} || 2; -if (my $level = $in->ask_from_list('', _("Choose security level") . "\n\n" . - join('', map { "$l{$_}: $help{$_}\n\n" } keys %l), - [ values %l ], $l{$secure_level})) { +#$in->ask_from('', +# _("Choose security level") . "\n\n" . join('', map { "$l{$_}: $help{$_}\n\n" } keys %l), +# { label => _($st->{$f}{text}), val => \$def_choice, list => [ 'replay', 'manual' ] }, +# { label => _($st->{$f}{text}), val => \$def_choice, list => [ 'replay', 'manual' ] } +# ) + +my ($level, $libsafe); +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 => _('Use libsafe'), val => \$libsafe, type => 'bool' } + ] + )) { my $w = $in->wait_message('', _("Setting security level")); $in->suspend; $ENV{LILO_PASSWORD} = ''; # make it non interactive system "/usr/sbin/msec", $m{$level}; + my %t = getVarsFromSh("$prefix/etc/sysconfig/system"); + $t{LIBSAFE} = bool2yesno($libsafe); + setVarsInSh("$prefix/etc/sysconfig/system", \%t); $in->resume; } |