echo "Page {$page} of {$pages}; current mem use {$start_mem}...";
$cmt_rows = Comment::get_all_comments(0, $per_page, $page);
echo " after comments loaded, mem usage is " . memory_get_usage() . "\n";
$del_ct = 0;
foreach ($cmt_rows as $cmt_row) {
$cmt = new Comment();
$cmt->load_from_row($cmt_row);
$del_ct += $cmt->index_spam_domains(TRUE);
$cmt->index_words();
}
echo "{$del_ct} comments deleted due to blacklisting or excessive linking\n";
unset($cmt_rows);
unset($cmt_row);
$end_mem = memory_get_usage();
// echo "end of page - mem used $end_mem (delta ".($end_mem - $start_mem).").\n";
echo "Counting up totals\n";
SpamDomain::recalculate_total_link_counts();
}
echo "Analyzed {$total} comments\n";
echo "Worst domains:\n";
$sth = Dal::query("SELECT id,domain,count,active_count FROM spam_domains ORDER BY count DESC LIMIT 25");
while ($r = Dal::row($sth)) {
list($domain_id, $domain, $count, $active_count) = $r;
echo "{$count}: {$domain} (id={$domain_id}); {$active_count} not deleted\n";
}
echo "Worst domains with still-active comments:\n";
$sth = Dal::query("SELECT id,domain,count,active_count FROM spam_domains WHERE active_count <> 0 ORDER BY count DESC LIMIT 25");
while ($r = Dal::row($sth)) {
list($domain_id, $domain, $count, $active_count) = $r;
echo "{$count}: {$domain} (id={$domain_id}); {$active_count} not deleted\n";
}
