diff options
author | Thomas Klausner <domm@cpan.org> | 2008-12-01 22:17:30 +0100 |
---|---|---|
committer | Thomas Klausner <domm@cpan.org> | 2008-12-01 22:17:30 +0100 |
commit | cd5f20948b1c3bc6db437e5fdf82d814a5c94932 (patch) | |
tree | 0573af5fb9865dc5d4067a589318651acff4e811 | |
parent | added openid client for testing, needs Net-OpenID-Consumer (diff) | |
parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
download | Simple-OpenID-cd5f20948b1c3bc6db437e5fdf82d814a5c94932.tar.gz Simple-OpenID-cd5f20948b1c3bc6db437e5fdf82d814a5c94932.tar.bz2 Simple-OpenID-cd5f20948b1c3bc6db437e5fdf82d814a5c94932.zip |
Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID
-rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 25 | ||||
-rw-r--r-- | root/templates/index.xsl | 2 |
2 files changed, 26 insertions, 1 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. diff --git a/root/templates/index.xsl b/root/templates/index.xsl index adca9c6..0135613 100644 --- a/root/templates/index.xsl +++ b/root/templates/index.xsl @@ -20,7 +20,7 @@ <body> <p>The website '<xsl:value-of select="$origin_website"/>' wants to verify your PAUSE identity.</p> - <form method="post" action="signin" id="login_form"> + <form method="post" action="login" id="login_form"> <div> <label for="username"><abbr title="Perl Authors Upload Server">PAUSE</abbr> ID:</label> <input name="username" id="username" type="text" /> |