mail - Большая рассылка - проблема

Bolnikh Ivan 17.01.2003 11:51

Всем привет!

Есть скрипт
------------------

@main[]
Рассылка
^makeDelivery[]


@makeDelivery[]
^MAIN:dbconnect{$emails[^table::sql{select email from dajdjestEmail}]}
$ftxt[^file::load[binary;/message.txt]]
$fhtm[^file::load[binary;/message.htm]]



^emails.menu{
^mail:send[
$.from[robot@dig.ru]
$.x-mailer[Parser 3.0.0004]
$.to[$emails.email]
$.subject[Еженедельная рассылка]
$.text[$ftxt.text]
$.html{^taint[as-is][$fhtm.text]}
$.charset[windows-1251]
]
<br>$emails.email - send
}
------------------

Когда адресов 3 штуки - все нормально, когда 3000 - падает с криком, что объелся памяти. Что можно сделать? Или направить свои стопы в сторону перла?

Иван

---