Changeset 895 for LATMOS-Accounts-Web/lib/Catalyst

Timestamp:

02/20/12 16:10:01 (12 years ago)

Author:

nanardon

Message:

• check there is Authorization header

File:

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

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');
+    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+)/;