[Summary view] [Print] [Text view]

   1  # Copyright (c) 2004 Peter Marschall <peter@adpm.de>. All rights reserved.
   2  # This program is free software; you can redistribute it and/or
   3  # modify it under the same terms as Perl itself.
   4  
   5  package Net::LDAP::Control::ManageDsaIT;
   6  
   7  use vars qw(@ISA $VERSION);
   8  use Net::LDAP::Control;
   9  
  10  @ISA = qw(Net::LDAP::Control);
  11  $VERSION = "0.01";
  12  
  13  use Net::LDAP::ASN qw(ManageDsaIT);
  14  use strict;
  15  
  16  sub init {
  17    my($self) = @_;
  18  
  19    delete $self->{asn};
  20  
  21    $self->{asn} = {}
  22      unless (exists $self->{value});
  23  
  24    $self;
  25  }
  26  
  27  1;
  28  
  29  __END__
  30  
  31  =head1 NAME
  32  
  33  Net::LDAP::Control::ManageDsaIT - LDAPv3 Manage DSA-IT control object
  34  
  35  =head1 SYNOPSIS
  36  
  37   use Net::LDAP;
  38   use Net::LDAP::Control::ManageDsaIT;
  39  
  40   $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
  41  
  42   $manage = Net::LDAP::Control::ManageDsaIT->new( critical => 1 );
  43  
  44   $msg = $ldap->modify( 'dc=sub,dc=mydomain,dc=eg",
  45                         changes => [ 
  46                           delete => { ref => 'ldap://ldap2/dc=sub,dc=mydom,dc=eg' },
  47                           add => { ref => 'ldap://ldap3/dc=sub,dc=mydom,dc=eg' } ],
  48                         control  => [ $manage ] );
  49  
  50   die "error: ",$msg->code(),": ",$msg->error()  if ($msg->code());
  51  
  52  
  53  =head1 DESCRIPTION
  54  
  55  C<Net::LDAP::Control::ManageDsaIT> provides an interface for the creation
  56  and manipulation of objects that represent the C<ManageDsaIT> control as
  57  described by RFC 3296.
  58  
  59  =head1 CONSTRUCTOR ARGUMENTS
  60  
  61  Since the C<ManageDsaIT> control does not have any values only the
  62  constructor arguments described in L<Net::LDAP::Control> are
  63  supported
  64  
  65  =head1 METHODS
  66  
  67  As there are no additional values in the control only the
  68  methods in L<Net::LDAP::Control> are available for
  69  C<Net::LDAP::Control::ManageDsaIT> objects.
  70  
  71  =head1 SEE ALSO
  72  
  73  L<Net::LDAP>,
  74  L<Net::LDAP::Control>,
  75  
  76  =head1 AUTHOR
  77  
  78  Peter Marschall E<lt>peter@adpm.deE<gt>.
  79  
  80  Please report any bugs, or post any suggestions, to the perl-ldap
  81  mailing list E<lt>perl-ldap@perl.orgE<gt>
  82  
  83  =head1 COPYRIGHT
  84  
  85  Copyright (c) 2004 Peter Marschall. All rights reserved. This program is
  86  free software; you can redistribute it and/or modify it under the same
  87  terms as Perl itself.
  88  
  89  =cut
  90