diff options
| author | Lars Dɪᴇᴄᴋᴏᴡ <daxim@cpan.org> | 2008-12-01 23:58:51 +0100 |
|---|---|---|
| committer | Lars Dɪᴇᴄᴋᴏᴡ <daxim@cpan.org> | 2008-12-01 23:58:51 +0100 |
| commit | 51b88f1a3a84742add153a679fa1c8b7bf6c2bb7 (patch) | |
| tree | fdc555e482aa30888319fcd932cdf7d1774e7e9f | |
| parent | basic styling (diff) | |
| parent | page not found content type (diff) | |
| download | Simple-OpenID-51b88f1a3a84742add153a679fa1c8b7bf6c2bb7.tar.gz Simple-OpenID-51b88f1a3a84742add153a679fa1c8b7bf6c2bb7.tar.bz2 Simple-OpenID-51b88f1a3a84742add153a679fa1c8b7bf6c2bb7.zip | |
Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID
| -rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index 6ffa03b..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); @@ -82,6 +83,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'}; |