";
{
my $hook_extra;
LJ::run_hooks("userinfo_html_by_user", {
'u' => $u,
'ret' => \$hook_extra,
});
if ($u->{journaltype} eq "I") {
if ($u->{user} =~ /^imp\_/o) {
$body .= "| Imported: | " . LJ::ljuser($u) . " | ";
}
else {
$body .= "
| OpenID: | " . LJ::ljuser($u) . " | ";
}
} else {
$body .= "
| $ML{'.label.user'} | $user ($u->{'userid'}) $hook_extra ";
if ($u->{public_key}) {
$body .= "";
$body .= " ";
}
$body .= " | \n";
}
}
### picture
my $narrow_left = 2; ## rows with smaller colspan to 2
$body .= "";
if ($u->{'defaultpicid'}) {
my $picid = $u->{'defaultpicid'};
my %pic;
LJ::load_userpics(\%pic, [ $u, $picid ]);
$body .= " ";
} else {
$body .= " ";
}
$body .= " | ";
### /picture
$body .= "
\n";
## journal title
if ($u->{'journaltitle'}) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= " | ";
$body .= "" . LJ::ehtml($u->{'journaltitle'}) . "";
if ($u->{'journalsubtitle'}) {
$body .= "
" . LJ::ehtml($u->{'journalsubtitle'}) . "";
}
$body .= " |
\n";
}
### name or 'syndicated from'
unless ($synd) {
unless ($u->underage || $u->{'name'} eq $u->{'journaltitle'}) {
$narrow_left--;
$body .= "| $ML{'.label.name'} | $u->{'name'} |
\n";
}
} else {
$narrow_left--;
my $link;
if (my $url = $u->{'url'}) {
$link="$u->{'name'}";
} else {
$link=$u->{'name'};
}
my $icon="".
"
";
$body .= "| $ML{'.label.syndicatedfrom'} | \n".
"$link $icon |
\n";
# syndication status
$body .= "| $ML{'.label.syndicatedstatus'} | \n";
$body .= "$ML{'.syn.lastcheck'} ";
$body .= $synd->{'lastcheck'} || $ML{'.syn.last.never'};
my $status = {
'parseerror' => "Parse error",
'notmodified' => "Not Modified",
'toobig' => "Too big",
'posterror' => "Posting error",
'ok' => "", # no status line necessary
'nonew' => "", # no status line necessary
'httperror' => "HTTP error",
}->{$synd->{'laststatus'}};
$body .= " ($status)" if $status;
if ($synd->{'laststatus'} eq "parseerror" || $synd->{'laststatus'} eq "httperror") {
$body .= "
$ML{'.syn.parseerror'} " . LJ::ehtml($u->{'rssparseerror'});
}
$body .= "
$ML{'.syn.nextcheck'} $synd->{'checknext'}";
$body .= " |
\n";
}
## text message
if ($u->{'txtmsg_status'} eq "on" && LJ::get_cap($u, "textmessaging")) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $ML{'.label.textmessage'} | " . BML::ml('.sendmessage.body',{'user'=>$u->{'user'}, 'link'=>"/tools/textmessage.bml?user=$u->{'user'}"}) . " |
";
}
if ( ! $synd && $u->{'url'}) {
my $url = LJ::ehtml($u->{'url'});
my $span = ($narrow_left-- >= 0) ? 1 : 2;
unless ($url =~ /^https?:\/\//) {
$url =~ s/^http\W*//;
$url = "http://$url";
}
my $urlname = LJ::ehtml($u->{'urlname'} || $url);
$url = "$urlname";
$body .= "| $ML{'.label.website'} | $url |
\n" if ($u->{'url'});
}
if ( ! $synd && ($u->{'allow_infoshow'} eq "Y" || $viewall)) {
if ($u->{'city'} || $u->{'state'} || $u->{'country'}) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $ML{'.label.location'} | ";
my $estate = LJ::eurl($u->{'state'});
my $ecity = LJ::eurl($u->{'city'});
my $ecountry = LJ::eurl($u->{'country'});
my ($state, $city, $country);
if ($u->{'country'}) {
$country = $LJ::DISABLED{'directory'} ? $countries{$u->{'country'}} :
"".
$countries{$u->{'country'}} . "";
}
my $estate;
if ($u->{'state'}) {
$state = $u->{'state'};
if ($u->{'country'} eq "US") { $state = $states{$state}; }
$estate = LJ::eurl($state);
$state = $LJ::DISABLED{'directory'} || ! $u->{'country'} ? $state :
"$state";
}
if ($u->{'city'}) {
my $ecity = LJ::eurl($u->{'city'});
$city = LJ::ehtml($u->{'city'});
if (! $LJ::DISABLED{'directory'} && $u->{'country'}) {
$city = "$city";
}
}
$body .= join(", ", grep { $_ } ($city, $state, $country));
$body .= " |
";
}
if ($u->{'bdate'} && !$com && $u->{'bdate'} ne "0000-00-00" && !$u->underage) {
my $bdate = $u->{'bdate'};
$bdate =~ s/^0000-//;
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $ML{'.label.birthdate'} | $bdate |
\n";
}
}
if ( ! $synd && ! $u->underage && ($u->{'allow_contactshow'} eq "Y" ||
($u->{'allow_contactshow'} eq "F" && $remote_isfriend) || $viewall))
{
my $mangleaddress = sub {
my $email = shift;
my $mret = "| ";
for (my $i = 0; $i < length($email); $i++) {
my $letter = substr($email, $i, 1);
if ($letter eq "\@") { $letter = " | \@ | "; }
$mret .= $letter;
}
$mret .= " |
";
return $mret;
};
# some classes of users we want to have their contact info hidden
# after so much time of activity, to prevent people from bugging
# them for their account or trying to brute force it.
my $hide_contactinfo = sub {
my $hide_after = LJ::get_cap($u, "hide_email_after");
return 0 unless $hide_after;
my $memkey = [$u->{userid}, "timeactive:$u->{userid}"];
my $active;
unless (defined($active = LJ::MemCache::get($memkey))) {
$active = $dbcr->selectrow_array("SELECT timeactive FROM clustertrack2 ".
"WHERE userid=?", undef, $u->{userid});
LJ::MemCache::set($memkey, $active, 86400);
}
return $active && (time() - $active) > $hide_after * 86400;
};
my $useremail_cap = LJ::get_cap($u, 'useremail');
unless ($u->{'opt_whatemailshow'} eq "N" ||
$u->{'journaltype'} eq "I" ||
$u->{'opt_whatemailshow'} eq "L" && ($u->{'no_mail_alias'} || ! $useremail_cap || ! $LJ::USER_EMAIL) ||
$hide_contactinfo->()) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $ML{'.label.email'} | ";
my @emails = ($u->{'email'});
if ($u->{'opt_whatemailshow'} eq "L") {
@emails = ();
}
if ($LJ::USER_EMAIL && $useremail_cap) {
unless ($u->{'opt_whatemailshow'} eq "A" || $u->{'no_mail_alias'}) {
push @emails, "$u->{'user'}\@$LJ::USER_DOMAIN";
}
}
foreach my $email (@emails) {
$body .= ($u->{'opt_mangleemail'} eq "Y" || $email =~ /\@lj\.rossial\.org$/)
? $mangleaddress->($email)
: "$email
";
}
$body .= " |
";
}
foreach my $k (qw(aolim icq yahoo msn jabber)) {
$u->{$k} = LJ::ehtml($u->{$k});
}
if ($u->{'aolim'}) {
my $qim = $u->{'aolim'};
$qim =~ s/ //g;
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $ML{'.label.aolim'} |  $u->{'aolim'} ($ML{'.label.addbuddy'}, $ML{'.label.sendmessage'}) |
\n";
}
if ($u->{'icq'}) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $ML{'.label.icquin'} | ";
$body .= " ";
$body .= "$u->{'icq'} (";
$body .= "$ML{'.label.userprofile'})";
$body .= " |
\n";
}
if ($u->{'yahoo'}) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $ML{'.label.yahooid'} |  $u->{'yahoo'} ($ML{'.label.adduser'}, $ML{'.label.sendmessage'}) |
\n";
}
if ($u->{'msn'}) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
my $msnname = ($u->{'opt_mangleemail'} eq "Y") ? $mangleaddress->($u->{'msn'}) : $u->{'msn'};
$body .= "| $ML{'.label.msnusername'} | $msnname |
\n";
}
if ($u->{'jabber'}) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
my $jabber = $mangleaddress->($u->{'jabber'});
$body .= "| $ML{'.label.jabber'} | $jabber |
\n";
}
}
if ($u->{'has_bio'} eq "Y") {
my $span = ($narrow_left-- > 0) ? 1 : 2;
my $label = $com ? $ML{'.about.comm'} : $ML{'.about.user'};
LJ::CleanHTML::clean_userbio(\$u->{'bio'});
$body .= "| $label | $u->{'bio'} |
\n";
}
### memories
{
my $memcount = LJ::Memories::count($userid);
if ($memcount) {
my $span = ($narrow_left-- > 0) ? 1 : 2;
my $noun_name = $memcount == 1 ? '.memories.entry' : '.memories.entries';
my $count = BML::ml($noun_name, {'count'=>$memcount});
$body .= "| $ML{'.label.memories'} | $count |
\n";
}
}
### Fotobilder gallery count
{
if (LJ::get_cap($u, 'fb_account') && LJ::get_cap($u, 'fb_can_upload') && $u->{'fb_num_pubpics'}+0 > 0) {
my $span = ($narrow_left-- >= 0) ? 1 : 2;
# what we display is an estimate. to eliminate confusion on the user end, we'll display the
# estimate in a way that makes it clear it's not an exact number. rules are:
#
# * < 10 == "under 10"
# * 10..999 == "at least 150" (rounded down to nearest 10)
# * 1000+ == "at least 1500" (rounded down to nearest 100)
#
my $ct = $u->{fb_num_pubpics};
my $ct_str;
if ($ct < 10) {
$ct_str = BML::ml('.fbpictures.lessthan', { count => 10 });
} else {
my $order = $ct < 100 ? 10 : 100;
my $base = POSIX::floor($ct / $order);
$ct_str = BML::ml('.fbpictures.over', { count => $base * $order });
}
$body .= "| $ML{'.label.fbpictures'} | $ct_str |
\n";
}
}
if (@$intu) {
my $span = ($narrow_left-- > 0) ? 1 : 2;
$body .= "| $ML{'.label.interests'}: | ";
my $intcount = 0;
my $intlist = "";
foreach my $int (@$intu) {
next if $intcount++ > 150;
LJ::text_out(\$int->[1]); # 1==interest
my $eint = LJ::eurl($int->[1]);
if ($int->[2] > 1) { # 2==intcount
if ($remote_interest{$int->[0]}) { # 0==intid
$intlist .= "$int->[1], ";
} else {
$intlist .= "$int->[1], ";
}
} else {
$intlist .= "$int->[1], ";
}
}
chop $intlist; chop $intlist; # remove trailing ", "
if ($intcount > 150) {
my $notshown = $intcount - 150;
$intlist .= BML::ml('.label.intsnotshown',{'intnotshown'=>$notshown});
}
$body .= "$intcount: " . $intlist;
if ($remote) {
my $link = "/interests.bml?mode=enmasse";
$link .= "&fromuser=$user" unless ($remote->{'userid'} == $userid);
$body .= ". ";
my $mlcode = ($remote->{'userid'} == $userid) ? '.label.interests.removesome'
: '.label.interests.modifyyours';
$body .= BML::ml('Actionlink', { 'link' => "$ML{$mlcode}" });
$body .= "";
}
$body .= " |
";
}
##
## friends
##
unless ($synd || $LJ::FORCE_EMPTY_FRIENDS{$userid}) {
my $label = $com ? $ML{'.friends.comm'} : $ML{'.friends.user'};
my $span = ($narrow_left-- >= 0) ? 1 : 2;
$body .= "| $label: | ";
unless ($fif) {$friends{'display'} = 0 if $friends{'count'} > $MAX_FRIENDS_SHOW;}
if ($friends{'count'}) {
if (!$friends{'loaded'} || !$friends{'display'}) {
$body .= "" . $friends{'count'} . ": ";
$body .= " " . ($com ? $ML{'.label.viewmembers'} : $ML{'.label.viewfriends'}) . " .";
} elsif ($u->{'journaltype'} eq 'P' or $u->{'journaltype'} eq 'S') {
# personal/shared journals have a special way of showing their friends list, it breaks it down into
# three sublists: personal/shared, community/news, syndication
my (@pfriends, @cfriends, @yfriends);
my $friend_link = sub {
my $f = shift;
my $status = $f->{'statusvis'};
my $frlink = "$f->{'user'}";
$frlink = "$frlink" if $status =~ /[DXS]/;
$frlink = "$frlink" if $remote_friendid{$f->{'userid'}} && $remote->{'userid'} != $u->{'userid'};
return $frlink;
};
foreach my $f (@friends) {
push @pfriends, $friend_link->($f) if $f->{'journaltype'} eq 'P' or $f->{'journaltype'} eq 'S';
push @cfriends, $friend_link->($f) if $f->{'journaltype'} eq 'C' or $f->{'journaltype'} eq 'N';
push @yfriends, $friend_link->($f) if $f->{'journaltype'} eq 'Y';
}
my ($pcount, $ccount, $ycount) = (scalar @pfriends, scalar @cfriends, scalar @yfriends);
my $pfriends = join ', ', @pfriends;
my $yfriends = join ', ', @yfriends;
my $cfriends = join ', ', @cfriends;
# now spit out the HTML
$body .= "";
if ($pfriends) {
my $text = LJ::ehtml($ML{'.label.frpeople'});
$body .= "" .
" | " .
"$pcount: | ".
"$pfriends | ";
}
if ($cfriends) {
my $text = LJ::ehtml($ML{'.label.frcommunity'});
$body .= " " .
" | " .
"$ccount: | " .
"$cfriends | ";
}
if ($yfriends) {
my $text = LJ::ehtml($ML{'.label.frsyndication2'});
$body .= " " .
" | " .
"$ycount: | " .
"$yfriends | ";
}
$body .= " ";
} else {
$body .= "" . $friends{'count'} . ": ";
foreach my $f (@friends) {
my $status = $f->{'statusvis'};
my $frlink = "$f->{'user'}";
$frlink = "$frlink" if $status =~ /[DXS]/;
$frlink = "$frlink" if $remote_friendid{$f->{'userid'}} && $remote->{'userid'} != $u->{'userid'};
$body .= $frlink;
$body .= ", ";
}
chop $body; chop $body;
}
} else {
$body .= $ML{'.label.nofriends'};
}
$body .= " |
\n";
}
# friend of and mutual friends display
# there are two options that will affect what gets shown below: opt_hidefriendofs, opt_showmutualfriends
# if the option to show mutual friends is on, then what was known as the friend of list is broken down
# into two lists: mutual friends (people you list and who also list you back) and 'also friend of', which
# lists the people you don't also list as friends. you can hide your friend of list, and leave just
# your mutual friends list showing, or you can not split them and have both be hidden.
# unless ($synd) {
if ($friendsof{'loaded'}) {
my $label;
if ($u->{'opt_showmutualfriends'} && @mutual) {
$label = $ML{'.label.mutual'};
$body .= "| $label";
$body .= " | ";
my $plus = $friendsof{'load_clipped'} ? "+" : "";
$body .= "" . $friendsof{'count_b'} . "$plus: ";
my $count = 0;
my $bold_mutual = ! LJ::u_equals($remote, $u);
foreach (@mutual) {
my $frlink = "{'user'}\">$_->{'user'}";
$frlink = "$frlink" if $bold_mutual && $remote_friendid{$_->{'userid'}};
$body .= "$frlink, ";
if (++$count == $MAX_FRIENDOF_SHOW && $GET{'mode'} ne "full") {
$friendsof{'clipped'} = 1;
last;
}
}
chop $body; chop $body;
$body .= ", ..."
if $friendsof{'clipped'} || $friendsof{'load_clipped'};
$friendsof{'clipped'} = 0; # reset for @friend_of display
$body .= " |
\n";
}
if ($friendsof{'display'} && @friend_of) {
$label = $com ? $ML{'.friendof.comm'} :
($u->{'opt_showmutualfriends'} ? $ML{'.label.alsofriendof'} : $ML{'.friendof.user'});
$body .= "$label";
if ($u->{'opt_hidefriendofs'}) {
$body .= "
$ML{'.friendof.hidden'}";
}
$body .= " | ";
my $plus = $friendsof{'load_clipped'} ? "+" : "";
$body .= "" . $friendsof{'count'} . "$plus: ";
my $count = 0;
foreach (@friend_of) {
my $frlink;
if ($_->{'journaltype'} eq "P") {
$frlink = "{'user'}\">$_->{'user'}";
} elsif ($_->{'journaltype'} eq "I") {
$frlink = "{'userid'}&t=I\">" . LJ::ehtml($_->{'name'}) . "";
}
$frlink = "$frlink" if $remote_friendid{$_->{'userid'}};
$body .= "$frlink, ";
if (++$count == $MAX_FRIENDOF_SHOW && $GET{'mode'} ne "full") {
$friendsof{'clipped'} = 1;
last;
}
}
chop $body; chop $body;
$body .= ", ..."
if $friendsof{'clipped'} || $friendsof{'load_clipped'};
$body .= " |
\n";
};
if ($friendsof{'display'} && @member_of) {
$label = $ML{'.label.memberof'};
$body .= "| $label: | ";
my $plus = $friendsof{'load_clipped'} ? "+" : "";
$body .= "" . $friendsof{'count_m'} . "$plus: ";
foreach (@member_of) {
my $frlink = "$_->{'user'}";
$frlink = "$frlink" if $remote_friendid{$_->{'userid'}};
$body .= "$frlink, ";
}
chop $body; chop $body;
$body .= " |
\n";
};
}
# } else { # Syndication journals are special
# $body .= "| $ML{'.friendof.syndreadcount'}: | ";
# $body .= "$friendsof{'count'} |
\n";
# }
## extra rows generated by hooks
foreach my $row (LJ::run_hooks("userinfo_rows", {
'dbr' => $dbr,
'u' => $u,
'remote' => $remote,
})) {
next unless $row->[0];
$body .= "| ";
$body .= $row->[0];
$body .=": | ";
$body .= $row->[1];
$body .= " |
\n";
}
unless ($synd || $GET{'mode'} eq "full") { # Synd accts are always full, but their full ends early (see below)
$body .= "
\n";
$body .= "| $ML{'.label.dateupdated'} | ";
if ($u->{'timeupdate'}) {
$body .= "$u->{'timeupdate'}, ";
my $secondsold = $u->{'secondsold'};
my $num;
if ($secondsold > 60*60*24*7) {
$num = int($secondsold / (60*60*24*7));
$body .= $num == 1 ? $ML{'.timeupdate.weekago'}
: BML::ml('.timeupdate.weeksago',{'num'=>$num});
} elsif ($secondsold > 60*60*24) {
$num = int($secondsold / (60*60*24));
$body .= $num == 1 ? $ML{'.timeupdate.dayago'}
: BML::ml('.timeupdate.daysago',{'num'=>$num});
} elsif ($secondsold > 60*60) {
$num = int($secondsold / (60*60));
$body .= $num == 1 ? $ML{'.timeupdate.hourago'}
: BML::ml('.timeupdate.hoursago',{'num'=>$num});
} elsif ($secondsold > 60) {
$num = int($secondsold / (60));
$body .= $num == 1 ? $ML{'.timeupdate.minuteago'}
: BML::ml('.timeupdate.minutesago',{'num'=>$num});
} else {
$num = $secondsold;
$body .= $num == 1 ? $ML{'.timeupdate.secondago'}
: BML::ml('.timeupdate.secondsago',{'num'=>$num});
}
$body .= "";
} else {
$body .= $ML{'.date.never'};
}
$body .= " |
";
if ($synd) { # The rest of the rows are not useful to synd accts
$body .= "\n";
$bml_okay = 0;
return "";
}
unless ($LJ::DISABLED{'userinfo_clientusage'}) {
$body .= "| " . BML::ml('.label.clientsused',{'siteroot'=>$LJ::SITEROOT}) . " | ";
$sth = $dbr->prepare("SELECT DISTINCT c.client FROM clients c, clientusage cu ".
"WHERE cu.userid=$userid AND cu.clientid=c.clientid ORDER BY c.client");
$sth->execute;
my $lastclient = "";
while ($_ = $sth->fetchrow_hashref) {
next unless ($_->{'client'} =~ m!(.+)/(.+)!);
my ($client, $ver) = ($1, $2);
if ($lastclient ne $client)
{
if ($lastclient) { chop $body; chop $body; $body .= "
"; }
else { 1; }
$body .= "" . LJ::ehtml($client) .": ";
$lastclient = $client;
}
$body .= LJ::ehtml($ver) . ", ";
}
if ($lastclient) { chop $body; chop $body; }
$body .= " |
";
}
# count journal entries
{
my $memkey = [$userid, "log2ct:$userid"];
my $count = LJ::MemCache::get($memkey);
unless ($count) {
my $expire = time() + 3600*24*2; # 2 days
$count = $dbcr->selectrow_array("SELECT COUNT(*) FROM log2 WHERE journalid=?",
undef, $userid);
LJ::MemCache::set($memkey, $count, $expire);
}
$body .= "
";
}
$label = $ML{'.label.todo'};
push @linkele, "
" unless $extid;
$label = $ML{'.label.memories'};
push @linkele, "
" unless $extid;
unless ($LJ::DISABLED{'tellafriend'} || $extid) {
push @linkele, "
";
}
unless ($LJ::DISABLED{'feedster_search'} || $extid || $u->{'opt_blockrobots'}) {
push @linkele, "
";
}
if (@linkele) {
$body .= BML::fill_template("standout", {
DATA => join(" ", @linkele),
});
}
}
$body .= "