Many more fixes.. Trying to get all this work now..

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

diff --git a/lib/LiCoM/Connection.pm b/lib/LiCoM/Connection.pm
index ad78378..ef8955f 100644 (file)
--- a/lib/LiCoM/Connection.pm
+++ b/lib/LiCoM/Connection.pm
@@ -13,7 +13,6 @@ LiCoM::Connection - Represents the connection to an LDAP-server.
 
 =cut
 
-our %Config = get_config ();
 our $Ldap;
 
 @LiCoM::Connection::EXPORT_OK = (qw($Ldap));
@@ -37,13 +36,12 @@ sub connect
        my %opts = @_;
 
        my $bind_dn = $opts{'bind_dn'};
-       my $base_dn = $opts{'base_dn'};
        my $uri     = $opts{'uri'};
        my $passwd  = $opts{'password'};
 
        my $msg;
 
-       die unless ($bind_dn and $base_dn and $uri and defined ($passwd));
+       die unless ($bind_dn and $uri and defined ($passwd));
 
        $Ldap = Net::LDAP->new ($uri);
 
@@ -54,8 +52,6 @@ sub connect
                return (0);
        }
 
-       $Config{'base_dn'} = $base_dn;
-
        return (1);
 }