summaryrefslogtreecommitdiffstats
path: root/perl-install/security.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/security.pm')
-rw-r--r--perl-install/security.pm39
1 files changed, 0 insertions, 39 deletions
diff --git a/perl-install/security.pm b/perl-install/security.pm
deleted file mode 100644
index 257fbe248..000000000
--- a/perl-install/security.pm
+++ /dev/null
@@ -1,39 +0,0 @@
-package security::security;
-
-use diagnostics
-use strict;
-
-use common;
-use security::msec;
-use log;
-
-sub config_libsafe {
- my ($prefix, $libsafe) = @_;
- my %t = getVarsFromSh("$prefix/etc/sysconfig/system");
- if (@_ > 1) {
- $t{LIBSAFE} = bool2yesno($libsafe);
- setVarsInSh("$prefix/etc/sysconfig/system", \%t);
- }
- text2bool($t{LIBSAFE});
-}
-
-sub main {
- my ($in, $security, $libsafe, $sec_user) = @_;
-
- if (security::msec::choose_security_level($in, \$security, \$libsafe, \$sec_user)) {
- log::l("[draksec] Setting libsafe activation variable to $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;
- }
-}
-
-1;