From bc30ecf0065744dcf3702b428031995df619ed2c Mon Sep 17 00:00:00 2001 From: Jozef Kutej Date: Mon, 1 Dec 2008 23:45:33 +0100 Subject: bad bad --- lib/PAUSE/OpenID/Controller/Root.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'lib') diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index 05135e5..221955f 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -77,6 +77,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'}; -- cgit v1.2.3 From b143b0264817e999c40601b32a81901cc7a8ff72 Mon Sep 17 00:00:00 2001 From: Jozef Kutej Date: Mon, 1 Dec 2008 23:52:13 +0100 Subject: page not found content type --- lib/PAUSE/OpenID/Controller/Root.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'lib') diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index cfbc608..e2b918b 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -62,6 +62,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); -- cgit v1.2.3 From 09476def18f56124e778d7625783111aeb48481a Mon Sep 17 00:00:00 2001 From: Thomas Klausner Date: Mon, 1 Dec 2008 23:56:45 +0100 Subject: added rough catch-all action for pauseids --- lib/PAUSE/OpenID/Controller/Root.pm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lib') diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index 05135e5..e0575b8 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -108,6 +108,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. -- cgit v1.2.3