#! /usr/bin/perl

use strict;
use warnings;
use Net::LDAPS;
use Net::LDAP;


my $host = "w.x.y.z:389";
my $ldaps = 0;
my $adminDn = "CN=LDAPAUTHUSER, CN=Users, OU=company,DC=company,CN=de";
my $adminPwd = "adminpassword!";
my $searchBase = "CN=department,OU=company,DC=company,CN=de";


my $userdn = testGuid ("$myGUID", "$password");
if ($userdn)
{
	print "$userdn checks out!\n";
}


sub getUserDn
{
	my $ldap;
	my $guid = shift;
	my $dn;
	my $entry;

	if ($ldaps) {
		$ldap = Net::LDAPS->new($host, verify=>'none') or die "$@";
	}
	else {
		$ldap = Net::LDAP->new($host, verify=>'none') or die "$@";		
	}
	
	my $mesg = $ldap->bind ($adminDn, password=>"$adminPwd");
	
	$mesg->code && return undef;
	
	$mesg = $ldap->search(base => $searchBase, filter => "uid=$guid" );
	 
	$mesg->code && return undef;
	$entry = $mesg->shift_entry;
	 
	if ($entry)
	{
		$dn = $entry->dn;
		$entry->dump;
	}
	
	
	$ldap->unbind;
	
	return $dn;
}

sub testGuid
{
	my $ldap;

	my $guid = shift;
	my $userPwd = shift;
	my $userDn = getUserDn ($guid);

	return undef unless $userDn;
	
	if ($ldaps) {
		$ldap = Net::LDAPS->new($host, verify=>'none') or die "$@";
	}
	else {
		$ldap = Net::LDAP->new($host, verify=>'none') or die "$@";		
	}

	my $mesg = $ldap->bind ($userDn, password=>"$userPwd");
	
	if ($mesg->code)
	{
		# Bad Bind
		print $mesg->error . "\n";
		return undef;
	}
	$ldap->unbind;
	
	return $userDn;
}