Changeset 1357 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix
- Timestamp:
- 06/25/15 15:38:44 (9 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/Group.pm
r1071 r1357 58 58 sub new { 59 59 my ($class, $base, $id, @args) = @_; 60 # we profit of ref, quite easy 61 if (exists($base->{groups}{$id}) && $base->{groups}{$id}) {60 61 if (exists($base->{groups}{$id})) { 62 62 if ($base->{groups}{$id}{gid} < ($base->{min_gid} || 0)) { 63 $base->log(LA_DEBUG, "gid %d less than minimal %d", $base->{groups}{$id}{gid}, ($base->{min_gid} || 0)); 63 64 return; 64 65 } 65 66 return bless($base->{groups}{$id}, $class); 66 } else { return } 67 } 68 69 sub id { 70 $_[0]->{group_name} 67 } else { 68 $base->log(LA_ERR, "Cannot find group $id"); 69 return 70 } 71 71 } 72 72 … … 75 75 if ($field eq 'user_list') { 76 76 return [ keys %{ $self->{'users'} || {} } ]; 77 } elsif ($field eq 'g oup_name') {77 } elsif ($field eq 'group_name') { 78 78 return $self->id; 79 79 } … … 88 88 if (!(defined($data{$field}) && $data{$field} =~ /^\d+$/)) { 89 89 $self->base->log(LA_ERR, 90 "Invalid data for $field: " . ($data{$field} ||''));90 "Invalid Group data for $field: " . (defined($data{$field}) ? $data{$field} : '')); 91 91 return; 92 92 } -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/User.pm
r1352 r1357 84 84 } 85 85 86 sub id {87 $_[0]->{account}88 }89 90 86 sub get_field { 91 87 my ($self, $field) = @_; … … 115 111 if(!(defined($data{$field}) && $data{$field} =~ /^\d+$/)) { 116 112 $self->base->log(LA_ERR, 117 "Invalid data for $field: " . ( $data{$field} || ''));113 "Invalid data for $field: " . (defined($data{$field}) ? $data{$field} : '(none)')); 118 114 return; 119 115 }
Note: See TracChangeset
for help on using the changeset viewer.