Re^8: Net::LDAP help with distinguished name

Resolved!

There were two issues. First, I had to use distinguishedname= rather than dn=a. Apparently Active Directory is picky about the filter though oddly you can use dn when specifying get_value. Secondly, the sample distinguishednames I tested had parens in them which must be escaped. Net::LDAP doesn't handle that for you.

I added this bit:

sub cleanLDAPString
{
    my $tempstr = shift;

    $tempstr =~ s/\\/\\5c/;
    $tempstr =~ s/\(/\\28/;
    $tempstr =~ s/\)/\\29/;
    $tempstr =~ s/&/\\26/;
    $tempstr =~ s/\|/\\7c/;
    $tempstr =~ s/>/\\3e/;
    $tempstr =~ s/</\\3c/;
    $tempstr =~ s/\~/\\7e/;
    $tempstr =~ s/\*/\\2a/;

    return $tempstr;
}
[download]

and called it before I constructed the filter. Worked just fine. Thank you very much for the feedback. It helped lead me to the solution.

And nuts to those that think minimalist responses and snide comments are in any way helpful to the people who come here. If you don't have anything helpful to contribute then don't post. And for the record, posting greps to the doc that I already specified I'd read and that didn't have any relevant examples is just effing arrogant and lazy.

Comment on Re^8: Net::LDAP help with distinguished name Download Code

Replies are listed 'Best First'.

Re^9: Net::LDAP help with distinguished name
by Anonymous Monk on Feb 05, 2012 at 16:08 UTC

The idiom of that function is

{
    my %subs = (
        '\\'  => q/\\5c/,
        '('  => q/\\28/,
        ')'  => q/\\29/,
        '&'  => q/\\26/,
        '|'  => q/\\7c/,
        '>'  => q/\\3e/,
        '<'  => q/\\3c/,
        '~'  => q/\\7e/,
        '*'  => q/\\2a/,
    );
    my $subs_re = join '|', map quotemeta, key %subs;
    sub cleanLDAPString
    {
        my $tempstr = shift;
        $tempstr =~ s/($subs_re)/$subs{$1}/g;
        return $tempstr;
    }
}
[download]

But it already exists http://search.cpan.org/grep?cpanid=MARSCHAP&release=perl-ldap-0.44&string=escape&i=1&n=1&C=0 in Net::LDAP::Util

escape_filter_value ( VALUES )
unescape_filter_value ( VALUES )
escape_dn_value ( VALUES )
unescape_dn_value ( VALUES )

[reply]
[d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks