dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix login generation (#26)

Browse Source
This commit is contained in:
Clément Oudot 2014-06-02 10:12:05 +00:00
parent a5b7cd030c
commit 9629d3a500
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/RegisterDBLDAP.pm
View File

@ -19,14 +19,16 @@ sub computeLogin {
substr( lc $self->{registerInfo}->{firstname}, 0, 1 ) substr( lc $self->{registerInfo}->{firstname}, 0, 1 )
. lc $self->{registerInfo}->{lastname}; . lc $self->{registerInfo}->{lastname};
my $finalLogin = $login;
# The uid must be unique # The uid must be unique
my $i = 0; my $i = 0;
while ( $self->isLoginUsed($login) ) { while ( $self->isLoginUsed($finalLogin) ) {
$i++; $i++;
$login .= $i; $finalLogin = $login . $i;
} }
$self->{registerInfo}->{login} = $login; $self->{registerInfo}->{login} = $finalLogin;
return PE_OK; return PE_OK;
} }