Re: need help with perl-ldap 0.24 on NT over Cygwin

[Marshall.Andrew <Mar...@ca...>]

When I make the change that Graham suggested, I see:
<error msg>
Error LDAP_OPERATIONS_ERROR:I/O Error Resource temporarily unavailable  at
test1.pl line 11.
</error msg>
which, I'm afraid, doesn't help me much :-).
Any suggestions?
Thanks,
adm




     Graham Barr <gb...@po...>
     01/08/01 09:27 AM

           To: Andrew Marshall/CTF@CTINTERNAL
           cc: perl-ldap-dev<per...@li...>@INTERNET
           Subject: Re: need help with perl-ldap 0.24 on NT over Cygwin

Well it would seem that there is a problem reading the packet which should be
the response to the bind. Try changing line 11 to be

 die "Error ",ldap_error_name($mesg->code),": $@" if $mesg->code;

And see what you get.

Graham.

On Wed, Aug 01, 2001 at 09:01:37AM -0400, Marshall.Andrew wrote:
> Howdy.  I am trying to use perl-ldap 0.24 to connect to a
> Netscape Directory server running on a different system
> and I can't get it to work.
> When I run this script:
>
> <script>
> #!/usr/bin/perl
>
> use Net::LDAP qw(:all);
> use Net::LDAP::Util qw(ldap_error_text
>                          ldap_error_name
>                          ldap_error_desc
>                         );
> $ldap = Net::LDAP->new("172.16.17.150", debug => 12) or die "$@";
> print STDERR "before bind.";
> $mesg = $ldap->bind();
> die "Error ",ldap_error_name($mesg->code) if $mesg->code;
> print STDERR "bind okay.";
> $mesg = $ldap->search (
>                base   => "ou=People,o=Canada Trust,c=ca",
>                         filter => "(uid=Marshall.Andrew)"
>                 );
> die "Error ",ldap_error_name($mesg->code) if $mesg->code;
> $mesg->code && die $mesg->error;
> $ldap->unbind;
> </script>
>
> Here's what I see:
> <script log>
> $ perl test1.pl
> before bind.Net::LDAP=HASH(0xa011250) sending:
> 0000 30   12: SEQUENCE {
> 0002 02    1:   INTEGER = 1
> 0005 60    7:   [APPLICATION 0] {
> 0007 02    1:     INTEGER = 2
> 000A 04    0:     STRING = ''
> 000C 80    0:     [CONTEXT 0]
> 000E        :   }
> 000E        : }
> Error LDAP_OPERATIONS_ERROR at test1.pl line 11.
> </script log>
>
> I can connect to the directory server just fine using Netscape's
> ldapsearch tool.
> I am running the Cygwin Unix tools on top of Windows NT 4.
> The version of Perl I'm using is the latest one pointed to from
> www.cygwin.com.  Here's what Perl tells me about itself:
>
> <perl -V>
> Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
>   Platform:
>     osname=cygwin, osvers=1.1.6(0.3032), archname=cygwin
>     uname='cygwin_nt-5.0 fifer 1.1.6(0.3032) 2000-11-21 21:00 i686 unknown '
>     config_args='-de'
>     hint=recommended, useposix=true, d_sigaction=define
>     usethreads=undef use5005threads=undef useithreads=undef
> usemultiplicity=undef
>     useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
>     use64bitint=undef use64bitall=undef uselongdouble=undef
>   Compiler:
>     cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -DHAS_SBRK_PROTO
> -fno-strict-aliasing',
>     optimize='-O2',
>     cppflags='-DPERL_USE_SAFE_PUTENV -DHAS_SBRK_PROTO -fno-strict-aliasing'
>     ccversion='', gccversion='2.95.2-5 19991024 (cygwin experimental)',
> gccosandvers=''
>     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
>     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
>     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
> lseeksize=4
>     alignbytes=8, usemymalloc=y, prototype=define
>   Linker and Libraries:
>     ld='ld2', ldflags =' -s -L/usr/local/lib'
>     libpth=/usr/local/lib /usr/lib /lib
>     libs=-lgdbm -lcrypt
>     perllibs=-lcrypt
>     libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl5_6_1.a
>   Dynamic Linking:
>     dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
>     cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'
>
>
> Characteristics of this binary (from libperl):
>   Compile-time options: USE_LARGE_FILES
>   Locally applied patches:
>      v5.6.1-TRIAL1
>   Built under cygwin
>   Compiled at Dec 21 2000 21:39:40
>   @INC:
>     /usr/lib/perl5/5.6.1/cygwin
>     /usr/lib/perl5/5.6.1
>     /usr/lib/perl5/site_perl/5.6.1/cygwin
>     /usr/lib/perl5/site_perl/5.6.1
>     /usr/lib/perl5/site_perl
>     .
> </perl -V>
>
> I suspect I should be using a different Perl implementation or there's
> something wrong with how I installed it (please be kind, I'm a Perl novice).
> Any suggestions?
>
> Thanks,
> adm
>
> Andrew D. Marshall
>