Hello Tommi,

Saturday August 20 2016, Tommi Koivula wrote to Stas Degteff:

 TK> 20 Aug 16 12:22, Pong Robot wrote to Postmaster:

 PW>> {at}INTL 2:221/360 2:221/1
 PW>> {at}FMPT 1
 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. ;)

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

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

Michael

... node (at) f1042 (dot) ru
--- GoldED+/LNX 1.1.5-b20151128