<?_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?>
