Unnamed

AOL MODULE

package MT::Auth::Aim;
use strict;

use base qw( MT::Auth::OpenID );

sub url_for_userid {
        my $class = shift;
        my ($uid) = @_;
        return "http://openid.aol.com/$uid";
};

sub _get_nickname {
        my ($vident, $blog_id) = @_;
        my $url = $vident->url;
        if ( $url =~ m#^http://openid\.aol\.com\/([^/]+)#
        ) {
                return $1;
        }
        *MT::Auth::OpenID::_get_nickname->(@_);
}

1;
================================================================

LJ Module

package MT::Auth::LiveJournal;
use strict;

use base qw( MT::Auth::OpenID );

sub url_for_userid {
    my $class = shift;
    my ($uid) = @_;
    return "http://www.livejournal.com/users/$uid";
};

sub _get_nickname {
    my ($vident, $blog_id) = @_;
    ## LJ username
    my $url = $vident->url;
    if( $url =~ m(^https?://www\.livejournal\.com\/users/([^/]+)/$) ||
        $url =~ m(^https?://www\.livejournal\.com\/~([^/]+)/$) ||
        $url =~ m(^https?://([^\.]+)\.livejournal\.com\/$)
    ) {
        return $1;
    }
    *MT::Auth::OpenID::_get_nickname->(@_);
}

1;