More REST debug

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/REST.pm

@@ -38,6 +38,14 @@ sub authenticate {
         $self->setSecurity($req);
         return PE_ERROR;
     }
+    $self->logger->debug( "REST result:" . ( $res->{result} || 'undef' ) );
+    if ( $res->{info} ) {
+        eval {
+            $self->logger->debug(" $_ => $res->{info}->{$_}")
+              foreach ( keys %{ $res->{info} } );
+        };
+    }
+    $self->logger->error( 'No "info": ' . $@ ) if ($@);
     unless ( $res->{result} ) {
         $self->userLogger->warn(
             "Bad credentials for " . $req->user . ' (' . $req->address . ')' );

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/REST.pm

@@ -17,6 +17,13 @@ has ua => (
 
 sub restCall {
     my ( $self, $url, $content ) = @_;
+    $self->logger->debug("REST: trying to call $url with:");
+    eval {
+        foreach ( keys %$content ) {
+            $self->logger->debug(
+                " $_: " . ( /password/ ? '****' : $content->{$_} ) );
+        }
+    };
     my $hreq = HTTP::Request->new( POST => $url );
     $hreq->header( 'Content-Type' => 'application/json' );
     $hreq->content( to_json($content) );