I re-did the code to match you're strategy, cause I am not against changing what I am doing. This is my first time with Perl/LDAP and it is a time pressed issue so I really appreciate all you're help and guidance. After re-writing the code it is still experiencing the same issue. Here is the new code.
sub ldapsearch {
my $mac = shift;
print "$mac\n";
my $searchobj = $connection->search(
base => 'o=ldap',
scope => 'sub',
filter => "cn=$mac",
attrs => @attrs, #note I al
+so tried \@attrs
);
$searchobj->code && die $searchobj->error;
while ( my $entry = $searchobj->shift_entry) {
print $entry->dn, "\n";
print $entry->get_value('plan');
print $entry->get_value('ipaddress');
print $entry->get_value('username');
}
}
Any suggestion ?