lib/SGN/Controller/AJAX/Login.pm

   1
   2 package SGN::Controller::AJAX::Login;
   3
   4 use Moose;
   5 use CXGN::Login;
   6
   7 BEGIN { extends 'Catalyst::Controller::REST' }
   8
   9 __PACKAGE__->config(
  10     default   => 'application/json',
  11     stash_key => 'rest',
  12     map       => { 'application/json' => 'JSON', 'text/html' => 'JSON' },
  13    );
  14
  15
  16 sub is_logged_in :Path('/user/logged_in') Args(0) {
  17     my $self = shift;
  18     my $c = shift;
  19
  20     if (my $user = $c->user()) {
  21         my $user_id = $user->get_object->get_sp_person_id();
  22         $c->stash->{rest} = { user_id => $user_id };
  23         return;
  24     }
  25     $c->stash->{rest} = { user_id => 0 };
  26 }
  27
  28 sub get_roles :Path('/user/get_roles') Args(0) {
  29     my $self = shift;
  30     my $c = shift;
  31
  32     if (my $user = $c->user()) {
  33         my @roles = $user->get_object->get_roles();
  34         $c->stash->{rest} = { roles => @roles };
  35         return;
  36     }
  37     $c->stash->{rest} = { roles => 0 };
  38 }
  39
  40 sub log_in :Path('/user/login') Args(0) {
  41     my $self = shift;
  42     my $c = shift;
  43
  44     my $login = CXGN::Login->new();
  45
  46     # implement
  47
  48 }
  49
  50 sub log_out :Path('/user/logout') Args(0) {
  51     my $self = shift;
  52     my $c = shift;
  53
  54     # implement
  55
  56 }
  57
  58 1;