diff options
| author | Michael Kröll <pepl@cpan.org> | 2008-12-02 00:01:29 +0100 |
|---|---|---|
| committer | Michael Kröll <pepl@cpan.org> | 2008-12-02 00:01:29 +0100 |
| commit | f2ec2ba11b65fc188402c306d510c09818676b75 (patch) | |
| tree | cd9d1d90c00989eb1d000a6cc006475c12c11ac8 /lib/PAUSE | |
| parent | Check for valid return_to url (diff) | |
| parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
| download | Simple-OpenID-f2ec2ba11b65fc188402c306d510c09818676b75.tar.gz Simple-OpenID-f2ec2ba11b65fc188402c306d510c09818676b75.tar.bz2 Simple-OpenID-f2ec2ba11b65fc188402c306d510c09818676b75.zip | |
Diffstat (limited to 'lib/PAUSE')
| -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. |