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.
Authen::Simple::CDBI.
Authen::Simple::DBI.
Authen::Simple::FTP.
Authen::Simple::HTTP.
Authen::Simple::Kerberos.
Authen::Simple::LDAP.
Authen::Simple::NIS.
Authen::Simple::PAM.
Authen::Simple::Passwd.
Authen::Simple::POP3.
Authen::Simple::RADIUS.
Authen::Simple::SMB.
Authen::Simple::SMTP.
Authen::Simple::SSH.
Christian Hansen "chansen AT cpan DOT org"
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.