X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=stemmaweb%2Flib%2Fstemmaweb%2FController%2FUsers.pm;h=32f629fcd8c0f87df411ca57cc044b0c64b3c97c;hb=3e97c22cc5b43e7804cfae75998b45290353bf0e;hp=8a5c6ac97bb4a1d058e233809186a1ae0fbd32d8;hpb=9a7df25a0901fa0a67fed374e6051f0f85fed3a2;p=scpubgit%2Fstemmatology.git diff --git a/stemmaweb/lib/stemmaweb/Controller/Users.pm b/stemmaweb/lib/stemmaweb/Controller/Users.pm index 8a5c6ac..32f629f 100644 --- a/stemmaweb/lib/stemmaweb/Controller/Users.pm +++ b/stemmaweb/lib/stemmaweb/Controller/Users.pm @@ -47,7 +47,7 @@ sub index :Path :Args(0) { Logging in with openid/google requires two passes through the login action, on the 2nd pass the C value is passed in when the openid providing webserver links the user back to the stemmaweb -site. This adaption to the C action sets the realm we are +site. This adaptation to the C action sets the realm we are authenticating against to be C in this case. =cut @@ -86,6 +86,31 @@ before register => sub { } }; +=head2 success + +A stub page returned on login / registration success. + +=cut + +sub success :Local :Args(0) { + my ( $self, $c ) = @_; + + $c->load_status_msgs; + $c->stash->{template} = 'auth/success.tt'; +} + +=head2 post_logout + +Return to the index page, not to the login page. + +=cut + +sub post_logout { + my( $self, $c ) = @_; + $c->response->redirect( $c->uri_for_action( '/index' ) ); + $c->detach; +} + =head1 AUTHOR A clever guy