RU.FIDONET.TODAY: TWIT средствами НUSKY

Vladimir Fyodorov написал(а) к All в Oct 19 13:30:58 по местному времени:


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

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

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

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

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

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

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

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

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


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

use twit_conf

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

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

if ( $twit{$fromname}{from} || $twit{$toname}{to} ||
$twit{$fromname}{oblivion} || $twit{$fromaddress} ||
$twit{$subj} || $twit{$fromname}{$echoarea} ) { 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