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


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

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

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

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

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

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

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

= Сообщение: 3726 из 5321 ========================================= RU.HUSKY =
От   : Brother Rabbit                   2:460/5858         22 May 19 08:18:28
Кому : Pavel Sizykh                                        22 May 19 08:18:28
Тема : Технический поинт hpt
FGHI : area://RU.HUSKY?msgid=2:460/5858+5ce4dd9d
На   : area://RU.HUSKY?msgid=2:50/6+5ce29374
= Кодировка сообщения определена как: CP866 ==================================
==============================================================================
Hi, Pavel!

20 май 19 21:43, Pavel Sizykh -> Anton Ryzhkov:

AR>> Я сделал по примеру из местного фака. Вроде бы. Или еще откуда-то.
AR>> Но мне нужно было два поинта - один на ноуте, второй на телефоне.
AR>> Работает.

AR>> В filter.pl добавил

AR>> sub filter {

[...skipped...]

AR>> }

PS> Почему-то нетмей после такого скрипта HotDogEd отказывается показывать.
PS> Хотя hpt такие письма переваривает и голдед потом их показывает. Значит
PS> получаемые письма нарушают стандарт?

Если я правильно понял, что этот скрипт хотел сделать, то вот так:

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

sub filter()
{
if (!defined $area) {
        if ( istous($toaddr) == 1 || istoaka($toaddr) == 1 ) {
            copynetmail($fromaddr, $fromname, $toaddr, $toname, $subject,
                        $date, $attr, $text) if !istorobots($toname);
        }
}

undef $change if $kill;
return '';
}

sub copynetmail($$$$$$$$)
{
    local ($from_addr, $from_name, $to_addr, $to_name, $subj_ect, $mdate,      $mattr, $mtext) = @_;
            $mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
            $mtext =~ s/\x01TOPT \d+\r//;
            for my $d_addrr (@my_aka){
                if ( $from_addr ne $d_addrr && $to_addr ne $d_addrr) {
                    putMsgInArea( "NetMail", $from_name, $to_name, $from_addr,
                        $d_addrr, $subj_ect, $mdate, $mattr,
                        "\001Rem: copy to $d_addrr\r$mtext", 2 );
                }
             }
}

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

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

sub istorobots($)
{
    my ($name) = @_;
    for my $cfg_name ( @{$config{areafixNames}} ) {
        if( $name eq $cfg_name ) {
            return 1;
        }
    }
return 0;
}

Have nice nights.
       Brother Rabbit.

--- Муж без жены - как дуб без дятла.
* Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)

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