Changeset 1976 for trunk/LATMOS-Accounts-Web

Timestamp:

03/28/17 13:06:50 (7 years ago)

Author:

nanardon

Message:

Fix various authentification issues

• Fix redirection when login occurs at first visit
• Don't display SSL auth button if mmultiple user have same mail

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Login.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Login.pm

@@ -29 +29 @@
 
     my $sslid = $c->config->{ssl}->{SSL_ID} || 'HTTP_SSL_CLIENT_S_DN_EMAIL';
-    $c->stash->{sslid} = $ENV{$sslid};
+    for ($sslid) {
+        $_ or last;
+
+        /^NULL$/ and last;
+
+        my @id = $c->model('Accounts')->db->search_objects('user', "mail=$sslid");
+
+        scalar(@id) == 1 or last;
+
+        $c->stash->{sslid} = $ENV{$sslid};
+    }
 
     if ($c->req->param('username')) {
@@ -37 +47 @@
                 ssl      => $c->req->param('use_ssl')  || '',
         })) {
-            my $redirurl = $c->session->{redirurl};
+            my $redirurl = $c->session->{redirurl} || $c->uri_for('/');
             $redirurl->query_form(%{ $c->session->{redirparam} || {}});
             $c->session->{redirurl} = undef;
             $c->session->{redirparam} = undef;
-            $c->res->redirect($redirurl || $c->uri_for('/'), );
+            $c->res->redirect($redirurl);
         } else {
             # invalid login...