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


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

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

Присутствуют сообщения из эхоконференции RU.FIDONET.DIGEST с датами от 15 Jul 13 08:53:56 до 22 Apr 24 09:34:20, всего сообщений: 2389

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

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

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

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

= Сообщение: 1397 из 2389 ================================ RU.FIDONET.DIGEST =
От   : Vladimir Fyodorov                2:50/15.1          17 Oct 19 13:30:58
Кому : All                                                 17 Oct 19 13:30:58
Тема : RU.FIDONET.TODAY: TWIT средствами HUSKY
FGHI : area://RU.FIDONET.DIGEST?msgid=2:50/15.1+5da84373
= Кодировка сообщения определена как: CP866 ==================================
==============================================================================

> Стас Мищенков опубликовал скрипт на Perl, позволяющий избавиться от
> нежелательных сообщений средствами Husky.

=============================================================================
* Area : RU.FIDONET.TODAY
* From : Stas Mishchenkov, 2:460/5858 (17 Октября 2019 12:14)
* To   : Andrei Mihailov
* Subj : ENET.SYSOP: Фильтрация входящего трафика средствами HUSKY
=============================================================================
Hi, Andrei!

16 окт 19 01:08, Andrei Mihailov -> Stas Mishchenkov:

SM>> Вот смотри. Человек пользуется каким-то набором софта и, скорее
SM>> всего, уже много лет. Теперь ты говоришь, что ему нужно заменить
SM>> почтовый редактор на тот, что умеет твит,

AM> А он разве не голдедом пользуется?

Я сейчас имел ввиду не какого-то конкретного человека.

SM>> хотя ему проще научить тоссер твитовать.

AM> Разве это проще?

В случае с HPT - значительно.

===== filter.pl =============
#!/usr/bin/perl

use twit_conf

sub put_msg()
{
return twit( $fromname, $toname, $fromaddr, $subject, $area );
}

sub twit($$$$$)
{
   ( $from_name, $to_name, $from_address, $subj, $echo_area ) = @_;

   if ( $twit{$from_name}{from} || $twit{$to_name}{to} ||
        $twit{$from_name}{oblivion} || $twit{$from_address} ||
        $twit{$subj} || $twit{$from_name}{$echo_area} ) { return 0; }
   else { return 1; }
}

=============================

===== twit_conf.pm =============
#!/usr/bin/perl

$twit{Bad Gay}{from}
$twit{Brother Fox}{oblivion}
$twit{Areafix}{to}
$twit{Uncle Rimus}{CRIMEA.TALK}

# etc.

1;
=============================================================================

--- GoldED+/OSX 1.1.5-b20180707
* Origin: Esquire Station (2:50/15.1)

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