From b5e33d1e609f1e19848aeebf708ace1cd43114ee Mon Sep 17 00:00:00 2001 From: Peter Marschall Date: Mon, 3 Oct 2005 11:37:34 +0000 Subject: [PATCH] make PODs podchecker-clean --- contrib/jpegDisplay.pl | 16 +++++++------- contrib/jpegLoad.pl | 12 +++++----- contrib/ldifdiff.pl | 2 -- contrib/printMembers.pl | 1 - contrib/tklkup | 2 +- lib/Net/LDAP.pod | 32 +++++++++++++-------------- lib/Net/LDAP/Constant.pm | 4 ++++ lib/Net/LDAP/Control/VLV.pm | 2 +- lib/Net/LDAP/DSML.pm | 4 ++-- lib/Net/LDAP/Extension/SetPassword.pm | 2 +- lib/Net/LDAP/Extension/WhoAmI.pm | 2 +- lib/Net/LDAP/FAQ.pod | 8 +++---- lib/Net/LDAP/Filter.pod | 4 ++-- lib/Net/LDAP/Search.pod | 2 +- lib/Net/LDAP/Util.pm | 4 ++-- 15 files changed, 49 insertions(+), 48 deletions(-) diff --git a/contrib/jpegDisplay.pl b/contrib/jpegDisplay.pl index 01fbdf4..356c28c 100644 --- a/contrib/jpegDisplay.pl +++ b/contrib/jpegDisplay.pl @@ -241,32 +241,32 @@ =head1 Input options. =head1 REQUIREMENTS To use this program you will need the following. - + At least PERL version 5.004. You can get a stable version of PERL from the following URL; http://cpan.org/src/index.html - + Perl LDAP module. You can get this from the following URL; ftp://ftp.duke.edu/pub/CPAN/modules/by-module/Net/ - + Perl Tk.800.22 module. You can get this from the following URL; ftp://ftp.duke.edu/pub/CPAN/modules/by-module/Net/ - + Perl Tk-JPEG-2.014 module. You can get this from the following URL; ftp://ftp.duke.edu/pub/CPAN/modules/by-module/Net/ - + Bundled inside each PERL module is instructions on how to install the module into your PERL system. - + ------------------------------------------------------------------- =head1 INSTALLING THE SCRIPT Install the jpegDisplay.pl script anywhere you wish, I suggest /usr/local/bin/jpegDisplay.pl. - + ------------------------------------------------------------------- - + Since the script is in PERL, feel free to modify it if it does not meet your needs. This is one of the main reasons I did it in PERL. If you make an addition to the code that you feel other individuals diff --git a/contrib/jpegLoad.pl b/contrib/jpegLoad.pl index 6d922f2..b6a4b5e 100644 --- a/contrib/jpegLoad.pl +++ b/contrib/jpegLoad.pl @@ -260,26 +260,26 @@ =head1 Input options. =head1 REQUIREMENTS To use this program you will need the following. - + At least PERL version 5.004. You can get a stable version of PERL from the following URL; http://cpan.org/src/index.html - + Perl LDAP module. You can get this from the following URL; ftp://ftp.duke.edu/pub/CPAN/modules/by-module/Net/ - + Bundled inside each PERL module is instructions on how to install the module into your PERL system. - + ------------------------------------------------------------------- =head1 INSTALLING THE SCRIPT Install the jpegLoad.pl script anywhere you wish, I suggest /usr/local/bin/jpegLoad.pl. - + ------------------------------------------------------------------- - + Since the script is in PERL, feel free to modify it if it does not meet your needs. This is one of the main reasons I did it in PERL. If you make an addition to the code that you feel other individuals diff --git a/contrib/ldifdiff.pl b/contrib/ldifdiff.pl index a759f63..4d47e95 100644 --- a/contrib/ldifdiff.pl +++ b/contrib/ldifdiff.pl @@ -283,8 +283,6 @@ sub updateFromEntry } -=back - =head1 AUTHOR Kartik Subbarao Esubbarao@computer.orgE diff --git a/contrib/printMembers.pl b/contrib/printMembers.pl index 7b7eac9..6ca8881 100644 --- a/contrib/printMembers.pl +++ b/contrib/printMembers.pl @@ -234,7 +234,6 @@ =head1 NAME printMembers.pl - =head1 DESCRIPTION Prints out the members of a given group, including members of groups that are also members of the given group. diff --git a/contrib/tklkup b/contrib/tklkup index 3a39dc5..2b9ec53 100755 --- a/contrib/tklkup +++ b/contrib/tklkup @@ -5730,7 +5730,7 @@ SAVE FORMAT frame. ------------------------------------------------------------------- =head1 SEARCH DISPLAY PANEL - + The I is the panel where data for the selected DN is displayed. Data is displayed in the read only Directory Data text box. Associated with the Directory Data diff --git a/lib/Net/LDAP.pod b/lib/Net/LDAP.pod index 6d0b53b..e6aaa96 100644 --- a/lib/Net/LDAP.pod +++ b/lib/Net/LDAP.pod @@ -5,30 +5,30 @@ Net::LDAP - Lightweight Directory Access Protocol =head1 SYNOPSIS use Net::LDAP; - + $ldap = Net::LDAP->new( 'ldap.bigfoot.com' ) or die "$@"; - + $mesg = $ldap->bind ; # an anonymous bind - + $mesg = $ldap->search( # perform a search base => "c=US", filter => "(&(sn=Barr) (o=Texas Instruments))" ); - + $mesg->code && die $mesg->error; - + foreach $entry ($mesg->entries) { $entry->dump; } - + $mesg = $ldap->unbind; # take down session - - + + $ldap = Net::LDAP->new( 'ldap.umich.edu' ); - + # bind to a directory with dn and password $mesg = $ldap->bind( 'cn=root, o=University of Michigan, c=us', password => 'secret' ); - + $result = $ldap->add( 'cn=Barbara Jensen, o=University of Michigan, c=US', attr => [ 'cn' => ['Barbara Jensen', 'Barbs Jensen'], @@ -39,7 +39,7 @@ Net::LDAP - Lightweight Directory Access Protocol 'inetOrgPerson' ], ] ); - + $result->code && warn "failed to add entry: ", $result->error ; $mesg = $ldap->unbind; # take down session @@ -434,13 +434,13 @@ See L below. B $mesg = $ldap->modify( $dn, add => { sn => 'Barr' } ); - + $mesg = $ldap->modify( $dn, delete => [qw(faxNumber)] ); - + $mesg = $ldap->modify( $dn, delete => { 'telephoneNumber' => '911' } ); - + $mesg = $ldap->modify( $dn, replace => { 'mail' => 'gbarr@pobox.com' } ); - + $mesg = $ldap->modify( $dn, changes => [ # add sn=Barr @@ -596,7 +596,7 @@ B scope => 'sub', filter => '(|(objectclass=rfc822mailgroup)(sn=jones))' ); - + Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries ); =item start_tls ( OPTIONS ) diff --git a/lib/Net/LDAP/Constant.pm b/lib/Net/LDAP/Constant.pm index ef93dfb..cfa33cf 100644 --- a/lib/Net/LDAP/Constant.pm +++ b/lib/Net/LDAP/Constant.pm @@ -441,6 +441,8 @@ The referral hop limit has been exceeded. =head2 Control OIDs +=over 4 + =item LDAP_CONTROL_SORTREQUEST (1.2.840.113556.1.4.473) =item LDAP_CONTROL_SORTRESULT (1.2.840.113556.1.4.474) @@ -469,6 +471,8 @@ The referral hop limit has been exceeded. =item LDAP_CONTROL_REFERRALS (1.2.840.113556.1.4.616) +=back + =head2 Extension OIDs B exports constant subroutines for the following LDAP diff --git a/lib/Net/LDAP/Control/VLV.pm b/lib/Net/LDAP/Control/VLV.pm index 11dab31..c6119f9 100644 --- a/lib/Net/LDAP/Control/VLV.pm +++ b/lib/Net/LDAP/Control/VLV.pm @@ -265,7 +265,7 @@ Net::LDAP::Control::VLV - LDAPv3 Virtual List View control object $vlv->before(9); # Change page to show 9 before $vlv->after(10); # Change page to show 10 after $vlv->assert("B"); # assert "B" - + $mesg = $ldap->search( @args ); =head1 DESCRIPTION diff --git a/lib/Net/LDAP/DSML.pm b/lib/Net/LDAP/DSML.pm index 09ee56a..6aa89d0 100755 --- a/lib/Net/LDAP/DSML.pm +++ b/lib/Net/LDAP/DSML.pm @@ -703,7 +703,7 @@ NET::LDAP::DSML -- A DSML Writer for Net::LDAP my $server = "localhost"; my $file = "testdsml.xml"; my $ldap = Net::LDAP->new($server); - + $ldap->bind(); @@ -759,7 +759,7 @@ NET::LDAP::DSML -- A DSML Writer for Net::LDAP my @data = (); my $dsml = Net::LDAP::DSML->new(output => \@data, pretty_print => 1 ) or die ("DSML object creation problem using an output array.\n"); - + $dsml->write_schema($schema); print "Finished printing DSML\n"; diff --git a/lib/Net/LDAP/Extension/SetPassword.pm b/lib/Net/LDAP/Extension/SetPassword.pm index 3922e4b..16d3178 100644 --- a/lib/Net/LDAP/Extension/SetPassword.pm +++ b/lib/Net/LDAP/Extension/SetPassword.pm @@ -60,7 +60,7 @@ Net::LDAP::Extension::SetPassword - LDAPv3 Modify Password extension object $mesg = $ldap->set_password( oldpasswd => 'oldPassword' ); die "error: ", $mesg->code(), ": ", $mesg->error() if ($mesg->code()); - + print "changed your password to", $mesg->gen_password() , "\n"; diff --git a/lib/Net/LDAP/Extension/WhoAmI.pm b/lib/Net/LDAP/Extension/WhoAmI.pm index 6bca611..d462e1b 100644 --- a/lib/Net/LDAP/Extension/WhoAmI.pm +++ b/lib/Net/LDAP/Extension/WhoAmI.pm @@ -35,7 +35,7 @@ Net::LDAP::Extension::WhoAmI - LDAP "Who am I?" Operation $mesg = $ldap->who_am_i(); die "error: ", $mesg->code(), ": ", $mesg->error() if ($mesg->code()); - + print "you are bound with authzId ", $mesg->response(), "\n"; diff --git a/lib/Net/LDAP/FAQ.pod b/lib/Net/LDAP/FAQ.pod index 6cf387a..f211969 100644 --- a/lib/Net/LDAP/FAQ.pod +++ b/lib/Net/LDAP/FAQ.pod @@ -62,7 +62,7 @@ Archives with messages before we switched to using perl.org can be found at http://marc.theaimsgroup.com/?l=perl-ldap-dev - + There is also an archive of the perl-ldap mailing list at http://www.xray.mpe.mpg.de/mailing-lists/perl-ldap/ @@ -997,7 +997,7 @@ that is supplied with the PERL-LDAP distribution. This is an excellent source of information on how to use the PERL-LDAP module. =head2 Are there any performance issues with perl-ldap ? - + In the vast majority of use cases (one user has suggested 9 out of 10) there are no performance issues with perl-ldap. @@ -1222,7 +1222,7 @@ replace the placeholders. =head2 Ho do I reset a user's password ... -=head2 Z<>... in most LDAP servers ? +=head3 Z<>... in most LDAP servers ? Most LDAP servers use the standard userPassword attribute as the attribute to set when you want to change a user's password. @@ -1298,7 +1298,7 @@ sake error checking is left out): $ldap->unbind(); -=head2 Z<>... in MS Active Directory ? +=head3 Z<>... in MS Active Directory ? With Active Directory a user's password is stored in the unicodePwd attribute and changed using the regular modify operation. diff --git a/lib/Net/LDAP/Filter.pod b/lib/Net/LDAP/Filter.pod index 7c80e04..13fcf86 100644 --- a/lib/Net/LDAP/Filter.pod +++ b/lib/Net/LDAP/Filter.pod @@ -71,8 +71,8 @@ RFC-2254 http://www.ietf.org/rfc/rfc2254.txt attr = AttributeDescription from Section 4.1.5 of RFC-2251 matchingrule = MatchingRuleId from Section 4.1.9 of RFC-2251 value = AttributeValue from Section 4.1.6 of RFC-2251 - - + + Special Character encodings --------------------------- * \2a, \* diff --git a/lib/Net/LDAP/Search.pod b/lib/Net/LDAP/Search.pod index 4cf88e9..7494fc6 100644 --- a/lib/Net/LDAP/Search.pod +++ b/lib/Net/LDAP/Search.pod @@ -70,7 +70,7 @@ list of L objects. =item sorted ( ) -Return a list L objects, sorted by their DNs. +Return a list L objects, sorted by their DNs. The sorting is done on the client side using Perl's alphanumerical sort operator C. diff --git a/lib/Net/LDAP/Util.pm b/lib/Net/LDAP/Util.pm index a5a3869..c0f4f36 100644 --- a/lib/Net/LDAP/Util.pm +++ b/lib/Net/LDAP/Util.pm @@ -238,7 +238,7 @@ B is a list of name/value pairs, valid options are: Controls case folding of attribute type names. Attribute values are not affected by this option. The default is to uppercase. Valid values are: - + =over 4 =item lower @@ -395,7 +395,7 @@ B is a list of name/value pairs, valid options are: Controls case folding of attribute types names. Attribute values are not affected by this option. The default is to uppercase. Valid values are: - + =over 4 =item lower