Gavin Henry wrote:
> <quote who="Wagner, David --- Senior Programmer Analyst --- WGO">
>> I attempting to pull some data, but get no errors and NO data. I am
>> following Graham Barr's examples with minor mods since it did seem
>> to be just right. Here is what I have leaving out the display of
>> the data:
>>
>> #!perl
>>
>> use strict;
>> use warnings;
>>
>> use Net::LDAP;
>>
>> #INITIALIZING
>> my $ldap = Net::LDAP->new ( "xxx.xxx.com" ) or die "$@"; # change to
>> protect someone
>>
>> #BINDING
>> my $mesg = $ldap->bind ( version => 3 ) or die "$@"; # use
>> for searches also tried just as bind and still no data
>> my $result;
>>
>> # OPERATION - Generating a SEARCH
>>
>> sub LDAPsearch
>> {
>> my ($ldap,$searchString,$attrs,$base) = @_;
>> # if they don't pass a base... set it for them
>>
>> if (! $base ) { $base = "o=Caliber System, c=US"; } #
>>
>> # if they don't pass an array of attributes...
>> # set up something for them
>> if (! $attrs ) { $attrs = [ 'cn','Recipients' ]; }
>> my $result = $ldap->search ( base => "$base",
>> scope => "sub",
>> filter => "$searchString",
>> attrs => $attrs
>> ) or die "$@";
>> }
>>
>> my @Attrs = ( ); # request all available attributes
>> # to be returned.
>> printf "Entering into LDAPsearch\n";
>>
>> $result = LDAPsearch ( $ldap, "sn=*", [EMAIL PROTECTED] );
>>
>> Again I get no errors or warnings.
>>
>> If someone can point me to either more examples or what I am doing
>> wrong it would be greatly appreciated.
>>
>> Any questions and/or problems, please let me know.
>
> Have you tried the search with ldapsearch on the commandline first?
> Always best to do it that way.
>
> Gavin.
>
Sorry, but I attempted just ldapsearch ( very new to the ldap arena and
no real knowledge ( to say the least ) ) from a kornshell and cmd, but no such
exe found ( under windows xp server pak 2 ) runnning as 5.8.3.
Wags ;)
>>
>> Thanks!
>>
>> Wags ;)
>> WGO: x2224
>>
>>
>>
>> *******************************************************
>> This message contains information that is confidential
>> and proprietary to FedEx Freight or its affiliates.
>> It is intended only for the recipient named and for
>> the express purpose(s) described therein.
>> Any other use is prohibited.
>> *******************************************************
>>
>>
>> --
>> To unsubscribe, e-mail: [EMAIL PROTECTED]
>> For additional commands, e-mail: [EMAIL PROTECTED]
>> <http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
