test ldap server auth

無啦啦要 check 下個 ldap auth ok 唔 ok

#!/usr/bin/perl
#
# test ldap call
#
use Authen::Simple::LDAP;

my $ldap = Authen::Simple::LDAP->new(host => '192.168.0.1', basedn => 'ou=People,o=finance,dc=abc,dc=com') or die "$@";

if ($ldap->authenticate('test','ttpasswd'))
{
         print "auth ok\n";
}
else
{
         print "auth fail\n";
}