FGHIGate на GaNJa NeTWoRK ST@Ti0N - Просмотр сообщения в эхоконференции RU.HUSKY


	Добро пожаловать, Гость. Пожалуйста авторизуйтесь здесь.

Введите FGHI ссылку:

Присутствуют сообщения из эхоконференции RU.HUSKY с датами от 16 Jul 13 10:00:06 до 31 Mar 24 23:49:12, всего сообщений: 5321

Ответить на сообщение

К списку сообщений

Предыдущее сообщение

Следующее сообщение

= Сообщение: 3583 из 5321 ========================================= RU.HUSKY =
От   : Brother Rabbit                   2:460/5858         20 Jan 19 18:33:54
Кому : Mikhail Stakhanov                                   20 Jan 19 18:33:54
Тема : remap & recived
FGHI : area://RU.HUSKY?msgid=2:460/5858+5c4496f4
На   : area://RU.HUSKY?msgid=2:5020/932.1+5c448066
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://RU.HUSKY?msgid=2:50/15.2+5aad760a
Ответ: area://RU.HUSKY?msgid=2:5020/932.1+5c44c0d1
Ответ: area://RU.HUSKY?msgid=2:5020/545+5c452939
==============================================================================
Hi, 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> кого реализовано ?

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

В конфиге  HPT
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 ---------------
    }
}

Have nice nights.
       Brother Rabbit.

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

К главной странице гейта