quote($url);
my $eurl = LJ::ehtml($url);
my $uurl = LJ::eurl($url);
$body .= "$eurlp?>";
$body .= "";
$body .= "| User | Post Link |
\n";
$sth = $dbr->prepare("SELECT u.user, m.itemid FROM meme m LEFT JOIN useridmap u ON m.journalid=u.userid WHERE m.url=$qurl LIMIT $qskip,500");
$sth->execute;
my $count = 0;
while (my ($journal, $itemid) = $sth->fetchrow_array)
{
$body .= "| ";
$body .= "" if $journal;
$body .= " | ";
my $jarg = $journal ? "journal=$journal&" : "";
$body .= "post | ";
$body .= "
";
$count++;
}
$body .= "
";
my @pagers;
if ($skip > 0) {
my $newskip = $skip - 500;
push @pagers, "<< Previous 500";
}
if ($count == 500) {
my $newskip = 500;
if ($skip) { $newskip = $skip + 500; }
push @pagers, "Next 500 >>";
}
if (@pagers) {
$body .= "[ " . join(" | ", @pagers) . " ]
";
}
$body .= "<< Back to Meme Listing";
return;
}
$body .= "\n";
$body .= "";
$sth = $dbr->prepare("SELECT statkey, statval FROM stats WHERE statcat='popmeme' ORDER BY 2 DESC LIMIT 100");
$sth->execute;
$body .= "\n";
$body .= "| Count | URL |
\n";
while (my ($url, $ct) = $sth->fetchrow_array)
{
my $eurl = LJ::ehtml($url);
my $uurl = LJ::eurl($url);
$body .= "| $ct links | ";
$body .= "$eurl |
\n";
}
$body .= "
";
$body .= "";
$body .= "";
$sth->finish;
return;
_code?>
body=>
page?>
link: htdocs/talkread.bml, htdocs/meme.bml
lib: cgi-bin/cleanhtml.pl
_c?>