diff options
Diffstat (limited to 'lib/PAUSE/OpenID/Controller/Root.pm')
-rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 9 |
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. |