-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 warnings;
+use lib (qw(lib));
+
+use LiCoM::Config (qw(get_config));
+use LiCoM::Person;
+
+our $Config = get_config ();
+
+die unless (defined ($Config->{'uri'}) and defined ($Config->{'bind_dn'})
+ and defined ($Config->{'password'}));
+
+$Config->{'base_dn'} = $Config->{'bind_dn'} unless (defined ($Config->{'base_dn'}));