diff options
| author | Michael Kröll <pepl@cpan.org> | 2008-12-01 22:55:30 +0100 |
|---|---|---|
| committer | Michael Kröll <pepl@cpan.org> | 2008-12-01 22:55:30 +0100 |
| commit | cfdbde16b89b845ab1297cc25dbde08649d42758 (patch) | |
| tree | 61bc937c90442b81a00895a85175b7ae9fa1360e /lib/PAUSE/OpenID/Controller/Root.pm | |
| parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
| download | Simple-OpenID-cfdbde16b89b845ab1297cc25dbde08649d42758.tar.gz Simple-OpenID-cfdbde16b89b845ab1297cc25dbde08649d42758.tar.bz2 Simple-OpenID-cfdbde16b89b845ab1297cc25dbde08649d42758.zip | |
Stub for error page; redirect to error page when openid.return_to parameter is not given
Diffstat (limited to 'lib/PAUSE/OpenID/Controller/Root.pm')
| -rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index 129f3a4..ca52356 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -29,6 +29,11 @@ PAUSE::OpenID::Controller::Root - Root Controller for PAUSE::OpenID sub index :Path :Args(0) { my ( $self, $c ) = @_; + if ( not $c->req->param('openid.return_url') ) { + #$c->flash->{xml} = '<document><error_message>Missing parameter</error_message></document>'; + $c->res->redirect($c->uri_for('/error')); + } + $c->stash->{xml} =<<XML; <document/> XML @@ -38,7 +43,13 @@ XML $c->stash->{$key} = $c->req->param($key); } - # Hello World + $c->forward('PAUSE::OpenID::View::XSLT'); +} + +sub error :Local { + my ( $self, $c ) = @_; + #$c->stash->{xml} = $c->flash->{xml}; + $c->stash->{xml} = '<document/>'; $c->forward('PAUSE::OpenID::View::XSLT'); } @@ -55,7 +66,7 @@ sub login :Local { my $username = $c->req->param('username'); my $password = $c->req->param('password'); - $c->log->debug('username "'.$username.'" login attemp'); + $c->log->debug('username "'.$username.'" login attempt'); $c->res->redirect($c->uri_for('/login_failed')); } |