projects
/
licom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mutt-licom.pl is working now.
[licom.git]
/
mutt-licom.pl
diff --git
a/mutt-licom.pl
b/mutt-licom.pl
index
894bd1e
..
07e669c
100755
(executable)
--- a/
mutt-licom.pl
+++ b/
mutt-licom.pl
@@
-28,6
+28,14
@@
for (@ARGV)
die ('No (valid) patterns found.') unless (@Patterns);
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";
our @Matches = LiCoM::Person->search (@Patterns, [[mail => '*']]);
print STDOUT scalar (@Matches), ' ', (scalar (@Matches) == 1 ? 'entry' : 'entries'), " found.\n";