From 7d9973538da0ffaf2c95412393f072c330bd2c5e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 19 Nov 2002 13:37:21 +0000
Subject: - fix duplication of sec level setting:   merge
 any::get_secure_level() with   secure::msec::get_secure_level() - move
 security level functions from secure::msec   to secure::level - uses
 secure::level in install_steps - fix duplication of security level labels -
 draksec: use same strings in drakx, got nice   translations -
 get_default_checks(): make it more readable

---
 perl-install/any.pm | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 96dd5b657..2b00d9534 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1131,13 +1131,6 @@ sub ask_window_manager_to_logout {
     1;
 }
 
-sub get_secure_level {
-    cat_("$::prefix/etc/profile")           =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.0 msec
-    cat_("$::prefix/etc/profile.d/msec.sh") =~ /export SECURE_LEVEL=(\d+)/ && $1 || #- 8.1 msec
-      ${{ getVarsFromSh("$::prefix/etc/sysconfig/msec") }}{SECURE_LEVEL}  || #- 8.2 msec
-	$ENV{SECURE_LEVEL};
-}
-
 sub alloc_raw_device {
     my ($prefix, $device) = @_;
     my $used = 0;
-- 
cgit v1.2.1