Changeset 1975 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 03/17/17 18:36:11 (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/Unix.pm
r1406 r1975 361 361 362 362 sub create_object { 363 my ($self, $otype, $id, %data) = @_; 363 my ($self, $otype, $id, %gdata) = @_; 364 365 my %data; 366 367 foreach my $attr (keys %gdata) { 368 if (my $oattr = $self->attribute($otype, $attr)) { 369 $data{ $oattr->iname } = $gdata{$attr}; 370 } else { 371 $data{$attr} = $gdata{$attr}; 372 } 373 } 364 374 365 375 # objects are store into sub ref: … … 374 384 } 375 385 if(/^group$/ && !defined($data{gid})) { 376 $self->log(LA_ERR, " uid orgid missing to create $otype");386 $self->log(LA_ERR, "gid missing to create $otype"); 377 387 return; 378 388 } -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/Group.pm
r1568 r1975 83 83 84 84 sub set_fields { 85 my ($self, %data) = @_; 85 my ($self, %gdata) = @_; 86 87 my %data; 88 89 foreach my $attr (keys %gdata) { 90 if (my $oattr = $self->attribute($attr)) { 91 $data{ $oattr->iname } = $gdata{$attr}; 92 } else { 93 $data{$attr} = $gdata{$attr}; 94 } 95 } 96 86 97 foreach my $field (keys %data) { 87 98 $field eq 'gid' and do { -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/User.pm
r1935 r1975 54 54 givenName => { ro => 1 }, 55 55 sn => { ro => 1 }, 56 uid => { iname => 'login', ro => 1 },57 56 sAMAccountName => { iname => 'login', ro => 1 }, 58 57 $base->{use_shadow} ? … … 106 105 107 106 sub set_fields { 108 my ($self, %data) = @_; 107 my ($self, %gdata) = @_; 108 109 my %data; 110 111 foreach my $attr (keys %gdata) { 112 if (my $oattr = $self->attribute($attr)) { 113 $data{ $oattr->iname } = $gdata{$attr}; 114 } else { 115 $data{$attr} = $gdata{$attr}; 116 } 117 } 118 109 119 foreach my $field (keys %data) { 110 120 $field =~ /^(uid|gid)$/ and do {
Note: See TracChangeset
for help on using the changeset viewer.