Brother Rabbit написал(а) к Mikhail Stakhanov в Jan 19 00:57:56 по местному времени:

Нi, Mikhail!

20 янв 19 21:36, Mikhail Stakhanov -> Brother Rabbit:

BR>> $text =~ s/\x01INTL[ ]\d+\:\d+\/\d+[ ]\d+\:\d+\/\d+\r//s;
BR>> $text =~ s/\x01TOPT[ ]\d+\r//s;

MS> можешь пояснить что делают эти строки ?

Удаляют кладжи @INTL и @TOPT. Вообще-то, должно работать и без этого, но у меня НPT собрался с перлом таким образом, что без этого портит скопированые мессаги. Выкусывает из них куски в произволиных местах. Обычно в начале и в конце.

BR>> $k = 0;

BR>> while( defined $readdress{$k} ){
BR>> if ( $fromaddr ne $readdress{$k} ) {
BR>> putMsgInArea( "NetMail", $fromname, $toname,
BR>> $fromaddr,
BR>> $readdress{$k}, $subject, $date, $attr,
BR>> "\001Rem: copy to $readdress{$k}\r$text", 2 );
BR>> $change = 1;

MS> что такое $change=1; ?

Говорит НPT, что текст письма изменился и нужно его обновить перед записью в базу.

MS> Спасибо заранее,

Не за что.

MS> просто чтобы не как попка дурак скопировать а понять как это
MS> работает?

Спрашивай, ежели чего.

MS> насколько я понял берутся все адреса и конфига и пересылаются на 3
MS> верхних адреса, так ?

Да. Все, что пришло на любой из АКА из конфига пересылается на перечисленные адреса, кроме того, с которого пришло, если он из списка (сам себе писал).

PS: У меня еще там разююкивалка из всех эх есть. Нада?

Нave nice nights.
Brother Rabbit.

--- Когда я ем - я глух и нем. Когда я пью - я гораздо коммуникабельней.