Среди рабочих скриптов валяется файл cleanhumor.pl, состоящий в основном из этой функции: :)
sub CleanHumor
{
$board = Utils::GetObject($dbh, 'board', 18);
my $messages = Utils::GetObjects($dbh, 'messages', "board=$board->{'id'}");
foreach my $m(@$messages)
{
next unless($m->{'parent'});
if($m->{'author'})
{
my $author = Utils::GetObject($dbh, 'usr', $m->{'author'});
if($author->{'id'})
{
print "$author->{'name'}\t$author->{'n_rating'}\t$author->{'n_messages'}\t";
$author->{'n_rating'} -= 1;
print "$author->{'n_rating'}\t$author->{'n_messages'}\n";
Utils::StoreObjectSmart($dbh, 'usr', $author);
}
}
}
}
---
|