$filter = '(objectclass=inetOrgPerson)';
}
- print STDERR "Debug: using filter: $filter";
+ #print STDERR "Debug: using filter: $filter";
$mesg = $Ldap->search
(
my $obj = shift;
my @values = @_;
my $field = $Person::AUTOLOAD;
+
+ return (undef) unless ($field);
+
$field =~ s/.*:://;
return (set ($obj, $field, @values ? [@values] : undef))
die ('No (valid) patterns found.') unless (@Patterns);
+LiCoM::Person->connect
+(
+ uri => $Config->{'uri'},
+ base_dn => $Config->{'base_dn'},
+ bind_dn => $Config->{'bind_dn'},
+ password => $Config->{'password'}
+) or die;
+
our @Matches = LiCoM::Person->search (@Patterns, [[mail => '*']]);
print STDOUT scalar (@Matches), ' ', (scalar (@Matches) == 1 ? 'entry' : 'entries'), " found.\n";