Технический поинт hpt
 

Kirill Temnenkov написал(а) к All в Aug 18 09:19:36 по местному времени:

Здpавствуй, All!

Я переползаю на связку binkd+hpt.

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

Узел я собираюсь держать на VPS без иксов, залезать туда особо не собираюсь (кроме как для просмотра логов в случае траблов).

Хотелось бы иметь возможность писать с пойнтового адреса, но чтобы письма виделись, как отправленные с нодового. И наоборот, чтобы технический пойнт получал письма, которые пишут на нодовый адрес.

В jNode (с которой я ухожу) это сделать можно. А как это сделать в hpt - не соображу никак.

Никто не подскажет решение?


С уважением - Kirill
--- 5D5B 86B0 C8E6 26F0 67AA 20BE 843D EDF5 611F E1DC

Re: Технический поинт hpt
 

Vladimir Fyodorov написал(а) к Kirill Temnenkov в Aug 18 11:19:32 по местному времени:

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

07 Августа 2018, Kirill Temnenkov писАл к All следующее:

KT> Хотелось бы иметь возможность писать с пойнтового адреса, но чтобы
KT> письма виделись, как отправленные с нодового. И наоборот, чтобы
KT> технический пойнт получал письма, которые пишут на нодовый адрес.

= SU.CНAINIK (2:50/15.1) ======================================================
From : Alexey Vissarionov 2:5020/545 Пон 19 Фев 18 13:43
To : Vladimir Fyodorov
Subj : RNTrack
===============================================================================
Доброго времени суток, Vladimir!
19 Feb 2018 12:13:12, ты -> All:

VF> Стоит довольно типичная задача: копировать нетмейл, пришедший на
VF> узловой адрес, на .1. И обратно, пришедший нетмейл с .1 отправлять
VF> дальше с узлового 2:50/15. Нетмейл в squish, тоссер hpt, система
VF> Windows XP. Что нынче для этого нынче в тренде?

hpt-1.9

VF> Смотрел RNTrack, он мне показался сильно монструозным для такой
VF> задачи.

Трекер не нужен.

VF> Может, есть что-то попроще? Перл не предлагать.

Тогда вместо копирования будет просто роутинг.

VF> Или подскажите простейший конфиг для сабжа - для выполнения
VF> поставленных задач.

Для hpt, пересылка:

remap Vladimir Fyodorov,2:50/15,2:50/15.1


--
Alexey V. Vissarionov aka Gremlin from Kremlin
gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii

.+. Задал дурацкий вопрос? Получи дурацкий ответ!
-+- /bin/vi
+ Origin: [url]http://openwall.com/Owl/ru[/url] (2:5020/545)
==============================================================================

Всяческих благ. Искренне Ваш, Vladimir Fyodorov, эсквайр.
... Тоссер от мылера недалеко падает
--- GoldED+/OSX 1.1.5-b20170303

Технический поинт hpt
 

Alexey Vissarionov написал(а) к Vladimir Fyodorov в Aug 18 11:33:44 по местному времени:

Доброго времени суток, Vladimir!
07 Aug 2018 11:19:32, ты -> Kirill Temnenkov:

KT>> Хотелось бы иметь возможность писать с пойнтового адреса, но чтобы
KT>> письма виделись, как отправленные с нодового. И наоборот, чтобы
KT>> технический пойнт получал письма, которые пишут на нодовый адрес.

VF>> Может, есть что-то попроще? Перл не предлагать.
VF> Тогда вместо копирования будет просто роутинг.
VF>> Или подскажите простейший конфиг для сабжа - для выполнения
VF>> поставленных задач.
VF> Для hpt, пересылка:
VF> remap Vladimir Fyodorov,2:50/15,2:50/15.1

VF> + Origin: [url]http://openwall.com/Owl/ru[/url] (2:5020/545)

Хороший ответ, правильный... Только на совсем другой вопрос.


--
Alexey V. Vissarionov aka Gremlin from Kremlin
gremlin ПРИ gremlin ТЧК ru; +vii-cmiii-ccxxix-lxxix-xlii

... Не учите дедушку кашлять!
--- /bin/vi

Re: Технический поинт hpt
 

Kirill Temnenkov написал(а) к Alexey Vissarionov в Aug 18 14:51:12 по местному времени:

Здpавствуй, Alexey!

Вторник 07 Августа 2018 11:33, ты писал(а) Vladimir Fyodorov:
KT>>> Хотелось бы иметь возможность писать с пойнтового адреса, но
KT>>> чтобы письма виделись, как отправленные с нодового. И наоборот,
KT>>> чтобы технический пойнт получал письма, которые пишут на нодовый
KT>>> адрес.

VF>>> Может, есть что-то попроще? Перл не предлагать.
VF>> Тогда вместо копирования будет просто роутинг.
VF>>> Или подскажите простейший конфиг для сабжа - для выполнения
VF>>> поставленных задач.
VF>> Для hpt, пересылка:
VF>> remap Vladimir Fyodorov,2:50/15,2:50/15.1

VF>> + Origin: [url]http://openwall.com/Owl/ru[/url] (2:5020/545)

AV> Хороший ответ, правильный... Только на совсем другой вопрос.

А я перла не боюсь. Похоже, что копать надо в эту сторону?

[url]https://github.com/huskyproject/hpt/wiki/hpt[/url]

>───═══ Куть он "Windows Clipboard" ═══───

route - called just before routing netmail message, the following variables availble:

$addr - message destination address,

$from - message originating address,

$toname - destination user name,

$fromname - originating user name,

$subject - message subject line,

$date - message date and time,

$text - message text,

$attr - message attributes,

