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