Brother Rabbit написал(а) к Mikhail Stakhanov в Jan 19 18:33:54 по местному времени:

Нi, Mikhail!

20 янв 19 17:00, Mikhail Stakhanov -> All:

MS> Скажите мне еще раз не нашел...
MS> стоит ремап 932 - > 932.1
MS> когда приходит письмо на 932.1 его дест.адрес 932, поэтому хаска 932.1
MS> берет и отсылает его на 932, на 932 видит письмо адресованое на 932 и
MS> опять его ремапит на 932.1 и так до бесконечности я так понимаю если я
MS> посталю флаг rcvd на 932.1 то больше он его никуда не пошлет. Или как у
MS> кого реализовано ?

У меня реализовано так:

В конфиге НPT
hptperlfile /home/fido/perl/filter.pl

В файле /home/fido/perl/filter.pl
#!/usr/bin/perl

$readdress{0}="2:460/5858";
$readdress{1}="2:460/58.58";
$readdress{2}="2:460/58.10";

sub filter()
{
if (!defined $area) {
# is netmail
#--- copy my mail ---------------
my $i = 0;
while( defined @{$config{addr}}[$i] ){
if( $toaddr eq @{$config{addr}}[$i] ) {
$text =~ s/\x01INTL[ ]\d+\:\d+\/\d+[ ]\d+\:\d+\/\d+\r//s;
$text =~ s/\x01TOPT[ ]\d+\r//s;
$k = 0;
while( defined $readdress{$k} ){
if ( $fromaddr ne $readdress{$k} ) {
putMsgInArea( "NetMail", $fromname, $toname, $fromaddr,
$readdress{$k}, $subject, $date, $attr,
"\001Rem: copy to $readdress{$k}\r$text", 2 );
$change = 1;
}
$k++;
}
}
$i++;
}
#--- copy my mail end ---------------
}
}


Нave nice nights.
Brother Rabbit.

--- Самое страшное не то, что мы теперь взрослые. А то, что взрослые теперь мы