Показать сообщение отдельно
  #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.

--- Муж без жены - как дуб без дятла.
Ответить с цитированием