From de32c3a713ff4652a69cb143e98d6726897834c0 Mon Sep 17 00:00:00 2001
From: Christian Belisle <cbelisle@mandriva.com>
Date: Tue, 23 Jul 2002 14:42:08 +0000
Subject: removal

---
 perl-install/security.pm | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 perl-install/security.pm

(limited to 'perl-install')

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