remap & recived
 

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

Здравствуйте, All!

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

Всего наилучшего, Mikhail
--- GoldED+/W32-MINGW 1.1.5-b20120519

remap & recived
 

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.

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

remap & recived
 

Vladimir Fyodorov написал(а) к Brother Rabbit в Jan 19 19:06:27 по местному времени:

Разнообразно приветствую!

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

На какой бы из этих адресов ни пришло письмо, оно скопируется на два других? То, что нужно. Пытался сделать это с помощью rntrack, но не осилил его настроить.

--
Всяческих благ. Искренне Ваш, Vladimir Fyodorov, эсквайр.
... Пропала несущая? Заплатите налоги!
--- Нotdoged/2.13.5/Android

Re: remap & recived
 

Mikhail Stakhanov написал(а) к Brother Rabbit в Jan 19 21:36:46 по местному времени:

Здравствуйте, Brother!

Ответ на сообщение Brother Rabbit (2:460/5858) к Mikhail Stakhanov, написанное 20 янв 19 в 18:33:

BR> $text =~ s/\x01INTL[ ]\d+\:\d+\/\d+[ ]\d+\:\d+\/\d+\r//s;
BR> $text =~ s/\x01TOPT[ ]\d+\r//s;
можешь пояснить что делают эти строки ?

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;
что такое $change=1; ?

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

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


BR> --- Самое страшное не то, что мы теперь взрослые. А то, что взрослые
BR> теперь мы
BR> * Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)

Всего наилучшего, Mikhail
--- GoldED+/W32-MINGW 1.1.5-b20120519

remap & recived
 

Brother Rabbit написал(а) к Vladimir Fyodorov в Jan 19 00:46:40 по местному времени:

Нi, Vladimir!

20 янв 19 19:06, Vladimir Fyodorov -> Brother Rabbit:

VF> Разнообразно приветствую!

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

VF> На какой бы из этих адресов ни пришло письмо, оно скопируется на два
VF> других?

Нет. На какой бы из моих АКА в конфиге НPT... скопируется на все эти адреса.

VF> То, что нужно. Пытался сделать это с помощью rntrack, но не осилил
VF> его настроить.

Но можно так же реализовать и то, что ты хочешь. rntrack для этого совсем не нужен.

Добавляем перед while( defined @{$config{addr}}[$i] ) аналогичную конструцию

my $i = 0;
while( defined $readdress{$i} ){
if( $toaddr eq $readdress{$i} ) {
$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 );
}
$k++;
}
}
$i++;
}


Нave nice nights.
Brother Rabbit.

--- Если ложка не стоит в сметане, очевидно, виновата не ложка!

remap & recived
 

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.

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

remap & recived
 

Alexey Vissarionov написал(а) к Brother Rabbit в Jan 19 05:04:44 по местному времени:

Доброго времени суток, Brother!
20 Jan 2019 18:33:54, ты -> Mikhail Stakhanov:

MS>> когда приходит письмо на 932.1 его дест.адрес 932, поэтому хаска 932.1
MS>> берет и отсылает его на 932, на 932 видит письмо адресованое на 932 и
MS>> опять его ремапит на 932.1 и так до бесконечности я так понимаю если я
MS>> посталю флаг rcvd на 932.1 то больше он его никуда не пошлет. Или как
MS>> у кого реализовано ?
BR> У меня реализовано так:
BR> В конфиге НPT
BR> hptperlfile /home/fido/perl/filter.pl
BR> В файле /home/fido/perl/filter.pl
BR> #!/usr/bin/perl
BR> $readdress{0}="2:460/5858";
BR> $readdress{1}="2:460/58.58";
BR> $readdress{2}="2:460/58.10";

Мои глаза... как это развидеть?

my @dest_addr = qw
(
2:460/5858
2:460/58.58
2:460/58.10
);


--
Alexey V. Vissarionov aka Gremlin from Kremlin
gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii

... Кликайте, и вам откликнется!
--- /bin/vi

Re: remap & recived
 

Vladimir Fyodorov написал(а) к Brother Rabbit в Jan 19 08:42:56 по местному времени:

Разнообразно приветствую тебя, Brother!

21 Января 2019, Brother Rabbit писАл к Vladimir Fyodorov следующее:

BR>>> $readdress{0}="2:460/5858";
BR>>> $readdress{1}="2:460/58.58";
BR>>> $readdress{2}="2:460/58.10";
VF>> На какой бы из этих адресов ни пришло письмо, оно скопируется на
VF>> два других?
BR> Добавляем перед while( defined @{$config{addr}}[$i] ) аналогичную
BR> конструцию

Спасибо, надо будет попробовать.

Всяческих благ. Искренне Ваш, Vladimir Fyodorov, эсквайр.
... Не так страшен пилот, как его пилотка
--- GoldED+/OSX 1.1.5-b20180707

remap & recived
 

Brother Rabbit написал(а) к Alexey Vissarionov в Jan 19 09:59:14 по местному времени:

Нi, Alexey!

21 янв 19 05:04, Alexey Vissarionov -> Brother Rabbit:

BR>> В файле /home/fido/perl/filter.pl
BR>> #!/usr/bin/perl
BR>> $readdress{0}="2:460/5858";
BR>> $readdress{1}="2:460/58.58";
BR>> $readdress{2}="2:460/58.10";

AV> Мои глаза... как это развидеть?

AV> my @dest_addr = qw
AV> (
AV> 2:460/5858
AV> 2:460/58.58
AV> 2:460/58.10
AV> );

И какая разница? ;)

Нave nice nights.
Brother Rabbit.

--- Коньки и ласты - что суждено отбросить, того уже не склеишь...

remap & recived
 

Brother Rabbit написал(а) к Vladimir Fyodorov в Jan 19 10:00:06 по местному времени:

Нi, Vladimir!

21 янв 19 08:42, Vladimir Fyodorov -> Brother Rabbit:

BR>>>> $readdress{0}="2:460/5858";
BR>>>> $readdress{1}="2:460/58.58";
BR>>>> $readdress{2}="2:460/58.10";
VF>>> На какой бы из этих адресов ни пришло письмо, оно скопируется на
VF>>> два других?
BR>> Добавляем перед while( defined @{$config{addr}}[$i] ) аналогичную
BR>> конструцию

VF> Спасибо, надо будет попробовать.

Я и сам не пробовал. Может дупов наплодить. Это я находу сочинил. Скорее всего там правильней будет
if ( $fromaddr ne $readdress{$k} && $toaddr ne $readdress{$k} )

Нave nice nights.
Brother Rabbit.

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