| 1 | package mixiComment::Auth::mixi; |
|---|
| 2 | |
|---|
| 3 | use strict; |
|---|
| 4 | use base qw( MT::Auth::OpenID ); |
|---|
| 5 | |
|---|
| 6 | sub 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 | |
|---|
| 26 | sub _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 | |
|---|
| 37 | sub 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 | |
|---|
| 46 | sub 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 | |
|---|
| 63 | 1; |
|---|
| 64 | __END__ |
|---|