diff options
author | Michael Kröll <pepl@cpan.org> | 2008-12-01 22:21:42 +0100 |
---|---|---|
committer | Michael Kröll <pepl@cpan.org> | 2008-12-01 22:21:42 +0100 |
commit | b038af84df08edfd44fb0b545a8db34567e6ccac (patch) | |
tree | 29299148afe1a23ee805c4bd4d4fb18f2bb01a66 /lib | |
parent | Pass through params to stylesheet (diff) | |
parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
download | Simple-OpenID-b038af84df08edfd44fb0b545a8db34567e6ccac.tar.gz Simple-OpenID-b038af84df08edfd44fb0b545a8db34567e6ccac.tar.bz2 Simple-OpenID-b038af84df08edfd44fb0b545a8db34567e6ccac.zip |
Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID
Conflicts:
root/templates/index.xsl
Diffstat (limited to 'lib')
-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 ba6db5d..129f3a4 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -49,6 +49,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. |