From 6169b15726decf2f85edc49b9c1960b899792323 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 18 Sep 2002 09:03:23 +0000
Subject: - factorize @sec_levels and %sec_levels for get_default() and  
 get_seclevel_list() - use them in get_default() - get_value() : don't assume
 a space between "function_name" and   "(parameters)"

---
 perl-install/security/msec.pm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

(limited to 'perl-install/security')

diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index 59fff91da..eea69cf4a 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -57,6 +57,11 @@ use MDK::Common;
 
 
 my $check_file = "$::prefix/etc/security/msec/security.conf";
+
+my @sec_levels = ("Dangerous",  "Poor", "Standard", "High",  "Higher", "Paranoid");
+my %sec_levels = ("Dangerous" => 0,  "Poor" => 1, "Standard" => 2, "High" => 3,  "Higher" => 4, "Paranoid" => 5);
+
+
 # ***********************************************
 #              PRIVATE FUNCTIONS
 # ***********************************************
@@ -69,12 +74,7 @@ sub get_default {
 
     if ($category eq "functions") {
         my $word_level = get_secure_level();
-        if ($word_level eq "Dangerous") { $num_level = 0 }
-        elsif ($word_level eq "Poor") { $num_level = 1 }
-        elsif ($word_level eq "Standard") { $num_level = 2 }
-        elsif ($word_level eq "High") { $num_level = 3 }
-        elsif ($word_level eq "Higher") { $num_level = 4 }
-        elsif ($word_level eq "Paranoid") { $num_level = 5 }
+	   $num_level = $sec_levels{$word_level};
         $default_file = "$::prefix/usr/share/msec/level.".$num_level;
     }
     elsif ($category eq "checks") { $default_file = "$::prefix/var/lib/msec/security.conf"; }
@@ -106,7 +106,7 @@ sub get_value {
             if($_ =~ /^$item/) {
 			 if ($category eq 'functions') {
 				my $i = $_;
-				(undef, $_) = split / /;
+				(undef, $_) = split /\(/;
 				tr /()//d;
 				$value = $_;
 				$_ = $i;
@@ -142,7 +142,6 @@ sub get_secure_level {
                 ${{ getVarsFromSh("$::prefix/etc/sysconfig/msec") }}{SECURE_LEVEL};
 		# || $ENV{SECURE_LEVEL};
 
-    my @sec_levels = ("Dangerous",  "Poor", "Standard", "High",  "Higher", "Paranoid");
     return $sec_levels[$num_level];}
 
 sub get_seclevel_list {
@@ -152,7 +151,6 @@ sub get_seclevel_list {
 sub set_secure_level {
     my $word_level = $_[1];
 
-    my %sec_levels = ("Dangerous" => 0,  "Poor" => 1, "Standard" => 2, "High" => 3,  "Higher" => 4, "Paranoid" => 5);
     my $run_level = $sec_levels{$word_level};
     system "/usr/sbin/msec", $run_level ? $run_level : 3;
 }
-- 
cgit v1.2.1