From 53b3ee0964e09fa0a1ebf1f721485388afd8fa20 Mon Sep 17 00:00:00 2001
From: Christian Belisle <cbelisle@mandriva.com>
Date: Thu, 18 Jul 2002 17:04:07 +0000
Subject: Re-Addition: will contain the security related (but not related to
 any apps) funtioncs and the draksec interface.

---
 perl-install/security.pm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 perl-install/security.pm

(limited to 'perl-install')

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;
-- 
cgit v1.2.1