Re: perl-ldap .20 & Win32

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

0.21 which I will try to release today will put ->get back to how it
was in 0.19

However it will also depricate ->get in favor of a new method ->get_value
which should be better


Graham.

On Thu, Sep 07, 2000 at 04:38:33PM -0500, Mark Wilcox wrote:
> Actually I just reread your code. the problem is that in .20, get always
> returns back an array context.
> 
> you need to do 
>   print "  $attr : ",@$entr->get($attr),"\n";
> 
> Mark
> On Thu, 7 Sep 2000, Mark Weixel wrote:
> 
> > Greetings,
> > 
> > I installed perl-ldap .20 today in order to experiment with
> > Net::LDAP::Control::Sort (turns out my server doesn't support
> > sorting...)  Unfortunately, after doing this, the sample code that I had
> > copied from the Examples page stopped dereferencing the information in
> > the individual entry references.
> > 
> > I'm doing this under Win32, using ActiveState Perl build 617.
> > ActivePerl's PPM only has perl-ldap .15, so I downloaded the
> > distribution at SourceForge and installed by hand using NMake.
> > 
> > As a result, the following:
> > 
> > use strict;
> > use Net::LDAP;
> > use vars qw($ldap $mesg $entry);
> > 
> > 
> > 
> > $ldap = Net::LDAP->new('ucis-nt.ucis.pitt.edu:389') or die "$@";
> > 
> > $ldap->bind ;    # an anonymous bind
> > 
> > $mesg = $ldap->search (  # perform a search
> >        base   => "c=US",
> >        scope  => 'sub',
> >        filter => "(|(objectClass=organizationalPerson))"
> >       );
> > 
> > $mesg->code && die $mesg->error;
> > #print $mesg->control;
> > #my @entries = $mesg->entries;
> > 
> > 
> > #------------
> > #
> > # handle each of the results independently
> > # ... i.e. using the walk through method
> > #
> > my @entries = $mesg->entries;
> > 
> > my $entr ;
> > foreach $entr ( @entries )
> >    {
> >     print "DN: ",$entr->dn,"\n";
> >     #my @attrs = sort $entr->attributes;
> > 
> >     my $attr;
> >    foreach $attr ( sort $entr->attributes ){
> >  #skip binary we can't handle
> >  next if ( $attr =~ /;binary$/ );
> >  }
> > 
> >     #print "@attrs\n";
> >  print "#-------------------------------\n";
> >    }
> > 
> > #
> > # end of walk through method
> > #------------
> > 
> > Results in:
> > 
> > DN: cn=dmjst17,cn=Recipients,ou=UCIS,o=University of Pittsburgh
> >   MAPI-Recipient : ARRAY(0x1f0cfe4)
> >   cn : ARRAY(0x1f0cd98)
> >   distinguishedName : ARRAY(0x1f0cde0)
> >   givenName : ARRAY(0x1f0cf48)
> >   mail : ARRAY(0x1f0ce70)
> >   objectClass : ARRAY(0x1f0e8d4)
> >   otherMailbox : ARRAY(0x1f0cf00)
> >   rdn : ARRAY(0x1f0cd38)
> >   rfc822Mailbox : ARRAY(0x1f0ce28)
> >   sn : ARRAY(0x1f0d02c)
> >   textEncodedORaddress : ARRAY(0x1f0ceb8)
> >   uid : ARRAY(0x1f0cf9c)
> > 
> > Is this most likely an ActivePerl problem?  Is it a perl-ldap problem?
> > 
> > Insight would be greatly appreciated.
> > 
> > --Mark
> > -----
> > Mark J. Weixel
> > Information Technology Projects Manager
> > University Center for International Studies
> > University of Pittsburgh
> > Pittsburgh, PA 15260 USA
> > we...@pi...
> > 
> > 
> 
>