= Сообщение: 3659 из 5321 ========================================= RU.HUSKY = От : Mikhail Stakhanov 2:5020/932.1 15 Mar 19 17:00:44 Кому : All 15 Mar 19 17:00:44 Тема : filer.pl FGHI : area://RU.HUSKY?msgid=2:5020/932.1+5c8bb0d7 = Кодировка сообщения определена как: CP866 ================================== Ответ: area://RU.HUSKY?msgid=2:460/5858+5c8e03f6 ============================================================================== Здравствуйте, All! и всетаки: $priznak = 0; for my $test1 (@robots) { if ($test1 eq $toname) { $priznak=1; } } if (!defined $area && $priznak == 0) { # it is netmail #--- copy my mail -------------- for my $config_addr (@{$config{addr}}) { if( $toaddr eq $config_addr ) { $text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//; $text =~ s/\x01TOPT \d+\r//; for my $d_addr (@dest_addr) { if ( $fromaddr ne $d_addr ) { putMsgInArea( "NetMail", $fromname, $toname, $fromaddr, $d_addr, $subject, $date, $attr, "\001Rem: copy from $config_addr to $d_addr\r$text", 2 ); $change = 1; } ... Работает так: 1е письмо приходит на 932.1 с \001Rem: copy from 932 to 932.1" 1 строка 2е письмо приходит на 932.1: \001Rem: copy from 932 to 932.2" 2 строки \001Rem: copy from 932 to 932.1" 3е письмо приходит на 932.2: \001Rem: copy from 932 to 932.2" 2 строки \001Rem: copy from 932 to 932.1"
почесу цикл выполняется 3 раза ?
Всего наилучшего, Mikhail --- GoldED+/W32-MINGW 1.1.5-b20120519 * Origin: Главное... помните только главное... (2:5020/932.1)
