lib/CXGN/BrAPI/Authenticate.pm

   1 package CXGN::BrAPI::Authenticate;
   2
   3 use Moose;
   4 use Moose::Role;
   5 use Data::Dumper;
   6 use CXGN::Login;
   7
   8 requires qw( bcs_schema );
   9
  10 sub authenticate_user {
  11     my $status = shift;
  12     my $session_token = shift;
  13     my $authenticate_level = shift;
  14
  15     my ($person_id, $user_type, $user_pref, $expired) = CXGN::Login->new($self->bcs_schema->storage->dbh)->query_from_cookie($session_token);
  16     #print STDERR $person_id." : ".$user_type." : ".$expired;
  17
  18     if (!$person_id || $expired || $user_type ne $authenticate_level) {
  19         return 0;
  20     }
  21
  22     return 1;
  23 }
  24
  25 1;