Re: Testing Bind

[Graham B. <gb...@po...>]

On Tue, Jun 05, 2001 at 02:58:54PM -0400, Michael Grinnell wrote:
> Hi, I'm fairly new to Net::LDAP (Just started a yesterday).  The examples 
> that I found in the documentation were pretty good, and got me up and 
> running, but now I'm having a problem that I can't figure out.
> 
> I'm testing a bind to the server with this snippet of code, and when it 
> fails because I input the wrong password, it returns a 0 ("LDAP_SUCCESS"), 
> when it should be returning a 49 ("BAD Credentials")
> 
>        $ldap = Net::LDAP->new($LDAPSERVER) or die "$@";
>        $error = $ldap->bind (

Here you assign to $error

>                              dn       => $dn,
>                              password => $FORM{'pass'}
>                             );
>        if ($error->code) {

here you check $error->code

>          $ldapmsg = ldap_error_name($mesg->code);

here you pass $mesg->code

Typo in the Email or your script ?

Graham.

>          $code = $mesg->code;
>          error("Authentication Failed<P>LDAP replied:<br>$ldapmsg<br>$code");
>        }
> 
> (error is a little custom die subroutine that outputs html)
> 
> When it fails, $error->code = 0
> 
> I am using version 0.23, Perl 5.6.0, on OpenBSD 2.8, connecting to Netware 
> LDAP v. 3 server
> 
> Any help would be greatly appreciated.  Thank you.
> Michael Grinnell
> gri...@am...
> 
> 
> perl -V output follows:
> 
> Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
>    Platform:
>      osname=openbsd, osvers=2.8, archname=i386-openbsd
>      uname='openbsd'
>      config_args='-Dopenbsd_distribution=defined -dsE'
>      hint=recommended, useposix=true, d_sigaction=define
>      usethreads=undef use5005threads=undef useithreads=undef 
> usemultiplicity=undef
>      useperlio=undef d_sfio=undef uselargefiles=define
>      use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
>    Compiler:
>      cc='cc', optimize='-O2', gccversion=2.95.3 19991030 (prerelease)
>      cppflags='-fno-strict-aliasing -I/usr/local/include'
>      ccflags ='-fno-strict-aliasing -I/usr/local/include'
>      stdchar='char', d_stdstdio=undef, usevfork=true
>      intsize=4, longsize=4, ptrsize=4, doublesize=8
>      d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
>      ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', 
> lseeksize=8
>      alignbytes=4, usemymalloc=n, prototype=define
>    Linker and Libraries:
>      ld='cc', ldflags =''
>      libpth=/usr/lib
>      libs=-lm -lc
>      libc=/usr/lib/libc.a, so=so, useshrplib=true, libperl=libperl.so.6.0
>    Dynamic Linking:
>      dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=define, ccdlflags=' '
>      cccdlflags='-DPIC -fPIC ', lddlflags='-shared -fPIC '
> 
> 
> Characteristics of this binary (from libperl):
>    Compile-time options: USE_LARGE_FILES
>    Locally applied patches:
>          SUIDMAIL - fixes for suidperl security
>    Built under openbsd
>    Compiled at Oct 31 2000 17:00:35
>    @INC:
>      /usr/libdata/perl5/i386-openbsd/5.6.0
>      /usr/local/libdata/perl5/i386-openbsd/5.6.0
>      /usr/libdata/perl5
>      /usr/local/libdata/perl5
>      /usr/local/libdata/perl5/site_perl/i386-openbsd
>      /usr/libdata/perl5/site_perl/i386-openbsd
>      /usr/local/libdata/perl5/site_perl
>      /usr/libdata/perl5/site_perl
>      /usr/local/lib/perl5/site_perl
>      .
> 
>