$route - default route for this message (derermined
via Route statements in config file (may be empty, this means that either no route at all for this message or it will be routed via one-to-multi routing(Route normal noroute 2:5004/73.*)).
>───═══ Куть офф "Windows Clipboard" ═══───


С уважением - Kirill
--- 5D5B 86B0 C8E6 26F0 67AA 20BE 843D EDF5 611F E1DC

Re: Технический поинт hpt
 

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

Re: Технический поинт hpt
 

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

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

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

А как это работает? То, что пришло на .0, копируется на .1 и .2? А то, что пришло с .1 или .2, уходит наружу с .0?

--
Всяческих благ. Искренне Ваш, Vladimir Fyodorov, эсквайр.
... Пропала несущая? Заплатите налоги!
--- Нotdoged/2.13.5/Android

Re: Технический поинт hpt
 

Anton Ryzhkov написал(а) к Vladimir Fyodorov в Aug 18 23:11:25 по местному времени:

Нello, Vladimir Fyodorov.
On 11.08.2018 21:41 you wrote:

AR>> Я сделал по примеру из местного фака. Вроде бы. Или еще
AR>> откуда-то. Но мне нужно было два поинта - один на ноуте, второй
AR>> на телефоне. Работает.
VF> А как это работает? То, что пришло на .0, копируется на .1 и .2? А
VF> то, что пришло с .1 или .2, уходит наружу с .0?

Да, именно так.
И то, что пришло на 1 копируется на 2 и наоборот.

--
Best regards!
--- Нotdoged/2.13.5/Android

Re: Технический поинт hpt
 

Vladimir Fyodorov написал(а) к Anton Ryzhkov в Aug 18 06:44:30 по местному времени:

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

VF>> А как это работает? То, что пришло на .0, копируется на .1 и .2?
VF>> А то, что пришло с .1 или .2, уходит наружу с .0?
AR> Да, именно так. И то, что пришло на 1 копируется на 2 и наоборот.
AR>

Круто, то, что надо. Я ради этого собирался трекер ставить. Теперь буду пробовать этот скрипт. Спасибо.

--
Всяческих благ. Искренне Ваш, Vladimir Fyodorov, эсквайр.
... Пропала несущая? Заплатите налоги!
--- Нotdoged/2.13.5/Android

Re: Технический поинт hpt
 

Anton Ryzhkov написал(а) к Vladimir Fyodorov в Aug 18 09:40:54 по местному времени:

Привет, Vladimir!

Ответ на сообщение Vladimir Fyodorov (2:50/15.2) к Anton Ryzhkov, написанное 12 авг 18 в 06:44:

VF>>> А как это работает? То, что пришло на .0, копируется на .1 и .2?
VF>>> А то, что пришло с .1 или .2, уходит наружу с .0?
AR>> Да, именно так. И то, что пришло на 1 копируется на 2 и
AR>> наоборот.
VF> Круто, то, что надо. Я ради этого собирался трекер ставить. Теперь
VF> буду пробовать этот скрипт. Спасибо.

Забыл, в sub route() еще такая фигня в начале есть:

$RouteAddr = $addr;
$RouteAddr =~ s/\..+//g;
$isMyLink = 0;
if ($links{$RouteAddr}{'name'} ne "") {
$isMyLink = 1;
} else {
$RouteAddr = '2:5030/1115';
}

$isMyLink у меня используется в другом месте, поэтому такая вот конструкция.
Если линков нет, а только один дефолтный для нетмейла, то можно его сразу return и указать.
Если не указывать, то какая-то хрень получается. Уже не помню сейчас в чем там дело было.


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

Re: Технический поинт hpt
 

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

Привет, Vladimir!

Ответ на сообщение Vladimir Fyodorov (2:50/15.2) к Anton Ryzhkov, написанное 12 авг 18 в 12:01:

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

В самое начало sub route().
Как-то так:

sub filter() {
здесь обработка нетмыла из предыдущего письма
}
sub route() {

[b]сюда вставляем то, что я забыл[/b]

здесь обработка нетмыла из предыдущего письма

}



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

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

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

Технический поинт 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 ($from[b]addr, $from_name, $to_addr, $to_name, $subj_ect, $mdate, $mattr, $mtext) = @[/b];
$mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
$mtext =~ s/\x01TOPT \d+\r//;
for my $d[b]addrr (@my[/b]aka){
if ( $from[b]addr ne $d_addrr && $to_addr ne $d[/b]addrr) {
putMsgInArea( "NetMail", $from[b]name, $to_name, $from[/b]addr,
$d[b]addrr, $subj[/b]ect, $mdate, $mattr,
"\001Rem: copy to $d_addrr\r$mtext", 2 );
}
}
}


sub istoaka($)
{
local ($addrr) = @_;
for my $d[b]addr (@my[/b]aka){
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.

--- Муж без жены - как дуб без дятла.

Технический поинт 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 ($from[b]addr, $from_name, $to_addr, $to_name, $subj_ect, $mdate, $mattr, $mtext) = @[/b];

$mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
$mtext =~ s/\x01TOPT \d+\r//;
for my $d[b]addrr (@my[/b]aka){
if ( $from[b]addr ne $d_addrr && $to_addr ne $d[/b]addrr) {
putMsgInArea( "NetMail", $from[b]name, $to_name, $from[/b]addr,
$d[b]addrr, $subj[/b]ect, $mdate, $mattr,
"\001Rem: copy to $d_addrr\r$mtext", 2 );
}
}
}


sub istoaka($)
{
local ($addrr) = @_;
for my $d[b]addr (@my[/b]aka){
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.

--- Муж без жены - как дуб без дятла.

Re: Технический поинт hpt
 

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


Привет, Brother!

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

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

/grf

--- GoldED+/W64-MSVC 1.1.5-b20170303

Технический поинт 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.

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