# <$Id: MTLJUser.pl,v 1.2 2003/07/31 22:27:02 akosut Exp $>
# by Alexei Kosut
#
# Link to LiveJournal users or communities, just like they do on LJ itself!
#
# <$MTLJUser user="akosut"$>
# <$MTLJUser comm="news"$>

use MT::Template::Context;
use strict;

# Shameless copy of LJ::ljuser

MT::Template::Context->add_tag(LJUser => sub {
    my ($ctx, $args) = @_;
    my $img = $args->{'imgroot'} || 'http://stat.livejournal.com/img';
    my $siteroot = $args->{'siteroot'} || 'http://www.livejournal.com';
    my $andfull = $args->{'full'} ? "&amp;mode=full" : "";

    my $user;

    if ($user = $args->{'comm'}) {
	return "<span class='ljuser' style='white-space:nowrap;'><a href='$siteroot/userinfo.bml?user=$user$andfull'><img src='$img/community.gif' alt='userinfo' width='16' height='16' style='vertical-align:bottom;border:0;' /></a><a href='$siteroot/users/$user/'><b>$user</b></a></span>";
    } elsif ($user = $args->{'user'}) {
	return "<span class='ljuser' style='white-space:nowrap;'><a href='$siteroot/userinfo.bml?user=$user$andfull'><img src='$img/userinfo.gif' alt='userinfo' width='17' height='17' style='vertical-align:bottom;border:0;' /></a><a href='$siteroot/users/$user/'><b>$user</b></a></span>";
    }

    return $ctx->error('MTLJUser requires user or comm attribute');
});