lib/SGN/Controller/User.pm

   1
   2 package SGN::Controller::User;
   3
   4 use Moose;
   5
   6 BEGIN { extends 'Catalyst::Controller' };
   7
   8 sub login :Path('/user/login') Args(0) {
   9     my $self = shift;
  10     my $c = shift;
  11
  12     $c->stash->{goto_url} = $c->req->param("goto_url");
  13
  14     print STDERR "GOTOURL=".$c->stash->{goto_url}."\n";
  15     $c->stash->{template} = '/user/login.mas';
  16 }
  17
  18 sub new_user :Path('/user/new') Args(0) {
  19     my $self = shift;
  20     my $c = shift;
  21
  22     # Redirect to the login page and display the new user form
  23     $c->res->redirect('/user/login?goto_url=/&new_user=1');
  24     $c->detach();
  25 }
  26
  27 sub update_account :Path('/user/update') Args(0) {
  28     my $self = shift;
  29     my $c = shift;
  30
  31     if (! $c->user()) {
  32         $c->res->redirect('/user/login');
  33         return;
  34     }
  35
  36     $c->stash->{logged_in_username} = $c->user()->get_username();
  37     $c->stash->{private_email} = $c->user()->get_private_email();
  38
  39     $c->stash->{template} = '/user/change_account.mas';
  40 }
  41
  42 sub confirm_user :Path('/user/confirm') Args(0) {
  43     my $self = shift;
  44     my $c = shift;
  45
  46     my $confirm_code = $c->req->param('confirm_code');
  47     my $username = $c->req->param('username');
  48
  49     if ($c->config->{disable_account_confirm}) {
  50         $c->stash->{template} = '/generic_message.mas';
  51         $c->stash->{message} = 'Account confirmation is disabled on this site. Please contact nm529@cornell.edu to confirm your account.';
  52         return;
  53     }
  54
  55     my $sp = CXGN::People::Login->get_login( $c->dbc()->dbh(), $username );
  56
  57     if ( !$sp ) {
  58         confirm_failure($c, "Username \"$username\" was not found.");
  59         return;
  60     }
  61
  62     if ( !$sp->get_confirm_code() ) {
  63         confirm_failure($c, "No confirmation is required for user <b>$username</b>. This account has already been confirmed. <p><a href='/user/login'>[Login Page]</a></p>");
  64         return;
  65     }
  66
  67     if ( $sp->get_confirm_code() ne $confirm_code ) {
  68         confirm_failure($c, "Confirmation code is not valid!\n");
  69         return;
  70     }
  71
  72     $sp->set_disabled(undef);
  73     $sp->set_confirm_code(undef);
  74     $sp->set_private_email( $sp->get_pending_email() );
  75
  76     $sp->store();
  77
  78     $c->stash->{template} = '/generic_message.mas';
  79     $c->stash->{message} = "Confirmation successful for username <b>$username</b>";
  80 }
  81
  82 sub confirm_failure {
  83     my $c = shift;
  84     my $reason = shift;
  85
  86     $c->stash->{template} = '/generic_message.mas';
  87     $c->stash->{message} = "Sorry, this confirmation code is invalid. Please check that your complete confirmation URL has been pasted correctly into your browser. ($reason)";
  88
  89 }
  90
  91 sub reset_password_form :Path('/user/reset_password_form') Args(0) {
  92     my $self = shift;
  93     my $c = shift;
  94
  95     my $token = $c->req->param('reset_password_token');
  96
  97     my $person_id;
  98     if ($token) {
  99         my $person_id = CXGN::People::Login->get_login_by_token($c->dbc->dbh(), $token);
 100         if (!$person_id) {
 101             $c->stash->{message} = "The provided password reset link is invalid. Please try again with another link.";
 102             $c->stash->{template} = '/generic_message.mas';
 103             return;
 104         }
 105
 106         my $person = CXGN::People::Person->new($c->dbc->dbh(), $person_id);
 107         $c->stash->{token} = $token;
 108         $c->stash->{person_id} = $person_id;
 109         $c->stash->{username} = $person->get_username();
 110         $c->stash->{template} = '/user/reset_password_form.mas';
 111     }
 112     else {
 113         $c->stash->{message} = "No token provided. Please try again.";
 114         $c->stash->{template} = '/generic_message.mas';
 115     }
 116
 117 }
 118
 119 sub quick_create_account :Path('/user/admin/quick_create_account') {
 120     my $self = shift;
 121     my $c = shift;
 122
 123     if (!$c->user()) {
 124         $c->forward('/user/login');
 125         return;
 126     }
 127
 128     $c->stash->{template} = '/user/quick_create_account.mas';
 129 }
 130
 131
 132
 133 1;