The mutt-script now displays groups as extra info

[licom.git] / lib / LiCoM / Person.pm

diff --git a/lib/LiCoM/Person.pm b/lib/LiCoM/Person.pm
index 564d208..d9453ff 100644 (file)
--- a/lib/LiCoM/Person.pm
+++ b/lib/LiCoM/Person.pm
@@ -75,6 +75,8 @@ sub connect
 
        my $msg;
 
+       die unless ($bind_dn and $base_dn and $uri and defined ($passwd));
+
        $Ldap = Net::LDAP->new ($uri);
 
        $msg = $Ldap->bind ($bind_dn, password => $passwd);