33 lines
716 B
Perl
33 lines
716 B
Perl
![]() |
package Lemonldap::NG::Portal::CertificateResetByMail::Demo;
|
||
|
|
||
|
use strict;
|
||
|
use Mouse;
|
||
|
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK);
|
||
|
|
||
|
our $VERSION = '2.0.8';
|
||
|
|
||
|
sub init {
|
||
|
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,
|
||
|
mail => $uid . '@badwolf.org',
|
||
|
newCert => $newCertif,
|
||
|
userCert => $userCertif,
|
||
|
};
|
||
|
|
||
|
return PE_OK;
|
||
|
}
|
||
|
|
||
|
1;
|