Changeset 2047

Timestamp:

06/14/17 16:00:46 (7 years ago)

Author:

nanardon

Message:

Limit sAMAccountName to 19 caracters

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases/Ad/User.pm (modified) (1 diff)
• Bases/Sql/User.pm (modified) (1 diff)
• Utils.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm

@@ -139 +139 @@
             $base->object_base_dn($class->type),
     ));
-    $data{'sAMAccountName'} ||= $id;
+    $data{'sAMAccountName'} ||= substr($id, 0, 19);
     $entry->replace(objectClass => [ $class->_my_ldap_classes ],);
     # Must be 544 for creation...

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

@@ -951 +951 @@
                 managed => 1,
                 iname => 'name',
+                get => sub {
+                    my ($self) = @_;
+                    substr($self->object->id, 0, 19)
+                },
             },
             accountExpires => {

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -261 +261 @@
     return "must contain only a-z,0-9"
         if ($name !~ /^[a-z,0-9,_,\-,\.]+$/);
+    return "lenght must be < 19 characters"
+        if (length($name) >= 20);
 
     return check_oid_validity($name);