Changeset 2047 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 06/14/17 16:00:46 (7 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm
r2045 r2047 139 139 $base->object_base_dn($class->type), 140 140 )); 141 $data{'sAMAccountName'} ||= $id;141 $data{'sAMAccountName'} ||= substr($id, 0, 19); 142 142 $entry->replace(objectClass => [ $class->_my_ldap_classes ],); 143 143 # Must be 544 for creation... -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r2045 r2047 951 951 managed => 1, 952 952 iname => 'name', 953 get => sub { 954 my ($self) = @_; 955 substr($self->object->id, 0, 19) 956 }, 953 957 }, 954 958 accountExpires => { -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm
r2041 r2047 261 261 return "must contain only a-z,0-9" 262 262 if ($name !~ /^[a-z,0-9,_,\-,\.]+$/); 263 return "lenght must be < 19 characters" 264 if (length($name) >= 20); 263 265 264 266 return check_oid_validity($name);
Note: See TracChangeset
for help on using the changeset viewer.