Changeset 1151 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts

Timestamp:

09/19/12 17:22:52 (12 years ago)

Author:

nanardon

Message:

add tools to generate random password

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Ajax.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Ajax.pm

@@ -4 +4 @@
 use warnings;
 use base 'Catalyst::Controller';
+use LATMOS::Accounts::Utils;
 
 =head1 NAME
@@ -128 +129 @@
 }
 
+sub random_password : Local {
+    my ($self, $c) = @_;
+
+    $c->stash->{random_password} =
+    LATMOS::Accounts::Utils::genpassword(
+        %{ $c->req->params() }
+    );
+}
+
 sub check_ug_validity : Local {
     my ( $self, $c ) = @_;