How do i query a row in an array?

[unixb0y]

Here is the code
@fields =
(
# Label Field Name Index
['User ID' , 'uid' , 0],
['Account Locked' , 'nsaccountlock' , 0],
);

##
# LDAP query to make for a shorter post
##


foreach $entry ($mesg->all_entries)
{
@dn = map {s/[a-z]+=//gi; $_ = ucfirst}
reverse split /,/, $entry->dn;
shift @dn;
pop @dn;
#Start of question
print ''.(join ' ',
map {get $entry, $_->[1], $_->[2]} @fields)."\n";
#End of question
}

How would i query the row.

eg:

If ('nsaccountlock=true') {
print ''.(join ' ',
map {get $entry, $_->[1], $_->[2]} @fields)."\n";
}

 

[PaulTEG]

@uB,

What's $mesg?

--Paul

cigless ...

 

[Rieekan]

Paul,

I think unixboy cut out the LDAP query portion of this script. Here's one that I use, which uses "most" of the same variables. (Just ignore the LDAPFail piece, it's my own error subroutine.)

my $ldap = Net::LDAP->new($LDAP) or keelover("Cannot connect to LDAP server", "4");
$ldap->bind();

# Do a simple search on a person
my $mesg = $ldap->search(	base => "ou=People,dc=domain,dc=net",
												filter => "(uid=$username)");

$mesg->code && LDAPFail($mesg->error);

# Now log into the LDAP Server
my $entry = $mesg->entry(0);
my $dn = $entry->dn;

my $result = $ldap->bind(	dn  => $dn,
											password => $password);

$result->code && LDAPFail($result->error);

$ldap->unbind;

I'm not too familiar with map, so I couldn't help out more I'm afraid.

- Rieekan

 

[unixb0y]

The original version was here

http://www.zdo.com/articles/res/ldap2csv.pl

I'm still wondering though how to ruery a row in the for statement.