\n"; $ret .= <<"EOT"; EOT $ret .= "\n"; my $rimg = LJ::MemCache::get("blob:ljcom_latestimg"); unless (ref $rimg eq "ARRAY" && @$rimg) { $ret .= "\n"; $ret .= "\n"; return $ret; } $ret .= "\n"; foreach my $ri (reverse @$rimg) { my ($img, $ju, $jitemid, $anum) = @$ri; $img = LJ::exml($img); my $url = LJ::item_link($ju, $jitemid, $anum); $ret .= "\n"; } $ret .= "\n"; $ret .= "\n"; return $ret; } _code?>