'digits',
g => 'digits',
mode => 'word');
my $giftid = $GET{'g'};
$title = "Virtual Gift";
my $err = sub {
$body = "";
$body .= $_[0];
return;
};
use LJ::VGift;
my $u = LJ::load_userid($GET{'uid'})
or return $err->("Invalid userid");
my $gift = LJ::VGift->instance($u, $giftid)
or return $err->("Invalid giftid");
my $remote = LJ::get_remote();
my $is_owner = LJ::can_manage($remote, $u);
if ($POST{'mode'} eq "kill" && $is_owner) {
$gift->expire_now;
return BML::redirect($u->profile_url);
}
if ($POST{'mode'} eq "delete" && $is_owner) {
$gift->delete;
return BML::redirect("$LJ::SITEROOT/manage/vgift.bml?u=$u->{user}");
}
my ($url, $w, $h) = $gift->img_src_large;
my $rhs = "To: " . $u->ljuser_display . "
";
if ($gift->anonymous) {
$rhs .= "From: Anonymous
";
} elsif (my $fu = $gift->from) {
$rhs .= "From: " . $fu->ljuser_display . "
";
}
$rhs .= "Date: " . scalar(gmtime($gift->daterecv_unix)) . "
";
if (my $note = $gift->note_html) {
$rhs .= "$note
";
}
my $tagline = $gift->tagline($remote);
if ($tagline) {
$rhs .= "$tagline
";
}
my $killit = "";
if ($is_owner) {
my $ejs = LJ::ehtml("return confirm('Delete this gift permanently?');");
$killit .= "";
}
if ($is_owner && ! $gift->is_expired) {
my $ejs = LJ::ehtml("return confirm('Remove this gift from your profile page?');");
$killit .= "";
}
my $tracking = $gift->tracking($remote) || "";
$body = <
 $tracking |
$rhs
|
$killit
Buy a virtual gift for a friend.
END
return;
}
_code?>
body=>
page?>