#1
|
|||
|
|||
filer.pl
Mikhail Stakhanov написал(а) к All в Mar 19 17:00:44 по местному времени:
Здравствуйте, 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 $daddr (@destaddr) { if ( $fromaddr ne $d_addr ) { putMsgInArea( "NetMail", $fromname, $toname, $fromaddr, $d_addr, $subject, $date, $attr, "\001Rem: copy from $configaddr to $daddr\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 |