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
|
# Movable Type (r) Open Source (C) 2001-2012 Six Apart, Ltd.
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id$
package MT::Auth::WordPress;
use strict;
use base qw( MT::Auth::OpenID );
sub url_for_userid {
my $class = shift;
my ($uid) = @_;
return "http://$uid.wordpress.com/";
}
sub get_nickname {
my $class = shift;
my ($vident) = @_;
my $url = $vident->url;
if ( $url =~ m(^https?://([^\.]+)\.wordpress\.com\/$) ) {
return $1;
}
return $class->SUPER::get_nickname(@_);
}
1;
|
