new version of perl-ldap-0.20

[Karl-Heinz R. <kar...@co...>]

just to keep track of changes:

Anonymous bind does no more work with my old version (top), but I had to change
the
code (see below).

#-------------------------------------------------------------
# sub ldapbind returns ldap-object OLD
#-------------------------------------------------------------
sub f_ldapbind {
my ($cref,$vref) = @_;
my ($ldap,$ldap_ref,$msg,$msg_ref,$dn,$uid,$pwd);
my %cookie = %$cref;
my %v = %$vref;
$uid = $cookie{$v{'authuid'}} || "";
$pwd = $cookie{$v{'authpwd'}} || "";
$dn = "uid=" . $uid . "," . $cookie{$v{'base'}};

$ldap = new Net::LDAP($cookie{$v{'servername'}}, port=>$cookie{$v{'serverport'}}
);
$msg = $ldap->bind( $dn ,
                    password => $pwd,
                    version => 3        );
$ldap_ref = \$ldap;
$msg_ref = \$msg;

return ($msg_ref, $ldap_ref);
}
#--------------------------------------------------------------------------------------------------------------------

#-------------------------------------------------------------
# sub ldapbind returns ldap-object NEW
#-------------------------------------------------------------
sub f_ldapbind {
my ($cref,$vref) = @_;
my ($ldap,$ldap_ref,$msg,$msg_ref,$dn,$uid,$pwd);
my %cookie = %$cref;
my %v = %$vref;
$uid = $cookie{$v{'authuid'}} || "";
$pwd = $cookie{$v{'authpwd'}} || "";
$dn = "uid=" . $uid . "," . $cookie{$v{'base'}};

$ldap = new Net::LDAP($cookie{$v{'servername'}},
port=>$cookie{$v{'serverport'}});

if ($uid and $pwd) {
        $msg = $ldap->bind( $dn ,
                            password => $pwd,
                            version => 3        );
} else {
        $msg = $ldap->bind;
}
$ldap_ref = \$ldap;
$msg_ref = \$msg;

return ($msg_ref, $ldap_ref);
}