lib/SMMID/Authentication/Store.pm

   1
   2 package SMMID::Authentication::Store;
   3
   4 use Moose;
   5
   6 use Data::Dumper;
   7 use SMMID::Login;
   8
   9 sub find_user {
  10     my $self = shift;
  11     my $auth_info = shift;
  12     my $c = shift;
  13
  14     print STDERR "Authenticating user $auth_info->{username}...\n";
  15
  16     my $login = SMMID::Login->new( { schema => $c->model("SMIDDB")->schema() } );
  17
  18     #my $row = $c->model("SMIDDB")->resultset("Dbuser")->find( { username => $auth_info->{username} });
  19
  20     my $row = $login->exists_user($auth_info->{username});
  21
  22     my $login_info = $login->login_user($auth_info->{username}, $auth_info->{password});
  23
  24     if ($row) {
  25         print STDERR "User $auth_info->{username} found...\n";
  26
  27         if (!$login_info->{error}) {
  28
  29
  30             my $user = SMMID::Authentication::User->new();
  31             $user->set_object($row);
  32             $user->id($row->username());
  33             $user->roles([ $row->user_type() ]);
  34             return $row, $login_info;
  35         }
  36     }
  37
  38     print STDERR "LOGIN INFO NOW: ".Dumper($login_info);
  39     return undef, $login_info;
  40
  41 }
  42
  43
  44
  45
  46 1;