79 lines
2.0 KiB
Perl
79 lines
2.0 KiB
Perl
package Lemonldap::NG::Portal::Register::AD;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Lemonldap::NG::Portal::Main::Constants qw(
|
|
PE_OK
|
|
PE_LDAPERROR
|
|
);
|
|
|
|
extends 'Lemonldap::NG::Portal::Register::LDAP';
|
|
|
|
our $VERSION = '2.0.14';
|
|
|
|
sub createUser {
|
|
my ( $self, $req ) = @_;
|
|
|
|
my $name =
|
|
ucfirst $req->data->{registerInfo}->{firstname} . " "
|
|
. uc $req->data->{registerInfo}->{lastname};
|
|
|
|
my $sn = uc $req->data->{registerInfo}->{lastname};
|
|
my $gn = ucfirst $req->data->{registerInfo}->{firstname};
|
|
utf8::decode($sn);
|
|
utf8::decode($gn);
|
|
my $mesg = $self->ldap->add(
|
|
"cn=$name," . $self->conf->{ldapBase},
|
|
attrs => [
|
|
objectClass => [qw/top person organizationalPerson user/],
|
|
sAMAccountName => $req->data->{registerInfo}->{login},
|
|
cn => $name,
|
|
sn => $sn,
|
|
givenName => $gn,
|
|
unicodePwd => utf8(
|
|
chr(34) . $req->data->{registerInfo}->{password} . chr(34)
|
|
)->utf16le(),
|
|
mail => $req->data->{registerInfo}->{mail},
|
|
]
|
|
);
|
|
|
|
if ( $mesg->is_error ) {
|
|
$self->userLogger->error(
|
|
"Can not create entry for " . $req->data->{registerInfo}->{login} );
|
|
$self->logger->error(
|
|
"LDAP error " . $mesg->code . ": " . $mesg->error );
|
|
|
|
$self->ldap->unbind();
|
|
return PE_LDAPERROR;
|
|
}
|
|
return PE_OK;
|
|
}
|
|
|
|
# PRIVATE METHODS
|
|
|
|
# Search if login is already in use
|
|
sub isLoginUsed {
|
|
my ( $self, $login ) = @_;
|
|
|
|
my $mesg = $self->ldap->search(
|
|
base => $self->conf->{ldapBase},
|
|
filter => "(sAMAccountName=$login)",
|
|
scope => "sub",
|
|
attrs => ['1.1'],
|
|
);
|
|
|
|
if ( $mesg->code() != 0 ) {
|
|
$self->logger->warn( "LDAP Search error for $login: " . $mesg->error );
|
|
return 1;
|
|
}
|
|
|
|
if ( $mesg->count() > 0 ) {
|
|
$self->logger->debug("Login $login already used in LDAP");
|
|
return 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
1;
|