<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.
>
> 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>
