[Summary view] [Print] [Text view]

   1  # Copyright (c) 2003-2004 Chris Ridd <chris.ridd@isode.com> and
   2  # Graham Barr <gbarr@pobox.com>. All rights reserved.  This program is
   3  # free software; you can redistribute it and/or modify it under the
   4  # same terms as Perl itself.
   5  
   6  package Net::LDAP::RootDSE;
   7  
   8  use Net::LDAP::Entry;
   9  
  10  @ISA = qw(Net::LDAP::Entry);
  11  $VERSION = "0.01";
  12  
  13  use strict;
  14  
  15  sub supported_feature        { _supported_feature( @_, 'supportedFeatures'       ) }
  16  sub supported_extension      { _supported_feature( @_, 'supportedExtension'      ) }
  17  sub supported_version        { _supported_feature( @_, 'supportedLDAPVersion'    ) }
  18  sub supported_control        { _supported_feature( @_, 'supportedControl'        ) }
  19  sub supported_sasl_mechanism { _supported_feature( @_, 'supportedSASLMechanisms' ) }
  20  
  21  sub _supported_feature {
  22    my $root = shift;
  23    my $attr = pop;
  24  
  25    my %ext; @ext{ $root->get_value( $attr ) } = ();
  26  
  27    @_ == grep exists $ext{$_}, @_;
  28  }
  29  
  30  1;
  31  
  32  __END__
  33  
  34  =head1 NAME
  35  
  36  Net::LDAP::RootDSE - An LDAP RootDSE object
  37  
  38  =head1 SYNOPSIS
  39  
  40   my $dse = $ldap->root_dse();
  41  
  42   # get naming Contexts
  43   my @contexts = $dse->get_value('namingContexts');
  44  
  45   # get supported LDAP versions as an array reference
  46   my $versions = $dse->get_value('supportedLDAPVersion', asref => 1);
  47  
  48  =head1 DESCRIPTION
  49  
  50  =head2 Methods
  51  
  52  =over 4
  53  
  54  =item get_value
  55  
  56  C<get_value> is identical to L<Net::LDAP::Entry/get_value>
  57  
  58  =item supported_extension ( OID_LIST )
  59  
  60  Returns true if the server supports all of the specified
  61  extension OIDs
  62  
  63  =item supported_feature ( OID_LIST )
  64  
  65  Returns true if the server supports all of the specified
  66  feature OIDs
  67  
  68  =item supported_version ( VERSION_LIST )
  69  
  70  Returns true if the server supports all of the specified
  71  versions
  72  
  73  =item supported_control ( OID_LIST )
  74  
  75  Returns true if the server supports all of the specified
  76  control OIDs
  77  
  78  =item supported_sasl_mechanism ( SASL_MECH_LIST )
  79  
  80  Returns true if the server supports all of the specified
  81  SASL mechanism names
  82  
  83  =back
  84  
  85  =head1 SEE ALSO
  86  
  87  L<Net::LDAP>, L<Net::LDAP::Entry>
  88  
  89  =head1 AUTHOR
  90  
  91  Chris Ridd E<lt>chris.ridd@isode.comE<gt>, 
  92  Graham Barr E<lt>gbarr@pobox.comE<gt>.
  93  
  94  =head1 COPYRIGHT
  95  
  96  Copyright (c) 2003-2004, Chris Ridd and Graham Barr. All rights reserved. This
  97  library is free software; you can redistribute it and/or modify
  98  it under the same terms as Perl itself.
  99  
 100  =cut