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 )
. lc $self->{registerInfo}->{lastname};
my $finalLogin = $login;
# The uid must be unique
my $i = 0;
while ( $self->isLoginUsed($login) ) {
while ( $self->isLoginUsed($finalLogin) ) {
$i++;
$login .= $i;
$finalLogin = $login . $i;
}
$self->{registerInfo}->{login} = $login;
$self->{registerInfo}->{login} = $finalLogin;
return PE_OK;
}