48 lines
1.1 KiB
Perl
48 lines
1.1 KiB
Perl
package Lemonldap::NG::Portal::Register::Demo;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK PE_MALFORMEDUSER);
|
|
|
|
extends 'Lemonldap::NG::Portal::Register::Base';
|
|
|
|
our $VERSION = '2.1.0';
|
|
|
|
sub init {
|
|
1;
|
|
}
|
|
|
|
# Compute a login from register infos
|
|
# @result Lemonldap::NG::Portal constant
|
|
sub computeLogin {
|
|
my ( $self, $req ) = @_;
|
|
|
|
# Get first letter of firstname and lastname
|
|
my $login = $self->applyLoginRule($req);
|
|
|
|
if ($login) {
|
|
$req->data->{registerInfo}->{login} = $login;
|
|
return PE_OK;
|
|
}
|
|
else {
|
|
return PE_MALFORMEDUSER;
|
|
}
|
|
}
|
|
|
|
## @method int createUser
|
|
# Do nothing
|
|
# @result Lemonldap::NG::Portal constant
|
|
sub createUser {
|
|
my ( $self, $req ) = @_;
|
|
$Lemonldap::NG::Portal::UserDB::Demo::demoAccounts{ $req->data
|
|
->{registerInfo}->{login} } = {
|
|
uid => $req->data->{registerInfo}->{login},
|
|
cn => $req->data->{registerInfo}->{firstname} . ' '
|
|
. $req->data->{registerInfo}->{lastname},
|
|
mail => $req->data->{registerInfo}->{login} . '@badwolf.org',
|
|
};
|
|
return PE_OK;
|
|
}
|
|
|
|
1;
|