Authen::Simple::CDBI (3pm)

    use Authen::Simple::CDBI;

my $cdbi = Authen::Simple::CDBI->new( class => 'MyApp::Model::User' );

if ( $cdbi->authenticate( $username, $password ) ) { # successfull authentication }

# or as a mod_perl Authen handler

PerlModule Authen::Simple::Apache PerlModule Authen::Simple::CDBI

PerlSetVar AuthenSimpleDBI_class "MyApp::Model::User"

<Location /protected> PerlAuthenHandler Authen::Simple::CDBI AuthType Basic AuthName "Protected Area" Require valid-user </Location>

Class::DBI authentication.

* new

This method takes a hash of parameters. The following options are valid:

* class

Class::DBI subclass. Required. class => 'MyApp::Model::User'

* username

Name of \*(C`username\*(C' column. Defaults to \*(C`username\*(C'. username => 'username'

* password

Name of \*(C`password\*(C' column. Defaults to \*(C`password\*(C'. password => 'password'

* log

Any object that supports \*(C`debug\*(C', \*(C`info\*(C', \*(C`error\*(C' and \*(C`warn\*(C'. log => Log::Log4perl->get_logger('Authen::Simple::CDBI')

Returns true on success and false on failure.

Authen::Simple.

Authen::Simple::Password.

Class::DBI.

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.