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