Bind Help (again)

[Shain M. <sm...@tv...>]

Hi,
I am running into yet another problem here ( everytime I think I know 
what I am doing...I find out I don't :-)  Anyway here is my code.   The 
first part CheckLogin works fine...the username is checked and if it is 
there it then goes to CheckPasswordHTML and tries to bind as that user.  
When I check the ldap log I see the the CheckLogin binds anonymously as 
it should.  The problem is that the log shows CheckPasswordHTML as and 
anonymous bind  too.  I have printed out the $userDNfinal variable and 
it shows the correct value..any ideas?
Thanks again
Shain
PS-Do I need the unbind statements in there...I have tried with both 
present and commented out and it did not seem to make a difference.

sub CheckLogin {
$ldap = new Net::LDAP('server');
$mesg = $ldap->bind();
$mesg = $ldap->search (
   base    =>    'dc=tvd,dc=com',
   scope    =>    'sub',
   filter => "uid=$UserName"
);

if ($mesg->count != 1)
{
$mesg = $ldap->unbind();
&BadLoginHTML;
} else {
$mesg = $ldap->unbind();
&CheckPasswordHTML;
}
}

sub CheckPasswordHTML {
$userDN1 = "uid=";
$userDN2 = ",ou=People,dc=tvd,dc=com";

$ldap = new Net::LDAP('server');

$userDNfinal = $userDN1 . $UserName . $userDN2;
$mesg = $ldap->bind (
   base    =>    $userDNfinal,
   password => $Password
);

if ($mesg->code() == 49)
{
&BadLoginHTML;
} else {
&ConfirmLoginHTML;
}
}