Hi All,
Could you please let me know please, why this code is not working as I am
trying to validate my email id to my mail server?
my $ldap_server = "google.com"; # or some local mail server
my $ldap = Net::LDAP -> new($ldap_server) or die "This is Error: $@";
my $username = "username"; #ldap user name
my $password = "password"; #ldap passsword
my $mesg = $ldap->bind($username, password => $password);
$results=sprintf("%s",$mesg->error);
if ($results=~/Success/)
{
print "Thank you. You have successfully authenticated";
}
else
{
print "You are a horrible, Try again.";
}
$mesg->code && die $mesg->error;
print "Bye\n";
$mesg = $ldap->unbind; # take down session
--
Regards,
Jitendra
