bhikshu has asked for the wisdom of the Perl Monks concerning the following question:
Thanks, -Neel.my $sasl = Authen::SASL->new( mechanism => 'GSSAPI' , debug => 8); my $ldap; eval { # Login to LDAP print "Connecting to LDAP..."; $ldap = Net::LDAP->new($ldap_server) or die $@; my $dse = $ldap->root_dse(); $dse->supported_sasl_mechanism ( 'GSSAPI' ) || die "\n sorry, $ldap +_server does not support GSSAPI...\n";; print "Binding... "; print Dumper($sasl); $_ = $ldap->bind( sasl => $sasl ) or die $@; }; if ($@) { chomp $@; die "\nBind error : $@", "\nDetailed SASL error: ", $sasl->error, "\nTerminated"; } print $_->error_text(); #print $sasl->error;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: using Authen::SASL::GSSAPI
by Anonymous Monk on Feb 22, 2012 at 23:22 UTC | |
by bhikshu (Initiate) on Feb 23, 2012 at 11:59 UTC |