diff options
| author | Jozef Kutej <jozef@kutej.net> | 2008-12-01 23:38:21 +0100 |
|---|---|---|
| committer | Jozef Kutej <jozef@kutej.net> | 2008-12-01 23:38:21 +0100 |
| commit | 184aca93bc263f4c007484cb63840eec80624283 (patch) | |
| tree | cecb86745b59b331483a7bd788515ea31216ea2a /lib | |
| parent | server certificate validation (diff) | |
| parent | store pauseid in session after successfull login (diff) | |
| download | Simple-OpenID-184aca93bc263f4c007484cb63840eec80624283.tar.gz Simple-OpenID-184aca93bc263f4c007484cb63840eec80624283.tar.bz2 Simple-OpenID-184aca93bc263f4c007484cb63840eec80624283.zip | |
Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index 275bff8..05135e5 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -82,6 +82,7 @@ sub login :Local { if ($res->code == 200) { $c->log->info('login pass'); + $c->session->{pauseid} = $username; $c->res->redirect($c->uri_for('/login_pass')); } else { @@ -95,7 +96,7 @@ sub login :Local { sub login_pass :Local { my ( $self, $c ) = @_; - + $c->res->content_type('text/plain'); $c->res->body('login pass'); } |