LEMONLDAP::NG : adding a simple example to use Log::Log4Perl for rejected requests

modules/lemonldap-ng-handler/example/MyHandlerLog4Perl.pm

@@ -0,0 +1,36 @@
+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,
+    );
+}

modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm

@@ -440,6 +440,12 @@ sub forbidden {
     if ( $datas->{_logout} ) {
         return $class->goToPortal( $datas->{_logout}, 'logout=1' );
     }
+    $class->logForbidden(@_);
+    return FORBIDDEN;
+}
+
+sub logForbidden {
+    my $class = shift;
     $class->lmLog(
         'The user "'
           . $datas->{$whatToTrace}
@@ -447,7 +453,6 @@ sub forbidden {
           . shift,
         'notice'
     );
-    return FORBIDDEN;
 }
 
 # hideCookie : hide Lemonldap::NG cookie to the protected application