CGI::Application::Plugin::Authentication и mysql | Perl, Python

После того, как хранение сессионных данных было перенесено в базу данных mysql, следующим логичным шагом стала реализация получения аутентификационных данных из БД mysql.

Пример основан на предыдущем варианте кода. Скрипт cgi и содержимое шаблона tt остались неизменными. Изменения вносились только в модуль App2.pm (в предыдущем примере это был App3.pm), в блок cgiapp_init.

Итак, что нужно сделать, чтобы заставить работать CGI::Application::Plugin::Authentication с mysql?

1. Создать в базе данных новую таблицу

Название таблицы и ее полей может быть произвольным.

CREATE TABLE `db`.`user` (
`name` VARCHAR( 255 ) NOT NULL ,
`password` VARCHAR( 255 ) NOT NULL ,
PRIMARY KEY ( `name` )
) ENGINE = MYISAM ;

CREATE TABLE `db`.`user` (

`name` VARCHAR( 255 ) NOT NULL ,

`password` VARCHAR( 255 ) NOT NULL ,

PRIMARY KEY ( `name` )

) ENGINE = MYISAM ;

2. Добавить в таблицу список пользователей

Пароль рекомендуется хранить в зашифрованном виде, но пока, для простоты тестирования, пусть хранится «как есть».

INSERT INTO `db`.`user` (`name`, `password`)
VALUES ('User1', '123');

1 2	INSERT INTO `db`.`user` (`name`, `password`) VALUES ('User1', '123');

3. Настроить подключение к таблице БД в модуле программы

package App2;
use strict;
use warnings;

use base 'CGI::Application';
use CGI::Application::Plugin::TT;

use CGI::Application::Plugin::DBH (qw/dbh_config dbh dbh_default_name/);

use CGI::Session::Driver::mysql;

use CGI::Application::Plugin::Session;
use CGI::Application::Plugin::Authentication;
use CGI::Application::Plugin::Forward;

sub setup {
  my $self = shift;

  $self->mode_param('step');
  $self->start_mode('on_start');
  $self->run_modes(
    on_start => \&start,
    on_logout => \&logout,
    on_login => \&login,
    on_ok => \&ok,
    on_private1 => \&private1,
    AUTOLOAD => sub { return 'Запрошенной страницы не существует' }
  );
}

sub cgiapp_init {
  my $self = shift;

  $self->dbh_config("DBI:mysql:database=db;host=localhost",
    'user_db', 'password_db');

  # после аутентификации в сессию будет добавлена информация о клиенте
  $self->session_config(
    CGI_SESSION_OPTIONS => [ "driver:mysql", $self->query, {Handle=>$self->dbh} ],
    DEFAULT_EXPIRY      => '+1w',
    COOKIE_PARAMS       => {
      -expires => '+24h',
      -path    => '/',
    },
    SEND_COOKIE         => 1,
  );

  # задаем настройки аутентификации
  $self->authen->config(
    DRIVER => [ 'DBI',
      TABLE       => 'user',
      # CONSTRAINTS - список условий для поиска аутентифицируемого пользователя 
      # в таблице БД
      CONSTRAINTS => {
        'user.name'     => '__CREDENTIAL_1__',
        'user.password' => '__CREDENTIAL_2__',
      },
    ],
    STORE	=> 'Session',
    LOGOUT_RUNMODE		=> 'on_logout',
    LOGIN_RUNMODE		=> 'on_login',
    POST_LOGIN_RUNMODE	=> 'on_ok',
    # ниже, соответственно, CREDENTIAL_1 и CREDENTIAL_2
    CREDENTIALS => [ 'authen_username', 'authen_password' ],
  );

  # эти режимы будут доступны только прошедшим аутентификацию клиентам
  $self->authen->protected_runmodes(
    'on_private1',
  );
}

# далее в код никаких изменений не вносилось. Он оставлен для целостности примера

# подпрограмма выполнится, если клиент указал корректные логин и пароль
sub ok {
  my $self = shift;

  my $tt_params = {};
  $tt_params->{block} = 'show_ok_page';

  return $self->tt_process('template2.tt', $tt_params);
}

sub start {
  my $self = shift;
  my $q = $self->query();
  my $tt_params = {};

  my $user = $self->authen->username;

  if ($user) {
    # клиент опознан. Можно показать что-то особенное
    return $self->forward('on_private1');
  }

  # клиент не опознан, выводим форму для аутентификации
  $tt_params->{block} = 'show_index_page';
  return $self->tt_process('template2.tt', $tt_params);
}

# если клиент не опознан, вместо этой подпрограммы сработает login()
sub private1 {
  my $self = shift;
  my $tt_params = {};

  $tt_params->{block} = 'show_private_page';

  return $self->tt_process('template2.tt', $tt_params);
}

