Changeset 1493 for trunk/LATMOS-Accounts/lib

Timestamp:

12/01/15 12:12:01 (9 years ago)

Author:

nanardon

Message:

Add support for aliases in ldap (nisMailAlias)

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Ldap.pm (modified) (1 diff)
• Ldap/Aliases.pm (added)
• Ldap/objects.pm (modified) (1 diff)
• Sql/Aliases.pm (modified) (1 diff)

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

@@ -98 +98 @@
 
     my $ldapurl = $self->_ldap_url($self->config('server'));
-    my $ldap = Net::LDAP->new($ldapurl);
+    my $ldap = Net::LDAP->new($ldapurl, async => 0);
         
 

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

@@ -108 +108 @@
     );
 
-    $mesg->code and return;
+    if ($mesg->code)  {
+        $base->log(LA_ERR, 'Cannot fetch %s/%s: %s', $class->type, $uid, $mesg->code);
+        return;
+    }
 
     my ($entry, @others) = $mesg->entries;
 
-    return if(@others); # we cannot have multiple entries...
-    return if (!$entry);
+    if(@others) { # we cannot have multiple entries...
+        $base->la_log(LA_ERR, 'Multiple entry found forr %s/%s', $class->type, $uid);
+        return;
+    }
+    if (!$entry) {
+        $base->log(LA_DEBUG, 'Cannot fetch %s/%s: no entry returned', $class->type, $uid);
+        return;
+    }
     bless({ entry => $entry, _base => $base, _id => $uid }, $class);
 }

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

@@ -81 +81 @@
                 },
             },
+            rfc822MailMember => {
+                iname => 'forward',
+                hidden => 1,
+            },
             finalpoint      => {
                 ro => 1,