SL/Dispatcher/AuthHandler/User.pm

   1 package SL::Dispatcher::AuthHandler::User;
   2
   3 use strict;
   4
   5 use parent qw(Rose::Object);
   6
   7 sub handle {
   8   my ($self, %param) = @_;
   9
  10   my $login = $::form->{'{AUTH}login'} || $::auth->get_session_value('login');
  11   $self->_error(%param) if !defined $login;
  12
  13   %::myconfig = $::auth->read_user(login => $login);
  14
  15   $self->_error(%param) unless $::myconfig{login};
  16
  17   $::locale = Locale->new($::myconfig{countrycode});
  18
  19   my $ok   =  $::form->{'{AUTH}login'} && (SL::Auth::OK() == $::auth->authenticate($::myconfig{login}, $::form->{'{AUTH}password'}));
  20   $ok    ||= !$::form->{'{AUTH}login'} && (SL::Auth::OK() == $::auth->authenticate($::myconfig{login}, undef));
  21
  22   $self->_error(%param) if !$ok;
  23
  24   $::auth->create_or_refresh_session;
  25   $::auth->delete_session_value('FLASH');
  26
  27   return %::myconfig;
  28 }
  29
  30 sub _error {
  31   my $self = shift;
  32
  33   $::auth->punish_wrong_login;
  34   SL::Dispatcher::show_error('login_screen/user_login', 'password', @_);
  35 }
  36
  37 1;