в общем приобрел его, а он не робыть((
в коде есть момент
sub main
{
my($task, $single, $config) = @_;
my $db = Db->sql(
"SELECT COUNT(*) AS n, YEAR(FROM_UNIXTIME(time)) AS y, MONTH(FROM_UNIXTIME(time)) AS m, mid ".
"FROM pays WHERE category=100 AND NOT EXISTS (SELECT 1 FROM users_services WHERE pays.id=pay_id) AND mid=371 ".
"GROUP BY y, m, mid HAVING n>1"
при вставке этого запроса в мускул:
mysql> SELECT COUNT(*) AS n, YEAR(FROM_UNIXTIME(time)) AS y, MONTH(FROM_UNIXTIME(time)) AS m, mid
-> FROM pays WHERE category=100 AND NOT EXISTS (SELECT 1 FROM users_services WHERE pays.id=pay_id) AND mid=371
-> GROUP BY y, m, mid HAVING n>1;
Empty set (0.00 sec)
зачем там захардкорено mid=371? без него уж очень долго запрос обрабатывается (после двух минут - прервал).
чего делать что б заработало?
perl install.pl -x делал
perl install -w=www делал
ядро перезапускал
даже сервак перегружал.