body<=
" unless $remote;
my $u;
if ($GET{user}) {
$u = LJ::load_user($GET{user});
return BML::ml('.error.invaliduser', { user => LJ::ehtml($GET{user}) })
unless $u;
return BML::ml('.error.badstatus', { user => LJ::ljuser($u->{user}) })
if $u->{statusvis} ne 'V';
}
my $body;
my $lastmon = 0;
$body .= ' LJ::ljuser($u) });
} else {
$body .= $ML{'.description'};
}
$body .= ' p?>';
$body .= "";
$body .= "";
my @bdays;
if (defined $u) {
@bdays = $u->get_friends_birthdays(full => 1);
} else {
@bdays = $remote->get_friends_birthdays(full => 1);
}
foreach my $bday (@bdays) {
LJ::text_out(\$bday->[2]);
if ($bday->[0] != $lastmon) {
if ($lastmon) { $body .= "\n"; }
$lastmon = $bday->[0];
$body .= "\n";
}
my $day = sprintf("%2s", $bday->[1]);
$day =~ s/ / /;
my $friendu = LJ::load_user($bday->[2]);
my $name = LJ::ehtml($friendu->{'name'});
$body .= "$day: " . LJ::ljuser($friendu) . " - $name
\n";
}
if (@bdays) {
$body .= "
\n";
} else {
$body .= "";
}
return $body;
}
_code?>
<=body
page?>
link: htdocs/login.bml
_c?>