diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/security/msec.pm | 121 |
1 files changed, 120 insertions, 1 deletions
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm index da134217d..f8c95dd64 100644 --- a/perl-install/security/msec.pm +++ b/perl-install/security/msec.pm @@ -26,7 +26,6 @@ sub add_config { chop $result; $result .= ')'; - print "result is $result"; open(TMP_CONFIG, '>>'.$tmp_file); print TMP_CONFIG "$result\n"; close TMP_CONFIG; @@ -73,4 +72,124 @@ sub commit_changes { standalone::rm_rf($tmp_file); } + +sub get_config { + my ($prefix, $security) = @_; + + my (%net_options_defaults) = ( + accept_bogus_error_responses => [ "no", "no", "no", "no", "yes", "yes" ], + accept_icmp_echo => [ "yes", "yes", "yes", "yes", "no", "no" ], + enable_ip_spoofing_protection => [ "no", "no", "no", "yes", "yes", "yes" ], + enable_log_strange_packets => [ "no", "no", "no", "yes", "yes", "yes" ] ); + + my (%user_options_defaults) = ( + allow_autologin => [ "yes", "yes", "yes", "no", "no", "no" ], + allow_issues => [ "ALL", "ALL", "ALL", "LOCAL", "LOCAL", "NONE" ], + allow_reboot => [ "yes", "yes", "yes", "yes", "no", "no" ], + allow_root_login => [ "yes", "yes", "yes", "yes", "no", "no" ], + allow_user_list => [ "yes", "yes", "yes", "yes", "no", "no" ], + enable_at_crontab => [ "yes", "yes", "yes", "yes", "no", "no" ], + enable_pam_wheel_for_su => [ "no", "no", "no", "no", "no", "yes" ], + enable_password => [ "no", "yes", "yes", "yes", "yes", "yes" ], + enable_sulogin => [ "no", "no", "no", "no", "yes", "yes" ], + password_aging => [ "99999,-1", "99999,-1", "99999,-1", "99999,-1", "60,-1", "30,-1" ], + password_length => [ "0,0,0", "0,0,0", "0,0,0", "0,0,0", "0,0,0", "0,0,0" ], + set_root_umask => [ "002", "002", "022", "022", "022", "077" ], + set_user_umask => [ "002", "002", "022", "022", "077", "077" ], + set_shell_history_size => [ "-1", "-1", "-1", "-1", "10", "10" ], + set_shell_timeout => [ "0", "0", "0", "0", "3600", "900" ] ); + + my (%server_options_defaults) = ( + allow_x_connections => [ "ALL,yes", "LOCAL,yes", "LOCAL,yes", "LOCAL,yes", "LOCAL,no", "NONE,no" ], + authorize_services => [ "ALL", "ALL", "ALL", "ALL", "LOCAL", "NONE" ], + enable_libsafe => [ "no", "no", "no", "no", "no", "no" ] ); + + my (%net_options_matrix) = ( + accept_bogus_error_responses => { label => _("Accept/Refuse bogus IPV4 error messages"), + val => $net_options_defaults{accept_bogus_error_responses}[$security], + list => [ "yes", "no" ] }, + accept_icmp_echo => { label => _("Accept/Refuse ICMP echo"), + val => $net_options_defaults{accept_icmp_echo}[$security], + list => [ "yes", "no" ] }, + enable_ip_spoofing_protection => { label => _("Enable/Disable IP spoofing protection. If alert is true, also reports to syslog"), + val => $net_options_defaults{enable_ip_spoofing_protection}[$security], + list => [ "yes", "no" ] }, + enable_log_strange_packets => { label => _("Enable/Disable the logging of IPv4 strange packets"), + val => $net_options_defaults{enable_log_strange_packets}[$security], + list => [ "yes", "no" ] } + ); + + my (%user_options_matrix) = ( + allow_autologin => { label => _("Allow/Forbid autologin"), + val => $user_options_defaults{allow_autologin}[$security] }, + allow_issues => { label => _("Allow/Forbid pre-login message : If ALL, allow remote and local pre-login message (/etc/issue[.net]). If LOCAL, allow local pre-login message (/etc/issue). If NONE, disable pre-login message."), + val => $user_options_defaults{allow_issues}[$security] }, + allow_reboot => { label => _("Allow/Forbid reboot by the console user"), + val => $user_options_defaults{allow_reboot}[$security] }, + allow_root_login => { label => _("Allow/Forbid direct root login"), + val => $user_options_defaults{allow_root_login}[$security] }, + allow_user_list => { label => _("Allow/Forbid the list of users on the system in the display managers (kdm and gdm)"), + val => $user_options_defaults{allow_user_list}[$security] }, + enable_at_crontab => { label => _("Enable/Disable crontab and at for users. Put allowed users in /etc/cron.allow and /etc/at.allow (see at(1) and crontab(1))"), + val => $user_options_defaults{enable_at_crontab}[$security] }, + enable_pam_wheel_for_su => { label => _("Enable su only for members of the wheel group or allow su from any user"), + val => $user_options_defaults{enable_pam_wheel_for_su}[$security] }, + enable_password => { label => _("Use password to authenticate users"), + val => $user_options_defaults{enable_password}[$security] }, + enable_sulogin => { label => _("Enable/Disable sulogin in single user level (see sulogin(8))"), + val => $user_options_defaults{enable_sulogin}[$security] }, + password_aging => { label => _("Set password aging to max days (99999 to disable password aging"), + val => $user_options_defaults{password_aging}[$security] }, + password_length => { label => _("Set the password minimum length, the minimum number of digits and the minimum number of capitalized letters"), + val => $user_options_defaults{password_length}[$security] }, + set_root_umask => { label => _("Set the root umask"), + val => $user_options_defaults{set_root_umask}[$security] }, + set_user_umask => { label => _("Set the user umask"), + val => $user_options_defaults{set_user_umask}[$security] }, + set_shell_history_size => { label => _("Set shell commands history size (-1 for unlimited)"), + val => $user_options_defaults{set_shell_history_size}[$security] }, + set_shell_timeout => { label => _("Set the shell timeout in seconds (0 for unlimited)"), + val => $user_options_defaults{set_shell_timeout}[$security] } + ); + + my (%server_options_matrix) = ( + allow_x_connections => { label => ("Allow/Forbid X connections : If ALL, all connections allowed. If LOCAL, local connections allowed. If NONE, only console connections allowed"), + val => $server_options_defaults{allow_x_connections}[$security] }, + authorize_services => { label => _("Allow/Forbid services : If ALL, authorize all services. If LOCAL, authorize only local services. If NONE, disable all services. (see hosts.deny(5)). To authorize a service, see hosts.allow(5)."), + val => $server_options_defaults{authorize_services}[$security] }, + enable_libsafe => { label => _("Enable/Disable libsafe if it's installed on the system."), + val => $server_options_defaults{enable_libsafe}[$security] }, + ); + + my $config_file = "$prefix/etc/security/msec/level.local"; + my $values = ""; + my $config_option = ""; + + open CONFIGFILE, $config_file; + while(<CONFIGFILE>) { + if($_ =~ /\(/) { + ($config_option, undef) = split(/\(/, $_); + (undef, $values) = split(/\(/, $_); + chop $values; + + if ($config_option ne "set_security_conf") { + if ($net_options_matrix{$config_option}{description} eq "") { + (undef, $net_options_matrix{$config_option}{value}) = $values; + } elsif ($user_options_matrix{$config_option}{description} eq "") { + (undef, $user_options_matrix{$config_option}{value}) = $values; + } elsif ($server_options_matrix{$config_option}{description} eq "") { + (undef, $server_options_matrix{$config_option}{value}) = $values; + } + } + else { + # TODO : Add code to handle set_security_conf + } + } + } + + close CONFIGFILE; + + return (\%net_options_matrix, \%user_options_matrix, \%server_options_matrix); +} + 1; |