diff options
| author | Jozef Kutej <jozef@emo.cle.sk> | 2008-12-01 22:14:53 +0100 |
|---|---|---|
| committer | Jozef Kutej <jozef@emo.cle.sk> | 2008-12-01 22:14:53 +0100 |
| commit | 1057db90b4a17e82e31ea39c137ac22fa523198c (patch) | |
| tree | 6d83cf6e2543d7812edd30e1529987d1e66ccb35 /lib/PAUSE | |
| parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
| download | Simple-OpenID-1057db90b4a17e82e31ea39c137ac22fa523198c.tar.gz Simple-OpenID-1057db90b4a17e82e31ea39c137ac22fa523198c.tar.bz2 Simple-OpenID-1057db90b4a17e82e31ea39c137ac22fa523198c.zip | |
dummy login/
Diffstat (limited to 'lib/PAUSE')
| -rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index c37b2c2..41b767e 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -44,6 +44,31 @@ sub default :Path { } +sub login :Local { + my ( $self, $c ) = @_; + + my $username = $c->req->param('username'); + my $password = $c->req->param('password'); + + $c->log->debug('username "'.$username.'" login attemp'); + + $c->res->redirect($c->uri_for('/login_failed')); +} + +sub login_pass { + my ( $self, $c ) = @_; + + $c->res->content_type('text/plain'); + $c->res->body('login pass'); +} + +sub login_failed { + my ( $self, $c ) = @_; + + $c->res->content_type('text/plain'); + $c->res->body('login fail'); +} + =head2 end Attempt to render a view, if needed. |