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

1 files changed, 18 insertions, 2 deletions

diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm
index 33c8884..b3f2f4c 100644
--- a/lib/PAUSE/OpenID/Controller/Root.pm
+++ b/lib/PAUSE/OpenID/Controller/Root.pm
@@ -31,11 +31,27 @@ PAUSE::OpenID::Controller::Root - Root Controller for PAUSE::OpenID
 sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
 
+    if ( not $c->req->param('openid.return_url') ) {
+        #$c->flash->{xml} = '<document><error_message>Missing parameter</error_message></document>';
+        $c->res->redirect($c->uri_for('/error'));
+    }
+
 $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');
+}
+
+sub error :Local {
+    my ( $self, $c ) = @_;
+    #$c->stash->{xml} = $c->flash->{xml};
+    $c->stash->{xml} = '<document/>';
     $c->forward('PAUSE::OpenID::View::XSLT');
 }
 
@@ -52,7 +68,7 @@ sub login :Local {
     my $username = $c->req->param('username');
     my $password = $c->req->param('password');
     
-    $c->log->debug('username "'.$username.'" login attemp');
+    $c->log->debug('username "'.$username.'" login attempt');
     
     my $ua = LWP::UserAgent->new;
     $ua->credentials('pause.perl.org:443', 'PAUSE', $username, $password);