[ Index ] |
PHP Cross Reference of Unnamed Project |
[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
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |