Копирование нетмейла на служебный поинтовый адрес.

Evgeny Zyatkov написал(а) к Alexey Vissarionov в May 17 18:17:26 по местному времени:

Привет, Alexey!

10 май 17 08:02, Alexey Vissarionov -> Evgeny Zyatkov:

EZ>> Т.е. хочется remap Evgeny Zyatkov,2:5005/33,2:5005/33.1 но только
EZ>> чтоб не удалялось на ноде, а дублировалось на поинта.
AV> Для этого существует hptperlfile

Запилил вот так:

hptperlfile /.../filter.pl

и в filter.pl
===========================
sub filter
{
if (($area eq "") && ($toname eq "Evgeny Zyatkov") && ($toaddr eq "2:5005/33"))
{
$msgtext = $text;
$msgtext =~ s/\x01/@/g;
$msgtext =~ s/\r--- /\r-=- /g;
$msgtext =~ s/\r\ \* Origin: /\r + Origin: /g;
$msgtext="\r$msgtext\r--- Forward Bot\r * Origin: SigmaBBS ($myaddr)\r";
putMsgInArea("",$fromname,$toname." .0",$fromaddr,"2:5005/33.1",$subject,$date,"Uns Loc",$msgtext,0);
}
===========================

Работает. Спасибо.





С наилучшими пожеланиями, Evgeny.

--- GoldED+/LNX 1.1.5-b20170303