Changeset 1378 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

Timestamp:

08/13/15 18:07:55 (9 years ago)

Author:

nanardon

Message:

add yesno() function for configutration option

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -21 +21 @@
 
 @ISA = qw(Exporter);
-@EXPORT = qw(to_ascii exec_command switch_user run_via_sudo);
-@EXPORT_OK = qw(to_ascii exec_command switch_user run_via_sudo);
+@EXPORT = qw(to_ascii exec_command switch_user run_via_sudo yesno);
+@EXPORT_OK = qw(to_ascii exec_command switch_user run_via_sudo yesno);
 
 =head2 to_ascii($text)
@@ -248 +248 @@
 }
 
-=head2 genpassword
+=head2 genpassword(%options)
+
+Generate a random password, options are:
+
+=over4
+
+=item length
+
+The minimum password length (default is 6)
+
+=item nonalpha
+
+Include non alpha-numeric caracters
+
+=item syllables
+
+Use a set of syllables instead letter
+
+=back
 
 =cut
@@ -296 +314 @@
 }
 
+=head2 yesno($value, $default)
+
+Check is a paramter mean yes or no
+
+=cut
+
+sub yesno {
+    my ($value, $default) = @_;
+
+    if ($value =~ /^(yes|1|true)$/i) {
+        return 1;
+    }
+    if ($value =~ /^(no|0|false)$/i) {
+        return 0;
+    }
+    if ($value =~ /^\d+$/ and $value != 0) {
+        return 1;
+    }
+    return $default || $value;
+}
+
 1;