Authen::Simple - Simple Authentication
use Authen::Simple;
use Authen::Simple::Kerberos;
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
}
Simple and consistent framework for authentication.
new
This method takes an array of Authen::Simple
adapters. Required.
authenticate( $username, $password )
Returns true on success and false on failure.
Authen::Simple::ActiveDirectory.
Christian Hansen chansen@cpan.org
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.