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

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm
index 13f165f..c707cf8 100644
--- a/lib/PAUSE/OpenID/Controller/Root.pm
+++ b/lib/PAUSE/OpenID/Controller/Root.pm
@@ -67,6 +67,7 @@ sub error :Local {
 
 sub default :Path {
     my ( $self, $c ) = @_;
+    $c->response->content_type('text/plain');
     $c->response->body( 'Page not found' );
     $c->response->status(404);
     
@@ -87,6 +88,7 @@ sub login :Local {
     $ua->credentials('pause.perl.org:443', 'PAUSE', $username, $password);
     my $res = $ua->request($req);
     
+    # but this is bad as the certificate is checked AFTER the credentials are send :-(
     die 'pause server certificate validation failed'
         if exists $res->headers->{'client-ssl-warning'};
     
@@ -118,6 +120,13 @@ sub login_failed :Local {
     $c->res->body('login fail');
 }
 
+sub pauseid : Regex('^(.*)/?$') {
+    my ( $self, $c ) = @_;
+    my $param = $c->req->captures->[0];
+    $c->log->error("user $param");
+
+}
+
 =head2 end
 
 Attempt to render a view, if needed.