lib/SGN/Authentication/Credentials.pm

   1 package SGN::Authentication::Credentials;
   2
   3 use strict;
   4 use warnings;
   5 use SGN::Authentication::Store;
   6 use SGN::Authentication::User;
   7
   8 =head1 NAME
   9
  10 SGN::Authentication::Credentials - a class providing credentials for the SGN Catalyst system
  11
  12 =head1 DESCRIPTION
  13
  14 Implemented according to Catalyst::Plugin::Authentication::Internals
  15
  16 =head1 AUTHOR
  17
  18 Lukas Mueller <lam87@cornell.edu>
  19
  20 =cut
  21
  22 sub new {
  23     my ($class, $config, $app, $realm) = @_;
  24
  25     my $self = bless {}, $class;
  26
  27     $self->{config} = $config;
  28     $self->{app}    = $app;
  29     $self->{realm}  = $realm;
  30
  31     return $self;
  32 }
  33
  34 sub authenticate {
  35     my $self = shift;
  36     my $c = shift;
  37     my $realm = shift;
  38     my $authinfo = shift;
  39
  40     $c->log->debug("authenticate: Authenticating user: $authinfo->{username}") if $c->debug;
  41     my $store = SGN::Authentication::Store->new();
  42     my $user = $store->find_user($authinfo, $c);
  43
  44     return $user;
  45
  46 }
  47
  48 1;