6 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
7 |
|
|
8 |
sub create { |
sub create { |
9 |
warn "# create",dump(@_); |
#warn "# create",dump(@_); |
10 |
my $self = shift; |
my $self = shift; |
11 |
my %data = @_ or die "no data?"; |
my %data = @_ or die "no data?"; |
12 |
foreach my $col ( keys %data ) { |
foreach my $col ( keys %data ) { |
13 |
warn "## ref($col)=",ref($col); |
#warn "## ref($col)=",ref($col); |
14 |
$data{$col} = join(' <*> ', @{$data{$col}}) if ref( $data{$col} ) eq 'ARRAY'; |
$data{$col} = join(' <*> ', @{$data{$col}}) if ref( $data{$col} ) eq 'ARRAY'; |
15 |
} |
} |
16 |
warn "## data = ",dump( %data ); |
#warn "## data = ",dump( %data ); |
17 |
$self->SUPER::create( %data ); |
$self->SUPER::create( %data ); |
18 |
} |
} |
19 |
|
|
209 |
return $self->cn . ' - ' . $self->o; |
return $self->cn . ' - ' . $self->o; |
210 |
} |
} |
211 |
|
|
212 |
|
=head2 validate_uidNumber |
213 |
|
|
214 |
|
=cut |
215 |
|
|
216 |
|
sub validate_uidNumber { |
217 |
|
my ( $self, $value ) = @_; |
218 |
|
return ( 0, _('uidNumber must be only digits') ) unless $value =~ m/^\d+$/; |
219 |
|
return ( 1, 'OK' ); |
220 |
|
} |
221 |
|
|
222 |
|
=head2 validate_gidNumber |
223 |
|
|
224 |
|
=cut |
225 |
|
|
226 |
|
sub validate_gidNumber { |
227 |
|
my ( $self, $value ) = @_; |
228 |
|
return ( 0, _('gidNumber must be only digits') ) unless $value =~ m/^\d+$/; |
229 |
|
return ( 1, 'OK' ); |
230 |
|
} |
231 |
|
|
232 |
=head2 ACL |
=head2 ACL |
233 |
|
|