LDAP sorting

[ahappydeath]

Anyone have any idea how to make the '$result->sorted' method of
Net::LDAP become case insensitve?

[Leon Timmermans]

On Wed, 04 Jun 2008 08:18:40 -0700, ahappydeath wrote:

> Anyone have any idea how to make the '$result->sorted' method of
> Net::LDAP become case insensitve?

Aside from using some really evil magic, I see no way to do that, but I
don't think you need to do that. You can just sort it yourself (it's
sorted on the client side anyway). I haven't tested this, but based on
the Net::LDAP code I'd say it should work something like this.

my $attribute = "some attribute you want to use to sort";
my $msg = $ldap->search(...);

my @sorted_entries =
map { $_->[0] }
sort { $a->[1] cmp $b->[1] }
map { [ $_, lc join("\000", @{ $_->get_value($attribute, asref => 1)
|| [] } ) ]}
$msg->entries();

It's not the prettiest Schwartzian transform ever, but it should work.

Cheers,

Leon

.