Re: OpenLDAP and Net::LDAP

[Philip C. <pch...@go...>]

My answer to an extent lies in the following:

within the ## process entry section, a variable was being tested:

## $tmp is a hash ref, which contains keys which are attrs and
## values of $e->get_value(attr)

if($tmp->{uiCaps} =~ m#\brw\b#i) {
	## set vars
} else {
	## set vars
}

It was here that the code was failing. So this was a perl problem and not
a Net::LDAP one. Perl was for some reason unhappy to be accessing an undefined
key and simply hanging, to the point where it was not even processing the
if statement at all. I know becuase I put logging statements in both the if
and the else first, before the vars were set. Now I have the following:

if( exists($tmp->{uiCaps}) && $tmp->{uiCaps} =~ m#\brw\b#i) {
	## set vars
} else {
	## set vars
}


This works fine... I do not see why this would change things to the point that
my script does not hang... But it did fix the problem (this was the case with
both VA Linux/RH 7.0 (perl 5.6) and 6.2 (perl 5.005_03)  

Thus spake Philip Champon, on the year of our L*rd Thu, May 10, 2001 at 03:26:50PM -0400:
> ## PROCESSING USER ENTRIES
> ## 
> ## MIN is what ever the last page's MAX was + MAX + 1
> ## ie $oldmax = 5
> ##    $newmin = $oldmax + MAX + 1 # MAX == 5
> ##    $newmax = $newmin + MAX + 1
> for($i = $newmin; $i <= $newmax; $i++) {
> 	last if($i > $m->count()-1);
> 
> 	$e = $m->entry($i);
> 	## process entry
> }

-- 
Philip Champon Valueweb Developer
Ph - 954-334-8156
Em - pch...@va...