37 lines
865 B
Perl
37 lines
865 B
Perl
package My::Package;
|
|
use Lemonldap::NG::Handler::SharedConf;
|
|
@ISA = qw(Lemonldap::NG::Handler::SharedConf);
|
|
|
|
__PACKAGE__->init(
|
|
{
|
|
localStorage => "Cache::FileCache",
|
|
localStorageOptions => {
|
|
'namespace' => 'MyNamespace',
|
|
'default_expires_in' => 600,
|
|
'directory_umask' => '007',
|
|
'cache_root' => '/tmp',
|
|
'cache_depth' => 5,
|
|
},
|
|
|
|
configStorage => {
|
|
type => 'File',
|
|
dirName => '__CONFDIR__',
|
|
},
|
|
|
|
https => 0,
|
|
}
|
|
);
|
|
|
|
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,
|
|
);
|
|
}
|