[Husky-cvs] hpt/misc pong.pl,1.2,1.3

[Stas D. <sta...@us...>]

Update of /cvsroot/husky/hpt/misc
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv11351

Modified Files:
	pong.pl 
Log Message:
fix log message

Index: pong.pl
===================================================================
RCS file: /cvsroot/husky/hpt/misc/pong.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- pong.pl	26 Dec 2006 12:43:54 -0000	1.2
+++ pong.pl	26 Dec 2006 13:03:36 -0000	1.3
@@ -35,7 +35,7 @@
    my $report_tearline="$Id[1] $Id[2] $Id[3] $Id[4]";
    undef @Id;
 
-   w_log('C',"*** Make PONG to PING reqiest: area=%s; toname=$toname; toaddr=$toaddr fromname=$fromname; fromaddr=$fromaddr", (length($area)==0)? "netmail":$area );
+   w_log('C',"Make PONG to PING reqiest: area=".((length($area)==0)? "netmail":$area)."; toname=$toname; toaddr=$toaddr fromname=$fromname; fromaddr=$fromaddr" );
 
 # $text contains original message and must be left as is
    $msgtext = $text;
@@ -53,7 +53,7 @@
    ." * Origin: Ping-pong robot at ($myaddr)\r";
    my $err= putMsgInArea($area,"Ping-Pong Robot",$fromname,$myaddr,$fromaddr,
                 "PONG: ".$subject,"","Uns Loc Pvt K/s",$msgtext,1);
-   if( defined($err) ) w_log('A',"Can't make new message: $err");
+   if( defined($err) ){ w_log('A',"Can't make new message: $err"); }
  }
  return "";
 }