From 3cb9fc2980fe586b599b5704e2db95bf50b56b87 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Mon, 9 Dec 2013 17:48:53 +0100
Subject: used security::level

---
 AdminPanel/Users/GUsers.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'AdminPanel')

diff --git a/AdminPanel/Users/GUsers.pm b/AdminPanel/Users/GUsers.pm
index 051dd57..388b922 100644
--- a/AdminPanel/Users/GUsers.pm
+++ b/AdminPanel/Users/GUsers.pm
@@ -30,6 +30,7 @@ package AdminPanel::Users::GUsers;
 
 use strict;
 use common;
+use security::level;
 use run_program;
 ## USER is from userdrake
 use USER;
@@ -47,7 +48,6 @@ our @EXPORT = qw(addUserDialog
 
 
 sub addUserDialog {
-    my $secfile = '/etc/sysconfig/msec';
     my $GetValue = -65533; ## Used by USER (for getting values? TODO need explanations, where?)
     my $dontcreatehomedir = 0; my $is_system = 0;
     my $ctx = USER::ADMIN->new;
@@ -199,8 +199,8 @@ sub addUserDialog {
                     $errorString = N("Password Mismatch");
                     $continue = 0;
                 }
-                my %sec = getVarsFromSh($secfile);
-                if ($sec{SECURE_LEVEL} && $sec{SECURE_LEVEL} > 3 && length($passwd) < 6) {
+                my $sec = security::level::get();
+                if ($sec > 3 && length($passwd) < 6) {
                     $errorString = N("This password is too simple. \n Good passwords should be > 6 characters");
                     $continue = 0;
                 }
-- 
cgit v1.2.1