36 lines
1.1 KiB
Perl
36 lines
1.1 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
package LJ::Syn;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
sub get_popular_feeds
|
||
|
|
{
|
||
|
|
my $popsyn = LJ::MemCache::get("popsyn");
|
||
|
|
unless ($popsyn) {
|
||
|
|
$popsyn = [];
|
||
|
|
|
||
|
|
my $dbr = LJ::get_db_reader();
|
||
|
|
my $sth = $dbr->prepare("SELECT userid, synurl, numreaders FROM syndicated ".
|
||
|
|
"WHERE numreaders > 0 ".
|
||
|
|
"AND lastnew > DATE_SUB(NOW(), INTERVAL 14 DAY) ".
|
||
|
|
"ORDER BY numreaders DESC LIMIT 1000");
|
||
|
|
$sth->execute();
|
||
|
|
while (my @row = $sth->fetchrow_array) {
|
||
|
|
push @$popsyn, [ @row ];
|
||
|
|
}
|
||
|
|
|
||
|
|
# load u objects so we can get usernames
|
||
|
|
my %users;
|
||
|
|
LJ::load_userids_multiple([ map { $_, \$users{$_} } map { $_->[0] } @$popsyn ]);
|
||
|
|
unshift @$_, $users{$_->[0]}->{'user'}, $users{$_->[0]}->{'name'} foreach @$popsyn;
|
||
|
|
# format is: [ user, name, userid, synurl, numreaders ]
|
||
|
|
# set in memcache
|
||
|
|
my $expire = time() + 3600; # 1 hour
|
||
|
|
LJ::MemCache::set("popsyn", $popsyn, $expire);
|
||
|
|
}
|
||
|
|
return $popsyn;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|