#! /usr/bin/perl

use strict;

#http://search.cpan.org/~gbarr/perl-ldap-0.30/lib/Net/LDAP.pod
use Net::LDAPS;
use Net::LDAP;

my $host = "myhost:389";
my $ldaps = 0;
my $adminDn = "cn=myapp, ou=applications, o=MyOrg";
my $adminPwd = "password";
my $searchBase = "ou=people, o=MyOrg";


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;
}
[download]