remap & recived
Michael Dukelsky написал(а) к Brother Rabbit в Jan 19 18:05:08 по местному времени:
Привет, Brother!
21 Jan 19 15:44, Michael Dukelsky послал(а) письмо к Brother Rabbit:
MD> Дело не в "красивше".
Чтобы не быть голословным, переписал твой скрипт в соответствии со своим предыдущим письмом. Написанное не проверял.
my @dest_addr=
(
2:460/5858,
2:460/58.58,
2:460/58.10,
);
sub filter()
{
if (!defined $area)
{
# 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 $destaddress (@destaddr)
{
if ( $fromaddr ne $dest_address )
{
putMsgInArea( "NetMail", $fromname, $toname, $fromaddr,
$dest_address, $subject, $date, $attr,
"\001Rem: copy to $dest_address\r$text", 2 );
$change = 1;
}
}
}
}
#--- copy my mail end ---------------
}
}
Желаю успехов, Brother!
За сим откланиваюсь, Michael.
... node (at) f1042 (dot) ru
--- GoldED+/LNX 1.1.5-b20170303
|