- Timestamp:
- 12/02/11 11:42:17 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/Onlyaddress.pm
r678 r861 47 47 ) } 48 48 49 sub _delayed_fields { 50 my ($self)= @_; 51 return qw(); 52 } 53 54 sub _canonical_fields { 55 my ($self, $base, $mode) = @_; 56 ( 57 qw(displayName givenName 58 initials mail sn 59 mobile o uid facsimileTelephoneNumber), # inetOrgPerson 60 qw(street postOfficeBox postalCode postalAddress streetAddress 61 physicalDeliveryOfficeName ou st l telephoneNumber), # organizationalPerson 62 ($mode 63 !~ /w/ 64 ? qw(cn dn objectClass) 65 : () 66 ) 67 ) 49 sub _get_attr_schema { 50 my ($class, $base) = @_; 51 { 52 # inetOrgPerson 53 displayName => {}, 54 givenName => {}, 55 initials => {}, 56 mail => {}, 57 sn => {}, 58 mobile => {}, 59 o => {}, 60 uid => {}, 61 facsimileTelephoneNumber => {}, 62 # organizationalPerson 63 street => {}, 64 postOfficeBox => {}, 65 postalCode => {}, 66 postalAddress => {}, 67 streetAddress => {}, 68 physicalDeliveryOfficeName => {}, 69 ou => {}, 70 st => {}, 71 l => {}, 72 telephoneNumber => {}, 73 cn => { ro => 1 }, 74 dn => { ro => 1 }, 75 objectClass => { ro => 1 }, 76 } 68 77 } 69 78 … … 80 89 [ $class->_my_ldap_classes ],); 81 90 $data{sn} ||= $id; # sn is mandatory 91 $data{cn} = $id; 82 92 foreach (keys %data) { 83 93 $class->_populate_entry($entry,
Note: See TracChangeset
for help on using the changeset viewer.