Changed structure of perl modules to be more useful.

[licom.git] / mutt-licom.pl

diff --git a/mutt-licom.pl b/mutt-licom.pl
new file mode 100755 (executable)
index 0000000..e3991f8
--- /dev/null
+++ b/mutt-licom.pl
@@ -0,0 +1,56 @@
+#! /usr/bin/perl -Tw
+# 2005-02-24: Fixed for AD/Exchange 2003 & Unicode characters,
+# anders@bsdconsulting.no If you find this script useful, let me know. :-)
+#
+# 2000/2001: Original version obtained from Andreas Plesner Jacobsen at
+# World Online Denmark. Worked for me with Exchange versions prior to Exchange
+# 2000.
+#
+# Use it with mutt by putting in your .muttrc:
+# set query_command = "/home/user/bin/mutt-ldap.pl '%s'"
+#
+# Then you can search for your users by name directly from mutt. Press ^t
+# after having typed parts of the name. Remember to edit configuration
+# variables below.
+
+use strict;
+use Encode qw/encode decode/;
+use vars qw { $ldapserver $domain $username $password $basedn };
+
+# --- configuration ---
+$ldapserver = "domaincontroller.yourdomain.com";
+$domain = "YOURDOMAIN";
+$username = "myuser";
+$password = "mypassword";
+$basedn = "ou=companyxy,dc=companyxy,dc=tld";
+# --- end configuration ---
+
+#my $search=shift;
+my $search=encode("UTF-8", join(" ", @ARGV));
+
+if (!$search=~/[\.\*\w\s]+/) {
+       print("Invalid search parameters\n");
+       exit 1;
+}
+
+use Net::LDAP;
+
+my $ldap = Net::LDAP->new($ldapserver) or die "$@";
+
+$ldap->bind("$domain\\$username", password=>$password);
+
+my $mesg = $ldap->search (base => $basedn,
+                          filter => "(|(cn=*$search*) (rdn=*$search*) (uid=*$search*) (mail=*$search*))",
+                         attrs => ['mail','cn']);
+
+$mesg->code && die $mesg->error;
+
+print(scalar($mesg->all_entries), " entries found\n");
+
+foreach my $entry ($mesg->all_entries) {
+       if ($entry->get_value('mail')) {
+               print($entry->get_value('mail'),"\t",
+                     decode("UTF-8", $entry->get_value('cn')),"\tFrom Exchange LDAP database\n");
+               }
+       }
+$ldap->unbind;