[Fwd] Perl-LDAP-0.22

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

----- Forwarded message from S Balasubramaniyan <sb...@no...> -----

Date: Wed, 28 Mar 2001 10:11:41 -0500
To: "'gb...@po...'" <gb...@po...>
From: "S Balasubramaniyan" <sb...@no...>
Subject: Perl-LDAP-0.22
X-Mailer: Internet Mail Service (5.5.2653.19)

Hi Graham,
                  Iam currently programming with your perl-ldap-0.22 module
, its quite interesting.
   But i have a query , does your module support ldap v3 ?
  Perhaps mine is just a layman question  as i could not run my piece of
code for ldap v3 server.
My piece of code which runs in v2 but not in v3 is :
=========================================
#!/usr/bin/perl
use Net::LDAP qw(:all);

  $ldap = Net::LDAP->new("ldapv2-server") or die "$@";
  $mesg = $ldap->bind;

          my $result = $ldap->search (
                base   => "o=nortel",
                filter => "unique_key=12345",
                );
    $ldap->unbind;

         @entries = $result->entries;
         foreach $entr ( @entries )
           {
            my @attrs = sort $entr->attributes;
            my $attr;
           foreach $attr ( $entr->attributes ){
               print "$attr : ",$entr->get_value($attr),"\n";
               }
           }
==============================================
can you please comment on this ?
Thanx in advance ,
S Bala
............................................................................
...........
S Balasubramaniyan- sb...@no...
International R&D Operations (IRDO)
Nortel Networks - 3500 Carling Ave, Ottawa ON, K2H8E9
ESN: 6-398-0247


----- End forwarded message -----