Changeset 2045 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 06/14/17 16:00:44 (7 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm
r2040 r2045 56 56 multiple => 1, 57 57 }, 58 sAMAccountName => { }, 58 59 managedBy => { 59 60 delayed => 1, … … 79 80 my ($class, $base, $id, %data) = @_; 80 81 82 $data{sAMAccountName} = 'GR-' . $id; 81 83 my $entry = Net::LDAP::Entry->new(); 82 84 … … 148 150 next; 149 151 }; 152 /^sAMAccountName$/ and do { 153 # Hack... to avoid clash with user 154 if ($value !~ /^GR-/) { 155 $value = 'GR-' . $value; 156 } 157 next; 158 }; 150 159 } 151 160 $self->SUPER::_populate_entry($entry, $field, $value, $base); -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm
r2040 r2045 50 50 name => { }, 51 51 givenName => { }, 52 sAMAccountName => { }, 52 53 uid => { uniq => 1, }, 53 54 gecos => { }, … … 138 139 $base->object_base_dn($class->type), 139 140 )); 141 $data{'sAMAccountName'} ||= $id; 140 142 $entry->replace(objectClass => [ $class->_my_ldap_classes ],); 141 143 # Must be 544 for creation... -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r2041 r2045 946 946 }, 947 947 label => l('Name'), 948 }, 949 sAMAccountName => { 950 ro => 1, 951 managed => 1, 952 iname => 'name', 948 953 }, 949 954 accountExpires => {
Note: See TracChangeset
for help on using the changeset viewer.