ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Don't redirect to /login if authentication is required

Browse Source 
We can just serve the login page in place.
This commit is contained in:
Eelco Dolstra
2013-07-09 12:02:15 +02:00
parent 13f0b54c49
commit 12ca755bea
3 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/lib/Hydra/Controller/User.pm
View File

@ -75,7 +75,7 @@ sub logout_GET {
sub persona_login :Path('/persona-login') Args(0) {
my ($self, $c) = @_;
$c->stash->{json} = {};
die if $c->request->method ne "POST";
requirePost($c);
my $assertion = $c->req->params->{assertion} or die;
@ -85,10 +85,10 @@ sub persona_login :Path('/persona-login') Args(0) {
{ assertion => $assertion,
audience => "http://localhost:3000/"
});
Catalyst::Exception->throw("Did not get a response from Persona.") unless $response->is_success;
error($c, "Did not get a response from Persona.") unless $response->is_success;
my $d = decode_json($response->decoded_content) or die;
Catalyst::Exception->throw("Persona says: $d->{reason}") if $d->{status} ne "okay";
error($c, "Persona says: $d->{reason}") if $d->{status} ne "okay";
my $email = $d->{email} or die;
@ -106,6 +106,16 @@ sub persona_login :Path('/persona-login') Args(0) {
$c->set_authenticated($user);
$c->stash->{json}->{result} = "ok";
$c->flash->{flashMsg} = "You are now signed in as <tt>" . $email . "</tt>";
}
sub persona_logout :Path('/persona-logout') Args(0) {
my ($self, $c) = @_;
$c->stash->{json} = {};
requirePost($c);
$c->flash->{flashMsg} = "You are no longer signed in." if $c->user_exists();
$c->logout;
}