39 lines
889 B
Perl
39 lines
889 B
Perl
# Base package for Register modules
|
|
package Lemonldap::NG::Portal::Register::Base;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Text::Unidecode;
|
|
|
|
extends 'Lemonldap::NG::Portal::Main::Plugin';
|
|
|
|
our $VERSION = '2.1.0';
|
|
|
|
sub _stripaccents {
|
|
my ( $self, $str ) = @_;
|
|
|
|
# UTF8 really shouldn't be decoded here, but in PSGI layer instead
|
|
utf8::decode($str);
|
|
|
|
# This method replaces all non-ascii characters by the
|
|
# closest ascii lookalike
|
|
my $res = unidecode($str);
|
|
return $res;
|
|
}
|
|
|
|
sub applyLoginRule {
|
|
my ( $self, $req ) = @_;
|
|
|
|
my $firstname =
|
|
lc $self->_stripaccents( $req->data->{registerInfo}->{firstname} );
|
|
my $lastname =
|
|
lc $self->_stripaccents( $req->data->{registerInfo}->{lastname} );
|
|
|
|
# For now, get first letter of firstname and lastname
|
|
my $login = substr( $firstname, 0, 1 ) . $lastname;
|
|
$login =~ s/\s*//g;
|
|
return $login;
|
|
}
|
|
|
|
1;
|