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


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

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

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

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

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

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

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

= Сообщение: 3602 из 5321 ========================================= RU.HUSKY =
От   : Brother Rabbit                   2:460/5858         24 Jan 19 17:22:32
Кому : Michael Dukelsky                                    24 Jan 19 17:22:32
Тема : remap & recived
FGHI : area://RU.HUSKY?msgid=2:460/5858+5c49cb45
На   : area://RU.HUSKY?msgid=2:5020/1042+5c45e0d7
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://RU.HUSKY?msgid=2:5020/932.1+5c836788
==============================================================================
Hi, Michael!

21 янв 19 18:05, Michael Dukelsky -> Brother Rabbit:

MD>> Дело не в "красивше".

MD> Чтобы не быть голословным, переписал твой скрипт в соответствии со своим
MD> предыдущим письмом. Написанное не проверял.

MD> my @dest_addr=
MD> (
MD>     2:460/5858,
MD>     2:460/58.58,
MD>     2:460/58.10,
MD> );

MD> sub filter()
MD> {
MD>     if (!defined $area)
MD>     {
MD>         # it is netmail
MD>         #--- copy my mail ---------------
MD>         for my $config_addr (@{$config{addr}})
MD>         {
MD>             if( $toaddr eq $config_addr )
MD>             {
MD>                 $text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
MD>                 $text =~ s/\x01TOPT \d+\r//;
MD>                 for my $dest_address (@dest_addr)
MD>                 {
MD>                     if ( $fromaddr ne $dest_address )
MD>                     {
MD>                         putMsgInArea( "NetMail", $fromname, $toname,
MD> $fromaddr,
MD>                                       $dest_address, $subject, $date,
MD> $attr,
MD>                                       "\001Rem: copy to
MD> $dest_address\r$text", 2 );
MD>                         $change = 1;
MD>                     }
MD>                 }
MD>             }
MD>         }
MD>         #--- copy my mail end ---------------
MD>     }
MD> }

Сделал вот так:

#!/usr/bin/perl

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

sub filter()
{
    # [... some stuff skipped ...]
    #
    #--- copy my mail ---------------
        if ( istous($toaddr) == 1 || istoaka($toaddr) == 1 ) {
            $text =~ s/\x01INTL[ ]\d+\:\d+\/\d+[ ]\d+\:\d+\/\d+\r//s;
            $text =~ s/\x01TOPT[ ]\d+\r//s;
            for my $d_addrr (@my_aka){
                if ( $fromaddr ne $d_addrr && $toaddr ne $d_addrr) {
                    putMsgInArea( "NetMail", $fromname, $toname, $fromaddr,
                        $d_addrr, $subject, $date, $attr,
                        "\001Rem: copy to $d_addrr\r$text", 2 );
#                       $change = 1;
                        $newnet=1;
                }
             }
        }
    #--- copy my mail end ---------------
    #
    # [... some stuff skipped ...]
}

# ---- my subs -----

sub istous()
{
    my ($addrr) = @_;
    return 1 if !defined($addrr);
    for my $cfg_addr ( @{$config{addr}} ) {
        if( $addrr eq $cfg_addr ) {
            return 1;
        }
    }
return 0;
}

sub istoaka()
{
    my ($addrr) = @_;
    for my $d_addr (@my_aka){
        if( $addrr eq $d_addr) {
            return 1;
       }
    }
return 0;
}

Have nice nights.
       Brother Rabbit.

--- Не откладывай пьянку на завтра, а секс на старость.
* Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)

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