100
my $LDAPconn;
100
my $LDAPconn;
101
if($LDAPserver =~ /\:\/\//) {
101
if($LDAPserver =~ /:\/\//) {
102
# if the "LDAPserver" parameter is in uri scheme
102
# if the "LDAPserver" parameter is in uri scheme
103
$LDAPconn = Net::LDAP->new($LDAPserver, version => 3);
103
$LDAPconn = Net::LDAP->new($LDAPserver, version => 3);
104
} else {
104
} else {