use
strict;
use
Mouse;
our
$VERSION
=
'2.0.15'
;
sub
init {
return
1;
}
## @method int modifCertificate
# Do nothing
# @result Lemonldap::NG::Portal constant
sub
modifCertificate {
my
(
$self
,
$req
,
$newCertif
,
$userCertif
) =
@_
;
my
$uid
=
$req
->user ||
$req
->userData->{_user} ||
$req
->sessionInfo->{_user};
$Lemonldap::NG::Portal::UserDB::Demo::demoAccounts
{
$uid
} = {
uid
=>
$uid
,
cn
=>
$uid
.
' '
.
uc
$uid
,
=>
$uid
.
'@badwolf.org'
,
newCert
=>
$newCertif
,
userCert
=>
$userCertif
,
};
return
PE_OK;
}
1;