[Summary view] [Print] [Text view]

   1  
   2  package Net::LDAP::Extension::WhoAmI;
   3  
   4  require Net::LDAP::Extension;
   5  
   6  $VERSION = "0.01";
   7  @ISA = qw(Net::LDAP::Extension);
   8  
   9  sub Net::LDAP::who_am_i {
  10    my $ldap = shift;
  11    my %opt = @_;
  12  
  13    my $res = $ldap->extension( name => '1.3.6.1.4.1.4203.1.11.3', %opt );
  14    return $res;
  15  }
  16  
  17  1;
  18  
  19  __END__
  20  
  21  =head1 NAME
  22  
  23  Net::LDAP::Extension::WhoAmI - LDAP "Who am I?" Operation
  24  
  25  =head1 SYNOPSIS
  26  
  27   use Net::LDAP;
  28   use Net::LDAP::Extension::WhoAmI;
  29  
  30   $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
  31  
  32   $ldap->bind('cn=Joe User,cn=People,dc=example,dc=com",
  33               password => 'secret');
  34  
  35   $mesg = $ldap->who_am_i();
  36  
  37   die "error: ", $mesg->code(), ": ", $mesg->error()  if ($mesg->code());
  38  
  39   print "you are bound with authzId ", $mesg->response(), "\n";
  40  
  41  
  42  =head1 DESCRIPTION
  43  
  44  C<Net::LDAP::Extension::WhoAmI> implements the C<Who am I?>
  45  extended LDAPv3 operation as described in draft-zeilenga-ldap-authzid-09.
  46  
  47  It implements no object by itself but extends the L<Net::LDAP> object 
  48  by another method:
  49  
  50  =head1 METHODS
  51  
  52  =over 4
  53  
  54  =item who_am_i
  55  
  56  Obtain the authorization identity which the server has associated 
  57  with the user or application entity.
  58  
  59  =back
  60  
  61  =head1 SEE ALSO
  62  
  63  L<Net::LDAP>,
  64  L<Net::LDAP::Extension>
  65  
  66  =head1 AUTHOR
  67  
  68  Norbert Klasen E<lt>norbert.klasen@avinci.deE<gt>,
  69  
  70  Please report any bugs, or post any suggestions, to the perl-ldap
  71  mailing list E<lt>perl-ldap@perl.orgE<gt>
  72  
  73  =head1 COPYRIGHT
  74  
  75  Copyright (c) 2002-2004 Graham Barr. All rights reserved. This program is
  76  free software; you can redistribute it and/or modify it under the same
  77  terms as Perl itself.
  78  
  79  =cut
  80