SAML in (big) progress (#595)

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

@@ -875,7 +875,7 @@ sub extractFormInfo {
           . $req->param("url") . "\" />"
           . "<input type=\"hidden\" name=\"idp\" value=\"$idp\" />\n";
 
-        $self->info($html);
+        $self->info( $req, $html );
 
         $req->datas->{login} = 1;
         return PE_CONFIRM;
@@ -1282,7 +1282,7 @@ sub authLogout {
     # Set signature
     my $signSLOMessage =
       $self->conf->{samlIDPMetaDataOptions}->{$idpConfKey}
-      ->{samlIDPMetaDataOptionsSignSLOMessage};
+      ->{samlIDPMetaDataOptionsSignSLOMessage} // 0;
 
     # Build Logout Request
     my $logout =

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/SAML.pm

@@ -884,7 +884,7 @@ sub run {
                 # TODO: replace this
                 #$self->info( "<h3>" . $self->msg(PM_CDC_WRITER) . "</h3>" );
 
-                $self->info($cdc_iframe);
+                $self->info( $req, $cdc_iframe );
             }
 
             # HTTP-REDIRECT
@@ -1083,7 +1083,7 @@ sub run {
 
             # Prepare logout on all others SP
             my $provider_nb =
-              $self->sendLogoutRequestToProviders( $logout, $relayID );
+              $self->sendLogoutRequestToProviders( $req, $logout, $relayID );
 
             # Decrypt session index
             my $local_session_id =
@@ -1123,18 +1123,8 @@ sub run {
 
             # If no waiting SP, return directly SLO response
             unless ($provider_nb) {
-                if (
-                    my $tmp = $self->sendLogoutResponseToServiceProvider(
-                        $logout, $method
-                    )
-                  )
-                {
-                    return $tmp;
-                }
-                else {
-                    $self->lmLog( "Fail to send SLO response", 'error' );
-                    return $self->sendSLOErrorResponse( $logout, $method );
-                }
+                return $self->sendLogoutResponseToServiceProvider( $req,
+                    $logout, $method );
             }
 
             # Else build SLO status relay URL and display info
@@ -1463,8 +1453,8 @@ sub logout {
     # providers during HTTP-REDIRECT process, return PE_INFO to notify to wait
     # for them.
     # Redirect on logout page when all is done.
-    if ( $self->sendLogoutRequestToProviders($logout) ) {
-        $self->{urldc} = $ENV{SCRIPT_NAME} . "?logout=1";
+    if ( $self->sendLogoutRequestToProviders( $req, $logout ) ) {
+        $self->{urldc} = $req->scriptname . "?logout=1";
         return PE_INFO;
     }
 

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

@@ -2309,7 +2309,6 @@ sub sendLogoutResponseToServiceProvider {
 
         $self->lmLog( "Redirect user to $slo_url", 'debug' );
 
-        die 'TODO: autoRedirect must not be called now';
         return PE_REDIRECT;
     }
 
@@ -2323,13 +2322,12 @@ sub sendLogoutResponseToServiceProvider {
 
         # TODO: insert postUrl in $req
         $req->postUrl($slo_url);
-        $req->datas->{postFields} = { 'SAMLResponse' => $slo_body };
+        $req->{postFields} = { 'SAMLResponse' => $slo_body };
 
         # RelayState
-        $req->datas->{postFields}->{'RelayState'} = $relaystate
+        $req->{postFields}->{'RelayState'} = $relaystate
           if ($relaystate);
 
-        die 'autoPost must not be called here';
         $req->steps( ['autoPost'] );
         return PE_OK;
     }
@@ -2644,7 +2642,7 @@ sub sendLogoutRequestToProviders {
     $info .= '</table>';
 
     # Print some information to the user.
-    $self->info($info) if $providersCount;
+    $self->p->info( $req, $info ) if $providersCount;
 
     return $providersCount;
 }

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm

@@ -582,4 +582,9 @@ sub getFirstValue {
     return $values[0];
 }
 
+sub info {
+    my($self,$req,$info)=@_;
+    print STDERR "####### TODO: info()\n";
+}
+
 1;

lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-POST-IdP-initiated.t

@@ -447,6 +447,7 @@ sub sp {
                         samlIDPMetaDataOptionsEncryptionMode    => 'none',
                         samlIDPMetaDataOptionsSSOBinding        => 'POST',
                         samlIDPMetaDataOptionsSLOBinding        => 'POST',
+                        samlIDPMetaDataOptionsSignSLOMessage    => 0,
                         samlIDPMetaDataOptionsAllowLoginFromIDP => 1,
                     }
                 },

lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-POST.t

@@ -7,8 +7,8 @@ BEGIN {
     require 't/test-lib.pm';
 }
 
-my $maintests = 33;
-my $debug     = 'debug';
+my $maintests = 39;
+my $debug     = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
@@ -222,6 +222,40 @@ SKIP: {
     );
     ok( $res->[0] == 200, 'Return code is 200' );
 
+    # Get SAML response
+    ok(
+        $res->[2]->[0] =~
+          /<input type="hidden".+?name="SAMLResponse".+?value="(.+?)"/s,
+        'Found SAML request'
+      )
+      or explain(
+        $res->[2],
+        ' <input type="hidden" name="SAMLRequest" id="SAMLRequest" value="...'
+      );
+    $samlReq = $1;
+    ok( decode_base64($samlReq) =~ /^</s, 'SAML response seems valid' )
+      or explain( decode_base64($samlReq), '<saml ...' );
+    ok(
+        $res->[2]->[0] =~ m#<form id="form" action="http://auth.sp.com(.*?)"#s,
+        'Found IdP URL'
+    );
+    $url = $1;
+
+    # Post SAML response to SP
+    $s = "SAMLResponse=$samlReq";
+    switch ('sp');
+    ok(
+        $res = $sp->_post(
+            $url, IO::String->new($s),
+            accept => 'text/html',
+            length => length($s),
+            cookie => 'lemonldapidp=http://auth.idp.com/saml/metadata',
+        ),
+        'Post SAML response to SP'
+    );
+    ok( $res->[0] == 302, 'Get redirection' );
+    ok( $sp->getRedirection($res) eq 'http://auth.sp.com', 'Redirection points to SP');
+
     #print STDERR Dumper($res);
 }
 

lemonldap-ng-portal/t/30-Auth-and-issuer-SAML-Redirect.t

@@ -7,8 +7,8 @@ BEGIN {
     require 't/test-lib.pm';
 }
 
-my $maintests = 32;
-my $debug     = 'debug';
+my $maintests = 37;
+my $debug     = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
@@ -209,6 +209,36 @@ SKIP: {
         ),
         'Launch SAML logout request to IdP'
     );
+    ok( $res->[0] == 302, 'Return code is 302' );
+    ok( $url = $sp->getRedirection($res), 'Get location header' )
+      or explain(
+        $res->[1],
+'Location: http://auth.sp.com/saml/proxySingleLogoutReturn?SAMLResponse=...'
+      );
+    ok(
+        $url =~
+m#^http://auth.sp.com/saml/proxySingleLogoutReturn\?SAMLResponse=(.+)#,
+        'Redirection points to SP with SAML response'
+      )
+      or explain(
+        $res->[1],
+'Location: http://auth.sp.com/saml/proxySingleLogoutReturn?SAMLResponse=...'
+      );
+    $url =~ m#^http://auth.sp.com(.+?)\?(.+)$#;
+    $url   = $1;
+    $query = $2;
+
+    # Send SAML response to SP
+    switch ('sp');
+    ok(
+        $res = $sp->_get(
+            $url,
+            query  => $query,
+            accept => 'text/html',
+        ),
+        'Launch SAML logout request to IdP'
+    );
+    ok( $res->[0] == 200, 'Return code is 200' ) or explain( $res->[0], 200 );
 
     #print STDERR Dumper($res);
 }