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
|
# 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::Yahoo;
use strict;
use base qw( MT::Auth::OpenID );
sub get_nickname {
my $class = shift;
my ($vident) = @_;
my $url = $vident->url;
if ( $url =~ m(^https?://me.yahoo.com/([^/]+)/?$) ) {
return $1;
}
elsif ( $url =~ m(^http://www.flickr.com/photos/(.+)$) ) {
return $1;
}
return $class->SUPER::get_nickname(@_);
}
1;
|
