SYNOPSIS

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
}

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.

AUTHOR

Christian Hansen "[email protected]"

COPYRIGHT

This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.