Anton Ryzhkov написал(а) к Kirill Temnenkov в Aug 18 21:08:46 по местному времени:

Привет, Kirill!

Ответ на сообщение Kirill Temnenkov (2:5020/828.17) к All, написанное 07 авг 18 в 09:19:

KT> В процессе переполза возник очередной идиотский вопрос - а как можно
KT> организовать технического пойнта?

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

В filter.pl добавил

sub filter {
if (($area eq "") && ($toaddr eq "2:5030/1081" || $toaddr eq "2:5030/1081.1" || $toaddr eq "2:5030/1081.2") && ($toname ne "AreaFix") && ($toname ne "FileFix")) {
$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: - (2:5030/1081)\r";
if ($toaddr eq "2:5030/1081") {
putMsgInArea("",$fromname,$toname.".0",$fromaddr,"2:5030/1081.1",$s ubject,$date,"Pvt K/s",$msgtext,0);
putMsgInArea("",$fromname,$toname.".0",$fromaddr,"2:5030/1081.2",$s ubject,$date,"Pvt K/s",$msgtext,0);
}
if ($toaddr eq "2:5030/1081.1") {
putMsgInArea("",$fromname,$toname.".0",$fromaddr,"2:5030/1081.2",$s ubject,$date,"Pvt K/s",$msgtext,0);
}
if ($toaddr eq "2:5030/1081.2") {
putMsgInArea("",$fromname,$toname.".0",$fromaddr,"2:5030/1081.1",$s ubject,$date,"Pvt K/s",$msgtext,0);
}
}
}
sub route() {
if (($from eq "2:5030/1081.1" || $from eq "2:5030/1081.2") && ($addr ne "2:5030/1081")) {
$from = '2:5030/1081.0';
$msgtext = $text;
$msgtext =~ s/\x01FMPT.*?\r//g;
$msgtext =~ s/\x01Via 2:5030\/1081\.\d.*?\r//g;
$msgtext =~ s/2:5030\/1081.1/2:5030\/1081/g;
$msgtext =~ s/2:5030\/1081.2/2:5030\/1081/g;
$text = $msgtext;
$change = 1;
return $RouteAddr;
}
}


С уважением - Anton
--- GoldED+/W32-MINGW 1.1.5-b20120519, Telegram, Gmail: rantonv