view release on metacpan or  search on metacpan

Dua.pm  view on Meta::CPAN

  dua_add($self->{session},$rdn,@args);
}

sub modattr
{
  my($self,$rdn,@args) = @_;
  return undef unless defined $self->{session};
  dua_modattr($self->{session},$rdn,@args);
}

sub find
{
  my($self,$rdn,$filter,$scope,$all) = @_;
  return undef unless defined $self->{session};
  dua_find($self->{session},$rdn,$filter,$scope,$all);
}

sub show
{
  my($self,$rdn) = @_;
  return undef unless defined $self->{session};
  dua_show($self->{session},$rdn);
}

sub attribute
{
  my($self,$rdn,$attribute) = @_;
  return undef unless defined $self->{session};
  dua_attribute($self->{session},$rdn,$attribute);
}


__END__
# Below is the stub of documentation for your module. You better edit it!

=head1 NAME

Dua - DUA/Perl interface to an X.500 directory

=head1 SYNOPSIS

  use Dua;

=head1 DESCRIPTION

  This module provides a set of subroutines which allow a Perl script to
  access to the X.500 directory.

=head1 SUBROUTINES

  $dua = new Dua() 

      Creates a new instance of a Dua object.

  $dua->open($dsa, $port, $dn, $passwd)

      Open an association to the DSA  specified  in  dsa  and
      running  on  the  port specified by port. If no port is
      specified, then  duaperl  will  use  the  default  port
      number.  duaperl  will bind to the DSA as dn, using the
      credentials supplied in passwd. Currently, only  simple
      authentication is supported.

  $dua->error()

      This routine returns a description of the problem when an error
      occurs.

  $dua->settmout($seconds, $microseconds)

      This routine sets the asynchronous timeout value for
      all operations.  The default is 30 seconds.

  $dua->close()

      This routine closes the association to the X.500 DSA.

  $dua->moveto($dn)

      Move to the location in the DIT specified by dn.

  $dua->modrdn($rdn, $newrdn)

      Modify the object whose RDN is rdn to newrdn.

  $dua->delete($rdn)

      Delete the object specified by rdn from the DIT.

  $dua->add($rdn, %attrs)

      Add a new object to the DIT with an RDN of rdn with the
      attributes attrs.

  $dua->modattr($rdn, %attrs)

      Modify the object specified by rdn with the  attribute-
      value pairs in attrs. If a value is set to an empty string
      the associated attribute is deleted from the entry.

  $dua->show($rdn)

      Returns in an  associative  array  the  attribute-value
      pairs found in the object specified by rdn.

  $dua->attribute($rdn,$attribute)

      Returns an array of values for the specified attribute
      found in the object specified by rdn. 

      This method maybe used to retrieve binary attributes not
      accessible via the show method.

  $dua->find($rdn, $filter, $scope, $all)

      Returns in an associative array the attribute-value pairs found
      beneath the object specified by rdn. filter is a string
      representation of a filter to apply to the search.  A
      Backus-Naur Form definition is given below.  scope refers to how
      deep the search is to progress in the DIT. A value of 0
      specifies the immediate children of the object; a value of 1