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

Remove space from generated login in register process (#2373)

Browse Source
This commit is contained in:
Clément OUDOT 2020-11-04 21:10:09 +01:00
parent 31ff8484bb
commit 18c1a753ad
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Register/Base.pm
View File

@ -7,7 +7,7 @@ use Text::Unidecode;
extends 'Lemonldap::NG::Portal::Main::Plugin';
our $VERSION = '2.0.8';
our $VERSION = '2.0.10';
sub _stripaccents {
my ( $self, $str ) = @_;
@ -30,7 +30,9 @@ sub applyLoginRule {
lc $self->_stripaccents( $req->data->{registerInfo}->{lastname} );
# For now, get first letter of firstname and lastname
return substr( $firstname, 0, 1 ) . $lastname;
my $login = substr( $firstname, 0, 1 ) . $lastname;
$login =~ s/\s*//g;
return $login;
}
1;

8
lemonldap-ng-portal/t/42-Register-Demo.t
View File

@ -44,7 +44,7 @@ SKIP: {
$res = $client->_post(
'/register',
IO::String->new(
'firstname=Fôo&lastname=Bàr&mail=foobar%40badwolf.org'),
'firstname=Fôo&lastname=Bà Bar&mail=foobar%40badwolf.org'),
length => 53,
accept => 'text/html'
),
@ -73,12 +73,12 @@ SKIP: {
);
$user = $1;
$pwd = $2;
ok( $user eq 'fbar', 'Get good login' );
ok( $user eq 'fbabar', 'Get good login' );
ok(
$res = $client->_post(
'/', IO::String->new("user=fbar&password=fbar"),
length => 23,
'/', IO::String->new("user=fbabar&password=fbabar"),
length => 27,
accept => 'text/html'
),
'Try to authenticate'