From a3cc10719525f6a88b802ea3fc65a94a5d998350 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Thu, 24 Apr 2014 22:17:44 +0200
Subject: Added password weakness checking Improved icon and image installation
 and usage (File::ShareDir::Install)

---
 lib/AdminPanel/Shared/Users.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'lib/AdminPanel/Shared/Users.pm')

diff --git a/lib/AdminPanel/Shared/Users.pm b/lib/AdminPanel/Shared/Users.pm
index 7745639d..411f9425 100644
--- a/lib/AdminPanel/Shared/Users.pm
+++ b/lib/AdminPanel/Shared/Users.pm
@@ -3,6 +3,8 @@ package AdminPanel::Shared::Users;
 use diagnostics;
 use strict;
 
+use Data::Password::Meter;
+
 #-######################################################################################
 #- misc imports
 #-######################################################################################
@@ -21,6 +23,7 @@ our @EXPORT = qw(
                 valid_groupname
                 GetFaceIcon
                 Add2UsersGroup
+                strongPassword
                 );
 
 sub facesdir() {
@@ -123,4 +126,12 @@ sub Add2UsersGroup {
 }
 
 
+sub strongPassword {
+    my $passwd = shift;
+    my $pwdm = Data::Password::Meter->new();
+
+    # Check a password
+    return $pwdm->strong($passwd);
+}
+
 1;
-- 
cgit v1.2.1