Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID

Conflicts:

	root/templates/index.xsl

1 files changed, 30 insertions, 0 deletions

diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm
index c37b2c2..129f3a4 100644
--- a/lib/PAUSE/OpenID/Controller/Root.pm
+++ b/lib/PAUSE/OpenID/Controller/Root.pm
@@ -32,6 +32,11 @@ sub index :Path :Args(0) {
 $c->stash->{xml} =<<XML;
 <document/>
 XML
+    
+    # Pass through parameters (unchecked for now)
+    foreach my $key ( keys %{$c->req->params} ) {
+        $c->stash->{$key} = $c->req->param($key);
+    }
 
     # Hello World
     $c->forward('PAUSE::OpenID::View::XSLT');
@@ -44,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.