From c6dde53bebf7318ee441af8b19acc46917394c24 Mon Sep 17 00:00:00 2001 From: Christian Belisle Date: Wed, 31 Jul 2002 14:30:59 +0000 Subject: - factorize functions (many functions -> one function) --- perl-install/security/main.pm | 65 +++++++++++++++++++++---------------------- 1 file changed, 31 insertions(+), 34 deletions(-) (limited to 'perl-install/security') diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm index 3d413edbd..65e346b7b 100644 --- a/perl-install/security/main.pm +++ b/perl-install/security/main.pm @@ -9,42 +9,40 @@ use log; use security::msec; use security::libsafe; -sub basic_page { - my ($prefix, $in) = @_; - my $security = security::msec::get_secure_level(''); - my $libsafe = security::libsafe::config_libsafe(''); - my $sec_user = security::msec::config_security_user(''); - my $signal = 9; - - if(security::msec::choose_security_level($in, \$security, \$libsafe, \$sec_user, \$signal)) { - log::l("[draksec] Setting libsafe activation variable to $libsafe"); - security::libsafe::config_libsafe('', $libsafe); - - log::l("[draksec] Setting security administrator contact to $sec_user"); - security::msec::config_security_user('', $sec_user); - -# my $w = $in->wait_message('', _("Setting security level")); -# $in->suspend; - $ENV{LILO_PASSWORD} = ''; # make it non interactive - log::l("[draksec] Setting security level to $security"); - system "/usr/sbin/msec", $security; -# $in->resume; - } - $signal; -} - -sub functions_page { - my ($prefix, $in) = @_; +sub show_page { + my ($prefix, $in, $page) = @_; my $signal = 9; my $security = security::msec::get_secure_level(''); - my %functions = security::msec::get_options('', $security); my $key = ''; + my %options = (); + my ($sec_user, $libsafe) = ''; - if(security::msec::choose_options($in, \%functions, \$signal, $security)) { - foreach $key (keys %functions) { - security::msec::set_option('', $key, $functions{$key}); - } + if($page == 0) { + $libsafe = security::libsafe::config_libsafe(''); + $sec_user = security::msec::config_security_user(''); } + elsif($page == 1) { %options = security::msec::get_options('', "functions"); } + elsif($page == 2) { %options = security::msec::get_options('', "checks"); } + + if ($page == 2) { + if(security::msec::choose_checks($in, \%options, \$signal, $security)) { + foreach $key (keys %options) { + security::msec::set_check('', $key, $options{$key}); + } } } + elsif ($page == 1) { + if(security::msec::choose_options($in, \%options, \$signal, $security)) { + foreach $key (keys %options) { + security::msec::config_option('', $key, $options{$key}); + } } } + elsif ($page == 0) { + if(security::msec::choose_security_level($in, \$security, \$libsafe, \$sec_user, \$signal)) { + security::libsafe::config_libsafe('', $libsafe); + security::msec::config_security_user('', $sec_user); + $ENV{LILO_PASSWORD} = ''; # make it non interactive + log::l("[draksec] Setting security level to $security"); + system "/usr/sbin/msec", $security; + } } + $signal; } @@ -61,9 +59,8 @@ sub main { # signal 5 = users page # signal 9 = quit - if ($signal == 0) { $signal = basic_page($prefix, $in); } - elsif ($signal == 1) { $signal = functions_page($prefix, $in); } - } + $signal = show_page($prefix, $in, $signal); + } } 1; -- cgit v1.2.1