I should have guessed. No one in their right mind would be up this
early. :-)
I tried Dumper and sure enough there was something in
'errorMessage' (I wonder why it didn't give me an error return?). It
said "Bad Filter" so now I have something to work with. Thanks.
On Nov 27, 2007, at 7:46 AM, Jeremiah Foster wrote:
> Heh, I am in Stockholm, Central European Time. :)
>
>> -----Original Message-----
>> From: Dennis Putnam [mailto:dennis.putnam@[EMAIL PROTECTED]
>> Sent: den 27 november 2007 13:42
>> To: macosx@[EMAIL PROTECTED]
>> Cc: Jeremiah Foster
>> Subject: Re: ldapsearch equivalent with Net::LDAP
>>
>> Thanks again. I see you are an early riser too. No, I am not
>> familiar with that (I'm not a Perl expert either). I'll look
>> it up and see what it can give me.
>>
>> On Nov 27, 2007, at 7:17 AM, Jeremiah Foster wrote:
>>
>>> Did you try using Data::Dumper? It is a built-in module and is
>>> incredibly useful. You can use it to dump out the contents of $mesg
>>> for example.
>>>
>>>> -----Original Message-----
>>>> From: Dennis Putnam [mailto:dennis.putnam@[EMAIL PROTECTED]
>>>> Sent: den 27 november 2007 13:16
>>>> To: macosx@[EMAIL PROTECTED]
>>>> Cc: Jeremiah Foster
>>>> Subject: Re: ldapsearch equivalent with Net::LDAP
>>>>
>>>> Thanks for the reply. I'm not an LDAP expert either but
>> this issue is
>>>> more of a Perl Net::LDAP user than an LDAP expert per se.
>>>> Unfortunately there are no real world working script
>> examples readily
>>>> available. The samples that are, show the syntax but not
>> the context,
>>>> making them pretty much useless to the novice.
>>>>
>>>> The script is not 'die'ing so it never really gets to that point.
>>>> Whether I use '$!' or '$@[EMAIL PROTECTED]
' won't matter until I actually
>> get an error
>>>> condition. It appears that everything is working except the search
>>>> returns zero entries. Since 'ldapsearch'
>>>> works it is clearly not a server problem. That leaves only
>> the way I
>>>> am trying to use Net::LDAP. There does not appear to be any way to
>>>> cause Net::LDAP to generate informational messages about
>> the dialog
>>>> that occurs between it and the LDAP server. I don't see any way to
>>>> debug this.
>>>>
>>>> On Nov 27, 2007, at 3:20 AM, Jeremiah Foster wrote:
>>>>
>>>>>
>>>>>
>>>>> -----Original Message-----
>>>>> From: Jeremiah Foster
>>>>> Sent: den 27 november 2007 09:20
>>>>> To: 'Dennis Putnam'
>>>>> Subject: RE: ldapsearch equivalent with Net::LDAP
>>>>>
>>>>>
>>>>>
>>>>>> I am trying to do the equivalent of this search:
>>>>>>
>>>>>> ldapsearch -x -LLL -b "dc=ldaphost,dc=mydomain,dc=com" uid
>>>>>
>>>>> Caveat Emptor: I am no LDAP genius.
>>>>>
>>>>>> Here is one of the many variations I tried:
>>>>>>
>>>>>> use strict;
>>>>>> use Net::LDAP;
>>>>>>
>>>>>> my $ldap=Net::LDAP->new("ldaphost.mydomain.com") or
>> die "$@[EMAIL PROTECTED]
";
>>>>>
>>>>> Try replacing $@[EMAIL PROTECTED]
with $!. You are using $@[EMAIL PROTECTED]
which is the
>> eval error
>>>>> message, but I don't see where you are using eval. $!
>> will tell you
>>>>> what went wrong since it is the sys/libcall error message.
>>>>>
>>>>>> my $mesg=$ldap->bind();
>>>>>>
>>>>>> if ($#ARGV<0) {
>>>>>> $mesg=$ldap->search(
>>>>>> base=>"dc=ldaphost,dc=mydomain,dc=com",
>>>>>> attrs=>["uid"]
>>>>>> );
>>>>>> print $mesg->entries(),"\n";
>>>>>> }
>>>>>> else {
>>>>>> }
>>>>>> $ldap->unbind();
>>>>>>
>>>>>>
>>>>>> I am just starting so my code is incomplete but it should
>>>> be enough
>>>>>> to
>>>>>
>>>>>> get something. However, I get nothing, not even an error.
>>>> Can someone
>>>>>> see what I am doing wrong? TIA.
>>>>>
>>>>> See what your code spits out now and diagnose from there.
>> Hopefully
>>>>> that is a start.
>>>>>
>>>>> Jeremiah
>>>>
>>>>
>>
>>
|
