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(+) 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(+) 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