SPUG: Calling all LDAP gurus

[Alyssa Harding]

I'm having a problem doing a search on our company's corporate LDAP
and I need some help!

My goal is this.  I have a fairly large table from an existing
database and I need to verify some of the entries against those in
the corporate LDAP.  I have no problems with DBI, getting the
records from the existing database out, the problem is the LDAP
search.  

Here's some code - $LDAP_host and $LDAP_port are defined correctly,
I'll just skip that part:
...
use Net::LDAP;
use strict;

my $ldap = Net::LDAP->new( $LDAP_host, port => $LDAP_port) or
  print "Couldn't create LDAP connection $!<BR>\n";

$ldap->bind or print "Couldn't bind successfully $!<BR>\n";

my $mesg = $ldap->search( base => 'c=uswest.com,ou=People',
		          filter => '(uid=axhard2)',
			  attrs => [ 'cn', 'mail', 'st' ]
		        ) or print "Problem with search $!<BR>";

...

Okay, now I know that when the search comes back, it's a
Net::LDAP::Search object.  I also know that, were the search
successful, I would be able to get entries out of the object using
entry() and be able to find out how many entries there are using
count().

I have verified that the uid value above (my own uid) works
correctly when I query the corporate LDAP through the web server
they have set up, and the three attributes do indeed exist for all
records (not just mine).

The problem is, I don't get any results back.  The search object
returned looks like this after the $ldap->search() above:

$VAR1 = bless( {
                 'matchedDN' => '',
                 'mesgid' => 2,
                 'resultCode' => 32,
                 'parent' => bless( {
                                      'net_ldap_resp' => {},
                                      'net_ldap_mesg' => {},
                                      'net_ldap_async' => '0',
                                      'net_ldap_version' => 2,
                                      'net_ldap_host' =>
'ldap.uswc.uswest.com',
                                      'net_ldap_debug' => '0',
                                      'net_ldap_socket' => bless(
\*Symbol::GEN0, 'IO::Socket::INET' )
                                    }, 'Net::LDAP' ),
                 'callback' => undef,
                 'errorMessage' => ''
               }, 'Net::LDAP::Search' );

No entries, no error messages, nothin' :(

Can someone please help?

A.
-- 
Alyssa W. Harding 
Web Programmer
U S WEST Creative Services
phon: (206) 345-4073
cell: (206) 769-8735
-------------------------------------------------------------------
He had a unique stride: it looked as though his body was being
dragged
forward and his legs had to flail around underneath it, landing
wherever
they could find room. It wasn't so much a walk as a collapse,
indefinitely
postponed.
        -- (Terry Pratchett, Maskerade)

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 For Subscriptions, Email to majordomo at pm.org:  ACTION  spug-list  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address