Net::LDAP::Extension::WhoAmI - LDAP "Who am I?" Operation


perl-ldap documentation Contained in the perl-ldap distribution.

Index


Code Index:

NAME

Top

Net::LDAP::Extension::WhoAmI - LDAP "Who am I?" Operation

SYNOPSIS

Top

 use Net::LDAP;
 use Net::LDAP::Extension::WhoAmI;

 $ldap = Net::LDAP->new( "ldap.mydomain.eg" );

 $ldap->bind('cn=Joe User,cn=People,dc=example,dc=com",
             password => 'secret');

 $mesg = $ldap->who_am_i();

 die "error: ", $mesg->code(), ": ", $mesg->error()  if ($mesg->code());

 print "you are bound with authzId ", $mesg->response(), "\n";




DESCRIPTION

Top

Net::LDAP::Extension::WhoAmI implements the Who am I? extended LDAPv3 operation as described in draft-zeilenga-ldap-authzid-09.

It implements no object by itself but extends the Net::LDAP object by another method:

METHODS

Top

who_am_i

Obtain the authorization identity which the server has associated with the user or application entity.

SEE ALSO

Top

Net::LDAP, Net::LDAP::Extension

AUTHOR

Top

Norbert Klasen <norbert.klasen@avinci.de>,

Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>

COPYRIGHT

Top


perl-ldap documentation Contained in the perl-ldap distribution.

package Net::LDAP::Extension::WhoAmI;

require Net::LDAP::Extension;

$VERSION = "0.01";
@ISA = qw(Net::LDAP::Extension);

sub Net::LDAP::who_am_i {
  my $ldap = shift;
  my %opt = @_;

  my $res = $ldap->extension( name => '1.3.6.1.4.1.4203.1.11.3', %opt );
  return $res;
}

1;

__END__