Authen::Simple (3pm)

    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 \*(C`Authen::Simple\*(C' 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 \*(C`[email protected]\*(C'

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