18 lines
395 B
Plaintext
Executable File
18 lines
395 B
Plaintext
Executable File
<?_code
|
|
{
|
|
my $ret;
|
|
my $db = LJ::get_db_reader();
|
|
|
|
my $popsyn = LJ::Syn::get_popular_feeds();
|
|
|
|
foreach (@$popsyn) {
|
|
my ($user, $name, $userid, $url, $count) = @$_;
|
|
$name =~ s/[\t\n]//g; $url =~ s/[\t\n]//g;
|
|
$ret .= join("\t", $user, $name, $url, $count) . "\n";
|
|
}
|
|
|
|
BML::set_content_type("text/plain; charset=utf-8");
|
|
return $ret;
|
|
}
|
|
_code?>
|