29 lines
671 B
Perl
29 lines
671 B
Perl
package My::Package;
|
|
use Lemonldap::NG::Handler::SharedConf;
|
|
@ISA = qw(Lemonldap::NG::Handler::SharedConf);
|
|
|
|
__PACKAGE__->init(
|
|
{
|
|
https => 0,
|
|
# Uncomment this to activate status module
|
|
# status => 1,
|
|
|
|
# CUSTOM FUNCTION : if you want to create customFunctions in rules, declare them here
|
|
#customFunctions => 'function1 function2',
|
|
}
|
|
);
|
|
|
|
use Log::Log4perl;
|
|
|
|
sub logForbidden {
|
|
my $class = shift;
|
|
my $log = Log::Log4perl->get_logger("My::Package");
|
|
$log->warn(
|
|
'The user "'
|
|
. $datas->{$whatToTrace}
|
|
. '" was reject when he tried to access to '
|
|
. shift,
|
|
);
|
|
}
|
|
1;
|