summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorChristian Belisle <cbelisle@mandriva.com>2002-07-18 17:04:07 +0000
committerChristian Belisle <cbelisle@mandriva.com>2002-07-18 17:04:07 +0000
commit53b3ee0964e09fa0a1ebf1f721485388afd8fa20 (patch)
treef9cdbe936e5cd5ac52fe577d2e52729ecf224837 /perl-install
parent4fa55b5793ef632fdf745e0d78c4f930743fa5e1 (diff)
downloaddrakx-53b3ee0964e09fa0a1ebf1f721485388afd8fa20.tar
drakx-53b3ee0964e09fa0a1ebf1f721485388afd8fa20.tar.gz
drakx-53b3ee0964e09fa0a1ebf1f721485388afd8fa20.tar.bz2
drakx-53b3ee0964e09fa0a1ebf1f721485388afd8fa20.tar.xz
drakx-53b3ee0964e09fa0a1ebf1f721485388afd8fa20.zip
Re-Addition: will contain the security related (but not related to any apps)
funtioncs and the draksec interface.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/security.pm39
1 files changed, 39 insertions, 0 deletions
diff --git a/perl-install/security.pm b/perl-install/security.pm
new file mode 100644
index 000000000..257fbe248
--- /dev/null
+++ b/perl-install/security.pm
@@ -0,0 +1,39 @@
+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;