ivank
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору durachka Не... ребят учите перл -- я его не знаю (ни одной книги нет), а что-то на нём пишу (слава богу в плюсах варю немного). Берёшь этот куксок: Код: foreach $dataline (@maildata) { ($postersname,$posteremailaddress) = split(/\|/,$dataline); if ($postersname ne $inmembername) { &getmember("$postersname"); $toemail = $emailaddress; chomp $toemail; $toemail =~ s/\\//g; $fromemail = "$adminemail_out"; chomp $fromemail; $fromemail =~ s/\\//g; $to = "$toemail"; $from = "$boardname <$fromemail>"; $subject = "[$forumname] Уведомление о создании темы"; &sendmail($from, $from, $to, $SMTP_SERVER, $subject, $message ); } } | И переделываешь вот так: Код: $filetoopen = $ikondir."forum$inforum/$newthreadnumber.mal"; open( FILE, ">$filetoopen" ); foreach $dataline (@maildata) { print FILE, $dataline."\n"; ($postersname,$posteremailaddress) = split(/\|/,$dataline); if ($postersname ne $inmembername) { &getmember("$postersname"); $toemail = $emailaddress; chomp $toemail; $toemail =~ s/\\//g; $fromemail = "$adminemail_out"; chomp $fromemail; $fromemail =~ s/\\//g; $to = "$toemail"; $from = "$boardname <$fromemail>"; $subject = "[$forumname] Уведомление о создании темы"; &sendmail($from, $from, $to, $SMTP_SERVER, $subject, $message ); } } close( FILE ) | Писал из гловы, но надеюсь идея понятна?
|