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


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

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

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

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

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

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

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

= Сообщение: 3674 из 5321 ========================================= RU.HUSKY =
От   : Brother Rabbit                   2:460/5858         17 Mar 19 11:23:12
Кому : Mikhail Stakhanov                                   17 Mar 19 11:23:12
Тема : filer.pl
FGHI : area://RU.HUSKY?msgid=2:460/5858+5c8e03f6
На   : area://RU.HUSKY?msgid=2:5020/932.1+5c8bb0d7
= Кодировка сообщения определена как: CP866 ==================================
Ответ: area://RU.HUSKY?msgid=2:5020/932.1+5c8e1c92
==============================================================================
Hi, Mikhail!

15 мар 19 17:00, Mikhail Stakhanov -> All:

MS>    $priznak = 0;

Ну, что тебе неймется свой "$priznak" в эхе опубликовать? ;)

MS>     for my $test1 (@robots)
MS>     {

[...skipped...]

MS> ...
MS> Работает так:

[...skipped...]

MS> почесу цикл выполняется 3 раза ?

Где-то косяк. ;)

Показываю в последний раз. ;)

=== Import Windows Clipboard Start ===

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

sub filter()
{
if (!defined $area) {
# is netmail
# [...skipped...]
    #--- copy my mail ---------------
    if ((istous($toaddr) == 1 || istoaka($toaddr) == 1) && istorobots($toname) == 0) {
        $mtext = $text;
        # текст письма не трогаем!
        $mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
        $mtext =~ s/\x01TOPT \d+\r//;
        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$mtext", 2 );
                w_log("Message from \"$fromname $fromaddr\" copied ".
                      "to \"$d_addrr\"");
            }
         }
    }
    #--- copy my mail end ---------------
# [...skipped...]
}
}

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

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

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

=== Import Windows Clipboard End ===

Have nice nights.
       Brother Rabbit.

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

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