Changeset 1032 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap.pm

Timestamp:

05/30/12 23:09:17 (12 years ago)

Author:

nanardon

Message:

Add authentication support to ldap

File:

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

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

@@ -229 +229 @@
 }
 
+sub authenticate_user {
+    my ($self, $username, $passwd) = @_;
+    $username or return;
+
+    # Basically, connect and if bind succeed, user is authenticated !
+    my $ldapurl = $self->ldap->uri;
+    my $ldap = Net::LDAP->new($ldapurl);
+
+    my $obj = $self->get_object('user', $username) or do {
+        $self->log(LA_ERR, "Cannot find user %s", $username);
+        return;
+    };
+
+    if ($ldap) {
+        $self->log(LA_DEBUG, "Connected to ldap server %s", $ldapurl);
+    } else {
+        $self->log(LA_ERR, "Cannot connect to %s", $ldapurl);
+        return; # cannot connect to any ldap :\
+    };
+
+
+    my $msg = $ldap->bind($obj->get_attributes('dn'), password => $passwd);
+    if ($msg->code) {
+        $self->log(LA_ERR, "Cannot bind ldap: %s", $msg->error);
+        return;
+    } else {
+        return 1; # Success !! \o/
+    }
+}
+
 1;