lib/PAUSE/OpenID/Controller/OpenID.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

package PAUSE::OpenID::Controller::OpenID; 
 
use strict;
use warnings;
use parent 'Catalyst::Controller';
use Net::OpenID::Server;
 
 
# taken straight from Net::OpenID::Server 
# http://search.cpan.org/src/MART/Net-OpenID-Server-1.02/doc/catalyst_sample 
sub index : Local {
    my ( $self, $c ) = @_;
 
    my $server = Net::OpenID::Server->new(
        post_args    => $c->req->params,
        get_args     => $c->req->params,
        endpoint_url => $c->uri_for('/server'),
        setup_url    => $c->uri_for('/login'),
        get_user     => sub {
            return $c->user_exists ? $c->user : undef;
        },
        get_identity => sub {
            my ( $u, $identity ) = @_;
            return $identity unless $u;
            return $c->uri_for( sprintf( '/user/%s', $u->username ) );
        },
        is_identity => sub {
            my ( $u, $identity ) = @_;
            return $u && $u->username eq ( split '/', $identity )[-1];
        },
        is_trusted => sub {
            my ( $u, $trust_root, $is_identity ) = @_;
            return $is_identity;
        }
    );
 
    my ( $type, $data ) = $server->handle_page();
 
    if ( $type eq 'redirect' ) {
        return $c->res->redirect($data);
    }
    elsif ( $type eq 'setup' ) {
        my $uri = $c->uri_for( '/login', $data );
        return $c->res->redirect($uri);
    }
    else {
        $c->res->content_type($type);
        $c->res->body($data);
    }
 
}
 
1;