forum.wfido.ru  

Вернуться   forum.wfido.ru > Прочие эхи > RU.HUSKY

Ответ
 
Опции темы Опции просмотра
  #11  
Старый 12.08.2018, 14:42
Vladimir Fyodorov
Guest
 
Сообщений: n/a
По умолчанию Re: Технический поинт hpt

Vladimir Fyodorov написал(а) к Anton Ryzhkov в Aug 18 13:28:04 по местному времени:

Разнообразно приветствую!

AR>>> Забыл, в sub route() еще такая фигня в начале есть:
VF>> Сорри, а это куда писать? Я в перле вообще ничего не понимаю,
VF>> думал, в твоём примере только свои адреса подставить, а тут уже я
VF>> в растерянности.
AR> В самое начало sub route(). Как-то так:

Спасибо, поэкспериментирую на досуге.

--
Всяческих благ. Искренне Ваш, Vladimir Fyodorov, эсквайр.
... Пропала несущая? Заплатите налоги!
--- Нotdoged/2.13.5/Android
Ответить с цитированием
  #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
Ответить с цитированием
  #13  
Старый 22.05.2019, 09:43
Brother Rabbit
Guest
 
Сообщений: n/a
По умолчанию Технический поинт hpt

Brother Rabbit написал(а) к Pavel Sizykh в May 19 08:18:28 по местному времени:

Нi, Pavel!

20 май 19 21:43, Pavel Sizykh -> Anton Ryzhkov:

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

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

AR>> sub filter {

[...skipped...]

AR>> }

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

Если я правильно понял, что этот скрипт хотел сделать, то вот так:

our @my_aka = qw(
2:460/5858
2:460/58.58
2:460/58.10
);


sub filter()
{
if (!defined $area) {
if ( istous($toaddr) == 1 || istoaka($toaddr) == 1 ) {
copynetmail($fromaddr, $fromname, $toaddr, $toname, $subject,
$date, $attr, $text) if !istorobots($toname);
}
}

undef $change if $kill;
return '';
}


sub copynetmail($$$$$$$$)
{
local ($fromaddr, $from_name, $to_addr, $to_name, $subj_ect, $mdate, $mattr, $mtext) = @;
$mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
$mtext =~ s/\x01TOPT \d+\r//;
for my $daddrr (@myaka){
if ( $fromaddr ne $d_addrr && $to_addr ne $daddrr) {
putMsgInArea( "NetMail", $fromname, $to_name, $fromaddr,
$daddrr, $subject, $mdate, $mattr,
"\001Rem: copy to $d_addrr\r$mtext", 2 );
}
}
}


sub istoaka($)
{
local ($addrr) = @_;
for my $daddr (@myaka){
if( $addrr eq $d_addr) {
return 1;
}
}
return 0;
}


sub istous($)
{
my ( $addrr ) = @_;
for my $cfg_addr ( @{$config{addr}} ) {
if( $addrr eq $cfg_addr ) {
return 1;
}
}
return 0;
}

sub istorobots($)
{
my ($name) = @_;
for my $cfg_name ( @{$config{areafixNames}} ) {
if( $name eq $cfg_name ) {
return 1;
}
}
return 0;
}


Нave nice nights.
Brother Rabbit.

--- Муж без жены - как дуб без дятла.
Ответить с цитированием
  #14  
Старый 22.05.2019, 09:51
Brother Rabbit
Guest
 
Сообщений: n/a
По умолчанию Технический поинт hpt

Brother Rabbit написал(а) к Pavel Sizykh в May 19 08:33:12 по местному времени:

Нi, Pavel!

20 май 19 21:43, Pavel Sizykh -> Anton Ryzhkov:

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

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

AR>> sub filter {

[...skipped...]

AR>> }

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

Если я правильно понял, что этот скрипт хотел сделать, то вот так:

# адреса, на которых хотим читать копии нетмейла.
# Не равны адресу узла в конфиге!

our @my_aka = qw(
2:460/5858
2:460/58.58
2:460/58.10
);


sub filter()
{
if (!defined $area) {
if ( istous($toaddr) == 1 || istoaka($toaddr) == 1 ) {
copynetmail($fromaddr, $fromname, $toaddr, $toname, $subject,
$date, $attr, $text) if !istorobots($toname);
}
}

undef $change if $kill;
return '';
}


sub copynetmail($$$$$$$$)
{
local ($fromaddr, $from_name, $to_addr, $to_name, $subj_ect, $mdate, $mattr, $mtext) = @;

$mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
$mtext =~ s/\x01TOPT \d+\r//;
for my $daddrr (@myaka){
if ( $fromaddr ne $d_addrr && $to_addr ne $daddrr) {
putMsgInArea( "NetMail", $fromname, $to_name, $fromaddr,
$daddrr, $subject, $mdate, $mattr,
"\001Rem: copy to $d_addrr\r$mtext", 2 );
}
}
}


sub istoaka($)
{
local ($addrr) = @_;
for my $daddr (@myaka){
if( $addrr eq $d_addr) {
return 1;
}
}
return 0;
}


sub istous($)
{
my ( $addrr ) = @_;
for my $cfg_addr ( @{$config{addr}} ) {
if( $addrr eq $cfg_addr ) {
return 1;
}
}
return 0;
}

sub istorobots($)
{
my ($name) = @_;
for my $cfg_name ( @{$config{areafixNames}} ) {
if( $name eq $cfg_name ) {
return 1;
}
}
return 0;
}

Дойдут руки, оформлю, как положено, и выложу на гитхаб.

Нave nice nights.
Brother Rabbit.

--- Муж без жены - как дуб без дятла.
Ответить с цитированием
  #15  
Старый 22.05.2019, 14:43
Pavel Sizykh
Guest
 
Сообщений: n/a
По умолчанию Re: Технический поинт hpt

Pavel Sizykh написал(а) к Brother Rabbit в May 19 20:25:38 по местному времени:


Привет, Brother!

BR> Дойдут руки, оформлю, как положено, и выложу на гитхаб.

Гран мерси, все заработало :)

/grf

--- GoldED+/W64-MSVC 1.1.5-b20170303
Ответить с цитированием
  #16  
Старый 23.05.2019, 21:32
Brother Rabbit
Guest
 
Сообщений: n/a
По умолчанию Технический поинт hpt

Brother Rabbit написал(а) к Pavel Sizykh в May 19 20:14:14 по местному времени:

Нi, Pavel!

22 май 19 20:25, Pavel Sizykh -> Brother Rabbit:

BR>> Дойдут руки, оформлю, как положено, и выложу на гитхаб.

PS> Гран мерси, все заработало :)

Та не за что. ;)

Нave nice nights.
Brother Rabbit.

--- Ругаться матом нехорошо... Но называть вещи своими именами необходимо.
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 20:50. Часовой пояс GMT +4.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2019, vBulletin Solutions, Inc. Перевод: zCarot