Changeset 1367 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

07/08/15 15:06:49 (9 years ago)

Author:

nanardon

Message:

Split authentication function per base fonctionnality

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -176 +176 @@
 } 
 
+sub authenticate_user {
+    my ($self, $username, $passwd) = @_;
+    $username or return;
+    my $uobj = $self->get_object('user', $username) or do {
+        la_log(LA_ERR, "Cannot authenticate non existing user $username");
+        return;
+    };
+
+    if ($self->attribute('user', 'exported')) {
+        if (!$uobj->_get_c_field('exported')) {
+            la_log(LA_ERR, "User $username found but currently unexported");
+            return;
+        }
+    }
+
+    $self->SUPER::authenticate_user($username, $passwd);
+}
+
 =head1 SPECIFICS FUNCTIONS