Показать сообщение отдельно
  #12  
Старый 20.05.2019, 16:13
Pavel Sizykh
Guest
 
Сообщений: n/a
По умолчанию Re: Технический поинт hpt

Pavel Sizykh написал(а) к Anton Ryzhkov в May 19 21:43:40 по местному времени:


Привет, Anton!

Ответ на сообщение Anton Ryzhkov (2:5030/1081.1) к Kirill Temnenkov, написанное 11 Aug 18 в 21:08:

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

AR> В filter.pl добавил

AR> sub filter {
AR> if (($area eq "") && ($toaddr eq "2:5030/1081" || $toaddr eq
AR> "2:5030/1081.1" || $toaddr eq "2:5030/1081.2") && ($toname ne
AR> "AreaFix") && ($toname ne "FileFix")) {
AR> $msgtext = $text;
AR> $msgtext =~ s/\x01/@/g;
AR> $msgtext =~ s/\r--- /\r-=- /g;
AR> $msgtext =~ s/\r\ \* Origin: /\r + Origin: /g;
AR> $msgtext="\r$msgtext\r--- Forward Bot\r * Origin: -
AR> (2:5030/1081)\r";
AR> if ($toaddr eq "2:5030/1081") {

AR> putMsgInArea("",$fromname,$toname.".0",$fromaddr,"2:5030/1081.1",$s
AR> ubject,$date,"Pvt K/s",$msgtext,0);

AR> putMsgInArea("",$fromname,$toname.".0",$fromaddr,"2:5030/1081.2",$s
AR> ubject,$date,"Pvt K/s",$msgtext,0);
AR> }
AR> if ($toaddr eq "2:5030/1081.1") {

AR> putMsgInArea("",$fromname,$toname.".0",$fromaddr,"2:5030/1081.2",$s
AR> ubject,$date,"Pvt K/s",$msgtext,0);
AR> }
AR> if ($toaddr eq "2:5030/1081.2") {

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

Почему-то нетмей после такого скрипта НotDogEd отказывается показывать. Хотя hpt такие письма переваривает и голдед потом их показывает. Значит получаемые письма нарушают стандарт?

/grf

--- GoldED+/W64-MSVC 1.1.5-b20170303
Ответить с цитированием