20 Aug 16 14:23, you wrote to me:

 PW>>> {at}FLAGS A/S DIR ZON HUB IMM XMA KFS TFS LOK CFM HIR COV SIG LET
 PW>>> {at}MSGID: 2:221/1.1 57b82138
 PW>>> {at}TID: hpt/w64-mvcdll 1.9.0-cur 24-06-16

 PW>>> This is an answer to PING request sent at 20 Aug 16  12:21:46 by
 PW>>> Postmaster:

 PW>>> ==== begin of request body ====

 TK>>  ..

 PW>>> --- pong.pl,v 1.6 2010/02/01 23:47:21

 TK>> Hi Stas and All!

 TK>> Any idea how I can change the ^AFLAGS kludge of the reply created by
 TK>> 'pong.pl' ? It is pretty insane now. ;)

 MD> I do not use pong.pl so I cannot test it but please try such a patch:

 MD> -+- pong.pl.bak 2010-02-02 02:47:00.000000000 +0300
 MD> +++ pong.pl     2016-08-20 14:22:11.442121320 +0300
 MD> {at}{at} -57,7 +57,7 {at}{at}
 MD>     . "--- $report_tearline\r"
 MD>     my $err= putMsgInArea($area,$myname,$fromname,$myaddr,$fromaddr,
 MD> -                "PONG: ".$subject,"","Uns
Loc Pvt K/s cpt",$msgtext,1);
 MD> +                "PONG: ".$subject,"","Uns
Loc Pvt K/s",$msgtext,1);
 MD>     if( defined($err) ){ w_log('A',"Perl($file): Can't make new message:
 MD> $err"); }
 MD>     else{ open( FLAG, ">>$flagfile" ) &&
close(FLAG); }
 MD>   }

I removed the "cpt" but no help :(

What does the cpt mean, anyway?

'Tommi

---