Append debug logs (#2071)

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/StatusConstants.pm

@@ -108,7 +108,7 @@ sub portalConsts {
 }
 
 # EXPORTER PARAMETERS
-our @EXPORT_OK   = ('portalConsts');
+our @EXPORT_OK = ('portalConsts');
 our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, 'import' ], );
 
 1;

lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Attributes.pm

@@ -142,7 +142,7 @@ qr/^(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-
                 eval {
                     do {
                         qr/$_[0]/;
-                    }
+                      }
                 };
                 return $@ ? ( 0, "__badRegexp__: $@" ) : 1;
             }
@@ -223,7 +223,8 @@ m[^(?:(?:\-+\s*BEGIN\s+(?:PUBLIC\s+KEY|CERTIFICATE)\s*\-+\r?\n)?[a-zA-Z0-9/\+\r\
         },
         'select' => {
             'test' => sub {
-                my $test = grep( { $_ eq $_[0]; }
+                my $test =
+                  grep( { $_ eq $_[0]; }
                     map( { $_->{'k'}; } @{ $_[2]{'select'}; } ) );
                 return $test
                   ? 1
@@ -1710,7 +1711,7 @@ qr/^(?:\*\.)?(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][
                     eval {
                         do {
                             qr/$_[0]/;
-                        }
+                          }
                     };
                     return $@ ? 0 : 1;
                 },

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/Notifications.pm

@@ -206,17 +206,20 @@ sub retrieveNotifs {
     my ( $self, $req ) = @_;
 
     # Retrieve user's accepted notifications
+    $self->logger->debug( 'Searching for "'
+          . $req->userData->{ $self->conf->{whatToTrace} }
+          . '" accepted notification(s)' );
     my @_notifications = sort {
              $b->{epoch} <=> $a->{epoch}
           or $a->{reference} cmp $b->{reference}
-    } (
+      } (
         map {
             /^notification_(.+)$/
               ? { reference => $1, epoch => $req->{userData}->{$_} }
               : ()
           }
           keys %{ $req->{userData} }
-    );
+      );
     splice @_notifications, $self->conf->{notificationsMaxRetrieve};
 
     return \@_notifications;
@@ -224,8 +227,11 @@ sub retrieveNotifs {
 
 sub _viewNotif {
     my ( $self, $req, $ref, $epoch ) = @_;
+
+    $self->logger->debug( "Retrieve notification with reference: \"$ref\" and epoch: \"$epoch\"" );
     my $notif = eval { $self->module->viewNotification( $req, $ref, $epoch ); };
     if ($@) {
+    	$self->logger->debug( "Notification not found" );
         $self->logger->error($@);
         return '';
     }