File Coverage

blib/lib/Net/LDAP/Extension/eDirectoryPassword.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	2	50.0
total	13	30	43.3

package Net::LDAP::Extension::eDirectoryPassword;

require Net::LDAP::Extension;
require Convert::ASN1;
use constant NMASLDAP_GET_PASSWORD_REQUEST => "2.16.840.1.113719.1.39.42.100.13";
use constant NMASLDAP_GET_PASSWORD_RESPONSE => "2.16.840.1.113719.1.39.42.100.14";
use constant NMAS_LDAP_EXT_VERSION => 1;

$VERSION = "0.00_01";
@ISA = qw(Net::LDAP::Extension);

# prepare to BER encode the request
my $passwdRequest = Convert::ASN1->new;
$passwdRequest->prepare (q);

# prepare to BER decode the response
my $passwdResponse = Convert::ASN1->new;
$passwdResponse->prepare (q);

# get an universal password
sub Net::LDAP::get_edir_password {
	my $ldap = shift;
	my $requestdn = shift;

	my $res = $ldap->extension (
	  name => NMASLDAP_GET_PASSWORD_REQUEST,
	  value => $passwdRequest->encode (
	    'nmasver' => NMAS_LDAP_EXT_VERSION,
	    'reqdn' => $requestdn,
	  ),
	);

	bless $res;
}

# return a previously fetched password
sub edir_password {
	my $self = shift;

	if ($self->response_name() eq NMASLDAP_GET_PASSWORD_RESPONSE) {
		my $output = $passwdResponse->decode ($self->response());
		if (!$output->{'err'}) {
			return $output->{'passwd'};
		}
	}
	return undef;
}

1;

__END__