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";
}
@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";
}