Changeset 69 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm

Timestamp:

05/05/09 01:43:36 (15 years ago)

Author:

nanardon

Message:

• Ad::Group, allow create
• escape CN=

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm

@@ -42 +42 @@
     my ($self, $base, $mode) = @_;
     (
-        qw(),
+        qw(gidNumber description),
         ($mode !~ /w/
-            ? qw(cn dn)
+            ? qw(cn dn member)
             : ()
         )
     )
+}
+
+sub _create {
+    my ($class, $base, $id, %data) = @_;
+
+    my $entry = Net::LDAP::Entry->new();
+
+    $entry->dn(join(',',
+        sprintf('cn=%s', escape_filter_value($id)),
+        'cn=Users',
+        $base->top_dn
+    ));
+    $entry->replace(objectClass => [ qw(top group)],);
+    foreach (keys %data) {
+        $class->_populate_entry($entry, $_, $data{$_});
+    }
+    my $msg = $base->ldap->add($entry);
+    return $msg->code ? 0 : 1;
 }