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);
 
+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";