NAME
Authen::Simple - Simple Authentication
SYNOPSIS
use
Authen::Simple;
use
Authen::Simple::SMB;
my
$simple
= Authen::Simple->new(
Authen::Simple::Kerberos->new(
realm
=>
'REALM.COMPANY.COM'
),
Authen::Simple::SMB->new(
domain
=>
'DOMAIN'
,
pdc
=>
'PDC'
)
);
if
(
$simple
->authenticate(
$username
,
$password
) ) {
# successfull authentication
}
DESCRIPTION
Simple and consistent framework for authentication.
METHODS
new
This method takes an array of
Authen::Simple
adapters. Required.authenticate( $username, $password )
Returns true on success and false on failure.
SEE ALSO
Authen::Simple::ActiveDirectory.
AUTHOR
Christian Hansen chansen@cpan.org
COPYRIGHT
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.