127 |
$args->{limit} ||= 0; # unlimited by default |
$args->{limit} ||= 0; # unlimited by default |
128 |
|
|
129 |
my $filter = $collection2filter->{$model}; |
my $filter = $collection2filter->{$model}; |
130 |
die "unknown model $model" unless $filter; |
# die "unknown model $model" unless $filter; |
131 |
|
# fallback to model named as objectClass |
132 |
|
$filter ||= "(objectClass=$model)"; |
133 |
|
|
134 |
# add user filter |
# add user filter |
135 |
$filter = '(&' . $filter . $args->{filter} . ')' if $args->{filter}; |
$filter = '(&' . $filter . $args->{filter} . ')' if $args->{filter}; |