Changeset 1207 for trunk/LATMOS-Accounts-Web/lib/Catalyst/Authentication/Credential/La.pm

Timestamp:

12/28/12 15:05:24 (12 years ago)

Author:

nanardon

Message:

back to application side authentication to allow a working logout

File:

• trunk/LATMOS-Accounts-Web/lib/Catalyst/Authentication/Credential/La.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/Catalyst/Authentication/Credential/La.pm

@@ -99 +99 @@
 sub _login_auth {
     my ($self, $c, $realm, $authinfo) = @_;
-    my $authheader = $c->req->headers->header('Authorization')
-        or do {
-        $c->log->debug('No Authorization header found');   
-        return;
-    };
-    # TODO check auth type
-    my ($type, $base64) = $authheader =~ /(\w+) (\S+)/;
-    ($authinfo->{username}, $authinfo->{password})
-        = decode_base64($base64) =~ /^([^:]+):(.*)/;
+    if (!$authinfo) {
+        my $authheader = $c->req->headers->header('Authorization')
+            or do {
+            $c->log->debug('No Authorization header found');   
+            return;
+        };
+        # TODO check auth type
+        my ($type, $base64) = $authheader =~ /(\w+) (\S+)/;
+        ($authinfo->{username}, $authinfo->{password})
+            = decode_base64($base64) =~ /^([^:]+):(.*)/;
+    }
     
     if($c->model('Accounts')->db->connect(