- Timestamp:
- 01/13/16 17:11:30 (8 years ago)
- Location:
- trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Remote.pm
r1570 r1632 17 17 =cut 18 18 19 sub begin{19 sub auto { 20 20 my ( $self, $c ) = @_; 21 21 22 22 if ($c->user_exists) { 23 23 # Set login user: 24 $c->model('Accounts')->db->{_user} = 25 $c->user->{username}; 24 $c->model('Accounts')->db->{_user} = $c->user->{username}; 26 25 } 27 26 } -
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm
r1609 r1632 44 44 # Set login user: 45 45 $c->model('Accounts')->db->{_user} = $c->user->{username}; 46 return 1; 46 47 } else { 47 48 # No need to login for About section 48 $c-> forward('needlogin');49 $c->detach('needlogin'); 49 50 return; 50 51 } … … 69 70 $c->stash->{sslid} = $ENV{$sslid}; 70 71 71 $c->stash->{template} = 'login.tt'; 72 } 73 74 sub login : Local { 75 my ( $self, $c ) = @_; 76 77 my $sslid = $c->config->{ssl}->{SSL_ID} || 'HTTP_SSL_CLIENT_S_DN_EMAIL'; 78 $c->stash->{sslid} = $ENV{$sslid}; 79 80 $c->stash->{template} = 'login.tt'; 81 if ($c->req->param('username')) { 82 if ($c->authenticate({ 83 username => $c->req->param('username') || '', 84 password => $c->req->param('password') || '', 85 ssl => $c->req->param('use_ssl') || '', 86 })) { 87 my $redirurl = $c->session->{redirurl}; 88 $redirurl->query_form(%{ $c->session->{redirparam} || {}}); 89 $c->session->{redirurl} = undef; 90 $c->session->{redirparam} = undef; 91 $c->res->redirect($redirurl || $c->uri_for('/'), ); 92 } else { 93 # invalid login... 94 } 95 } 72 $c->stash->{template} = 'login/index.tt'; 96 73 } 97 74
Note: See TracChangeset
for help on using the changeset viewer.