Net::LDAPxs::Entry - An LDAP entry object

Net-LDAPxs documentation Contained in the Net-LDAPxs distribution.

Index

Code Index:

NAME

Top

Net::LDAPxs::Entry - An LDAP entry object

SYNOPSIS

Top

  use Net::LDAPxs;

  $ldap = Net::LDAPxs->new ( $host );
  $msg = $ldap->search ( @search_args );

  @entries = $msg->entries();

  foreach my $entry (@entries) {
      foreach my $attr ($entry->attributes()) {
          foreach my $val ($entry->get_value($attr)) {
              print "$attr, $val\n";
          }
      }
  }

DESCRIPTION

Top

The Net::LDAPxs::Entry object represents a single entry in the directory. It is a container for attribute-value pairs.

METHODS

Top

attributes ( OPTIONS )

Return a list of attributes in this entry

dn ( )

Get the DN of the entry.

get_value ( ATTR )

Get the values for the attribute ATTR. In a list context returns all values for the given attribute, or the empty list if the attribute does not exist. In a scalar context returns the first value for the attribute.

ACKNOWLEDGEMENTS

Top

This document is based on the document of Net::LDAP::Entry

AUTHOR

Top

Pan Yu <xiaocong@vip.163.com>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2008-2009 by Pan Yu. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Net-LDAPxs documentation Contained in the Net-LDAPxs distribution. 
package Net::LDAPxs::Entry;

use 5.006;
use strict;
use vars qw($VERSION);

$VERSION = '1.00';


sub dn { shift->{objectName}; }

sub attributes {
	my $self = shift;

	map { $_->{type} } @{$self->{attributes}};
}

sub get_value {
	my $self = shift;
	my $type = shift;

	my $attrs = _build_attrs($self);
	return unless $attrs->{$type};
	@{$attrs->{$type}};
}

sub _build_attrs {
	+{ map { $_->{type}, $_->{vals} }  @{$_[0]->{attributes}} };
}


1;

__END__