sub connectLDAP($$$)
{
	my ( $ldap_server, $ldap_username, $ldap_password ) = @_;
	my $ldap = Net::LDAP->new($ldap_server) or return 0;
	$_ = $ldap->bind( $ldap_username, password => $ldap_password ) or return 0;
	return $ldap;
}