From bb8981f8464e3b8e2a44528a0f3b54ae83dba697 Mon Sep 17 00:00:00 2001
From: Till Kamppeter <tkamppeter@mandriva.com>
Date: Sat, 10 Aug 2002 01:30:15 +0000
Subject: Use any::get_secure_level() instead of printer::get_security_level().

---
 perl-install/printer.pm | 20 --------------------
 1 file changed, 20 deletions(-)

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

diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 37e9be636..d64e47429 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -307,26 +307,6 @@ sub network_running {
     return 0;
 }
 
-sub get_security_level {
-    # Get security level by reading /etc/profile (only after install).
-    # This is a preliminary solution until msec puts the security level
-    # definition into the correct file.
-    $file = "/etc/profile";
-    if (-f $file) {
-	local *F; 
-	open F, "< $file" || return 0;
-	while (my $line = <F>) {
-	    if ($line =~ /^\s*SECURE_LEVEL=([0-5])\s*$/) {
-		close F;
-		return $1;
-	    }
-	}
-	close F;
-    }
-    return 0;
-}
-    
-
 sub spooler_in_security_level {
     # Was the current spooler already added to the current security level?
     my ($spooler, $level) = @_;
-- 
cgit v1.2.1