CGI::Application::Plugin::Authentication::Driver::Generic 0.20

CGI::Application::Plugin::Authentication::Driver::Generic is a Generic Authentication driver.

SYNOPSIS

use base qw(CGI::Application);
use CGI::Application::Plugin::Authentication;

__PACKAGE__->authen->config(
DRIVER => [ 'Generic', { user1 => '123', user2 => '123' } ],
);

This Driver offers a simple way to provide a user database to the CGI::Application::Plugin::Authentication plugin. It offers three ways to provide a list of users to the plugin by providing a hash of username/password pairs, an array of arrays containing the username and password pairs, or a code reference that returns back the username, or undef on success or failure.

EXAMPLE

my %users = (
user1 => '123',
user2 => '123',
);
__PACKAGE__->authen->config(
DRIVER => [ 'Generic', %users ],
);

- or -

my @users = (
['example.com', 'user1', '123'],
['example.com', 'user2', '123'],
['foobar.com', 'user1', '123'],
);
__PACKAGE__->authen->config(
DRIVER => [ 'Generic', @users ],
CREDENTIALS => [ 'authen_domain', 'authen_username', 'authen_password' ]
);

- or -

sub check_password {
my @credentials = @_;
if ($credentials[0] eq 'test' && $credentials[1] eq 'secret') {
return 'testuser';
}
return;
}

__PACKAGE__->authen->config(
DRIVER => [ 'Generic', &check_password ],
);

Product's homepage

Requirements:

· Perl