filer.pl
 

Mikhail Stakhanov написал(а) к All в Mar 19 17:00:44 по местному времени:

Здравствуйте, All!
и всетаки:
$priznak = 0;
for my $test1 (@robots)
{
if ($test1 eq $toname)
{
$priznak=1;
}
}
if (!defined $area && $priznak == 0)
{
# it is netmail
#--- copy my mail --------------
for my $config_addr (@{$config{addr}})
{
if( $toaddr eq $config_addr )
{
$text =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
$text =~ s/\x01TOPT \d+\r//;
for my $d[b]addr (@dest[/b]addr)
{
if ( $fromaddr ne $d_addr )
{
putMsgInArea( "NetMail", $fromname, $toname, $fromaddr,
$d_addr, $subject, $date, $attr,
"\001Rem: copy from $config[b]addr to $d[/b]addr\r$text", 2 );
$change = 1;
}
...
Работает так:
1е письмо приходит на 932.1 с
\001Rem: copy from 932 to 932.1" 1 строка
2е письмо приходит на 932.1:
\001Rem: copy from 932 to 932.2" 2 строки
\001Rem: copy from 932 to 932.1"
3е письмо приходит на 932.2:
\001Rem: copy from 932 to 932.2" 2 строки
\001Rem: copy from 932 to 932.1"

почесу цикл выполняется 3 раза ?



Всего наилучшего, Mikhail
--- GoldED+/W32-MINGW 1.1.5-b20120519

filer.pl
 

Brother Rabbit написал(а) к Mikhail Stakhanov в Mar 19 11:23:12 по местному времени:

Нi, Mikhail!

15 мар 19 17:00, Mikhail Stakhanov -> All:

MS> $priznak = 0;

Ну, что тебе неймется свой "$priznak" в эхе опубликовать? ;)

MS> for my $test1 (@robots)
MS> {

[...skipped...]

MS> ...
MS> Работает так:

[...skipped...]

MS> почесу цикл выполняется 3 раза ?

Где-то косяк. ;)

Показываю в последний раз. ;)

=== Import Windows Clipboard Start ===

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

sub filter()
{
if (!defined $area) {
# is netmail
# [...skipped...]
#--- copy my mail ---------------
if ((istous($toaddr) == 1 || istoaka($toaddr) == 1) && istorobots($toname) == 0) {
$mtext = $text;
# текст письма не трогаем!
$mtext =~ s/\x01INTL \d+\:\d+\/\d+ \d+\:\d+\/\d+\r//;
$mtext =~ s/\x01TOPT \d+\r//;
for my $d[b]addrr (@my[/b]aka){
if ( $fromaddr ne $d[b]addrr && $toaddr ne $d[/b]addrr) {
putMsgInArea( "NetMail", $fromname, $toname, $fromaddr,
$d_addrr, $subject, $date, $attr,
"\001Rem: copy to $d_addrr\r$mtext", 2 );
w_log("Message from \"$fromname $fromaddr\" copied ".
"to \"$d_addrr\"");
}
}
}
#--- copy my mail end ---------------
# [...skipped...]
}
}

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

sub istoaka()
{
local ($addrr) = @_;
for local $d[b]addr (@my[/b]aka){
if( $addrr eq $d_addr) {
return 1;
}
}
return 0;
}

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

=== Import Windows Clipboard End ===

Нave nice nights.
Brother Rabbit.

--- Свободная баба должна показывать сиськи. Замужняя не должна,но тоже вправе

Re: filer.pl
 

Mikhail Stakhanov написал(а) к Brother Rabbit в Mar 19 13:06:12 по местному времени:

Здравствуйте, Brother!

Ответ на сообщение Brother Rabbit (2:460/5858) к Mikhail Stakhanov, написанное 17 мар 19 в 11:23:
Спасибо!
Но я нашел еще 1н косяк!
Надо ставить
if (!$FRQ)
{

}
А то он у меня все Freq запихнул с 932.1 к 932, на 932.2 :)

Так что спасибо! Сегодня некогда, завтра окончательный вариант выложу!

Всего наилучшего, Mikhail
--- GoldED+/W32-MINGW 1.1.5-b20120519

filer.pl
 

Brother Rabbit написал(а) к Mikhail Stakhanov в Mar 19 09:37:42 по местному времени:

Нi, Mikhail!

17 мар 19 13:06, Mikhail Stakhanov -> Brother Rabbit:

MS> написанное 17 мар 19 в 11:23: Спасибо! Но я нашел еще 1н косяк! Надо
MS> ставить if (!$FRQ) {

MS> }
MS> А то он у меня все Freq запихнул с 932.1 к 932, на 932.2 :)

Фреки нужно до этого отлавливать, обрабатывать и удалять.

MS> Так что спасибо! Сегодня некогда, завтра окончательный вариант выложу!

Опять "$priznak" будешь всем показывать? ;)

Нave nice nights.
Brother Rabbit.

--- Хороший собеседник не только внимательно слушает, но и вовремя наливает.