Re: Capturing LDAP error message

On 19 Jul 2011, at 16:17, Rick Sanders wrote:

> I am trying to capture a better error description than I am getting with the following code:
> 
> use Net::LDAP::Util qw(ldap_error_name ldap_error_text ldap_error_desc);
> 
> $result = $ldap->add( $dn, attr => [ %$attrs ] );
> if ( $result->code ) {
>   $error = $result->code;
>   $errtxt = ldap_error_name( $result->code );
>   Log("      ERROR adding $dn: $errtxt");
>   $errtxt = ldap_error_text( $result->code );
>   Log("      ERROR adding $dn: $errtxt");
>   $errtxt = ldap_error_desc( $result->code );
>   Log("      ERROR adding $dn: $errtxt");
> }
> 
> That gives me the following:
> 
>      ERROR adding mail=MILLENNIUMTENS,o=site: LDAP_INVALID_SYNTAX
>      ERROR adding mail=MILLENNIUMTENS,o=site: Some part of the request contained an invalid syntax. It could be a search with an invalid filter or a request to modify the schema and the given schema has a bad syntax.
>      ERROR adding mail=MILLENNIUMTENS,o=site: Invalid syntax
> 
> If I set $ldap->debug(12) then a ton of info is written to STDERR that contains the details I need (showing the value that caused the error).
> 
> Net::LDAP=HASH(0x2993f4) received:
> 0000 30   86: SEQUENCE {
> 0002 02    1:   INTEGER = 5
> 0005 69   81:   [APPLICATION 9] {
> 0007 0A    1:     ENUM = 21
> 000A 04    0:     STRING = ''
> 000C 04   74:     STRING = 'Bad SMTP Address; not canonical form, Attribute=mail, Value=MILLENNIUMTENS'
> 0058        :   }
> 0058        : }
> 
> Is there a way in NET::LDAP to grab that error string other than redirecting STDERR and parsing it?  "LDAP_INVALID_SYNTAX" is not particularly helpful in diagnosing why the syntax was invalid.

Use $result->error_text() to get that text. See the Net::LDAP::Message documentation...

Note that servers may not return anything helpful to you in that field. The LDAP RFCs tell you not to rely on its contents.

Chris