# завершение сеанса работы
sub logout {
  my $self = shift;
  my $tt_params = {};

  if ($self->authen->username) {
    $self->authen->logout;
    $self->session_delete;
  }
  $tt_params->{block} = 'show_close_session_page';

  return $self->tt_process('template2.tt', $tt_params);
}

# аутентификация
sub login {
  my $self = shift;

  if ($self->authen->username) {
    # клиент опознан. Можно показать что-то особенное
    return $self->forward('on_private1');
  } else {
    # клиент не опознан. Оn_start выведет ему
    # форму для аутентификации
    return $self->forward('on_start');
  }
}
1;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

package App2;

use strict;

use warnings;

use base 'CGI::Application';

use CGI::Application::Plugin::TT;

use CGI::Application::Plugin::DBH (qw/dbh_config dbh dbh_default_name/);

use CGI::Session::Driver::mysql;

use CGI::Application::Plugin::Session;

use CGI::Application::Plugin::Authentication;

use CGI::Application::Plugin::Forward;

sub setup {

my $self = shift;

$self->mode_param('step');

$self->start_mode('on_start');

$self->run_modes(

on_start => \&start,

on_logout => \&logout,

on_login => \&login,

on_ok => \&ok,

on_private1 => \&private1,

AUTOLOAD => sub { return 'Запрошенной страницы не существует' }

);

}

sub cgiapp_init {

my $self = shift;

$self->dbh_config("DBI:mysql:database=db;host=localhost",

'user_db', 'password_db');

# после аутентификации в сессию будет добавлена информация о клиенте

$self->session_config(

CGI_SESSION_OPTIONS => [ "driver:mysql", $self->query, {Handle=>$self->dbh} ],

DEFAULT_EXPIRY => '+1w',

COOKIE_PARAMS => {

-expires => '+24h',

-path => '/',

SEND_COOKIE => 1,

);

# задаем настройки аутентификации

$self->authen->config(

DRIVER => [ 'DBI',

TABLE => 'user',

# CONSTRAINTS - список условий для поиска аутентифицируемого пользователя

# в таблице БД

CONSTRAINTS => {

'user.name' => '__CREDENTIAL_1__',

'user.password' => '__CREDENTIAL_2__',

STORE => 'Session',

LOGOUT_RUNMODE => 'on_logout',

LOGIN_RUNMODE => 'on_login',

POST_LOGIN_RUNMODE => 'on_ok',

# ниже, соответственно, CREDENTIAL_1 и CREDENTIAL_2

CREDENTIALS => [ 'authen_username', 'authen_password' ],

);

# эти режимы будут доступны только прошедшим аутентификацию клиентам

$self->authen->protected_runmodes(

'on_private1',

);

}

# далее в код никаких изменений не вносилось. Он оставлен для целостности примера

# подпрограмма выполнится, если клиент указал корректные логин и пароль

sub ok {

my $self = shift;

my $tt_params = {};

$tt_params->{block} = 'show_ok_page';

return $self->tt_process('template2.tt', $tt_params);

}

sub start {

my $self = shift;

my $q = $self->query();

my $tt_params = {};

my $user = $self->authen->username;

if ($user) {

# клиент опознан. Можно показать что-то особенное

return $self->forward('on_private1');

}

# клиент не опознан, выводим форму для аутентификации

$tt_params->{block} = 'show_index_page';

return $self->tt_process('template2.tt', $tt_params);

}

# если клиент не опознан, вместо этой подпрограммы сработает login()

sub private1 {

my $self = shift;

my $tt_params = {};

$tt_params->{block} = 'show_private_page';

return $self->tt_process('template2.tt', $tt_params);

}

# завершение сеанса работы

sub logout {

my $self = shift;

my $tt_params = {};

if ($self->authen->username) {

$self->authen->logout;

$self->session_delete;

}

$tt_params->{block} = 'show_close_session_page';

return $self->tt_process('template2.tt', $tt_params);

}

# аутентификация

sub login {

my $self = shift;

if ($self->authen->username) {

# клиент опознан. Можно показать что-то особенное

return $self->forward('on_private1');

} else {

# клиент не опознан. Оn_start выведет ему

# форму для аутентификации

return $self->forward('on_start');

}

Полезные ссылки

search.cpan.org: CGI::Application::Plugin::Authentication::Driver::DBI

Perl, Python — блог программиста

CGI::Application::Plugin::Authentication. Получение данных о пользователе из БД mysql

1. Создать в базе данных новую таблицу

2. Добавить в таблицу список пользователей

3. Настроить подключение к таблице БД в модуле программы

Полезные ссылки