root/trunk/mixiComment/plugins/mixiComment/lib/mixiComment/Auth/mixi.pm @ 1480

Revision 1480, 1.8 kB (checked in by auno, 9 months ago)

Merged changes from internal. #99460

Line 
1package mixiComment::Auth::mixi;
2
3use strict;
4use base qw( MT::Auth::OpenID );
5
6sub check_url_params {
7    my $class = shift;
8    my ( $app, $blog ) = @_;
9    my $q = $app->{query};
10
11    if ( $q->param('verify_blog_owner') ) {
12        my $path = MT->config->AdminCGIPath || MT->config->CGIPath;
13        $path = _adjust_path( $path, $blog );
14        $path .= MT->config->AdminScript;
15        my $return_to = $path . '?__mode=mixicomment_verify_blog_owner'
16            . '&blog_id='  . $blog->id;
17        return ( trust_root => $path, return_to => $return_to, delayed_return => 1 );
18    }
19    else {
20        my %params = $class->SUPER::check_url_params(@_);
21        $params{delayed_return} = 1;
22        return %params;
23    }
24}
25
26sub _adjust_path {
27    my ( $path, $blog ) = @_;
28    if ($path =~ m!^/!) {
29        # relative path, prepend blog domain
30        my ($blog_domain) = $blog->archive_url =~ m|(.+://[^/]+)|;
31        $path = $blog_domain . $path;
32    }
33    $path .= '/' unless $path =~ m|/$|;
34    $path;
35}
36
37sub set_extension_args {
38    my $class = shift;
39    my ( $claimed_identity ) = @_;
40
41    $claimed_identity->set_extension_args(MT::Auth::OpenID::NS_OPENID_SREG(), {
42        optional => join(",", qw/email nickname fullname/)
43    });
44}
45
46sub get_nickname {
47    my $class = shift;
48    my ($vident) = @_;
49
50    # Try SREG extension first
51    my $fields = $vident->extension_fields(MT::Auth::OpenID::NS_OPENID_SREG());
52    my $nick = $fields->{nickname} if exists $fields->{nickname};
53    $nick ||= $fields->{fullname} if exists $fields->{fullname};
54    if ( $nick ) {
55        if ( MT->config->PublishCharset !~ /utf-?8/i ) {
56            $nick = MT::I18N::encode_text( MT::Util::decode_url($nick), 'UTF-8', MT->config->PublishCharset );
57        }
58        return $nick;
59    }
60    $class->SUPER::get_nickname(@_);
61}
62
631;
64__END__
Note: See TracBrowser for help on using the browser.