Re: ldap SASL GSSAPI connection

[Achim Grolms]

On Tuesday 06 June 2006 18:45, Derek T. Yarnell wrote:

> Doesn't seem to do the right thing...

Here's my usage example.
Do you get an errormessage?



#! /usr/bin/perl -w

use strict;

use Net::LDAP 0.33;
use Authen::SASL 2.10;

# -------- Adjust to your environment --------
my $adhost      = 'theserver.bla.net';
my $ldap_base   = 'dc=bla,dc=net';
my $ldap_filter = '(&(sAMAccountName=BLAAGROL))';

my $sasl = Authen::SASL->new( mechanism => 'GSSAPI' );

my $ldap;
eval {
    $ldap = Net::LDAP->new( $adhost,
                            onerror => 'die',
                          ) or die "Cannot connect to LDAP host '$adhost': 
'$@'";
    $ldap->bind( sasl => $sasl  );
};

if ($@) {
    chomp $@;
    die   "\nBind error         : $@",
          "\nDetailed SASL error: ", $sasl->error,
          "\nTerminated";
}

print "\nLDAP bind() succeeded, working in authenticated state";

my $mesg = $ldap->search( base   => $ldap_base,
                          filter => $ldap_filter );

pgpASfClPe8jc.pgp
Description: PGP signature