From ec553c968339e68ba23a6f674aed1e9c32bfa1a3 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 24 Apr 2020 11:52:56 +0100 Subject: [PATCH] changed the default DXVars.pm.issue debug --- perl/DXProtHandle.pm | 5 +++-- perl/DXVars.pm.issue | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 82e90603..fdc0b054 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -225,9 +225,10 @@ sub handle_11 Spot::add(@spot); if (isdbg('progress')) { - my $s = sprintf "SPOT: $spot[1] on $spot[0] \@ %s by $spot[4]\@$spot[7]", cldatetime($spot[2]); + my $ip = ''; + $ip = sprintf "($spot[14])" if $spot[14]; + my $s = sprintf "SPOT: $spot[1] on $spot[0] \@ %s by $spot[4]$ip\@$spot[7]", cldatetime($spot[2]); $s .= " '$spot[3]'" if $spot[3]; - $s .= " from ip $spot[14]" if $spot[14]; dbg($s); } diff --git a/perl/DXVars.pm.issue b/perl/DXVars.pm.issue index ed19470c..afc8dbf7 100644 --- a/perl/DXVars.pm.issue +++ b/perl/DXVars.pm.issue @@ -43,7 +43,7 @@ $myemail = "qqq@gmail.com"; @my_cc = qw(); # are we debugging ? -@debug = qw(chan state msg cron connect); +@debug = qw(chan state msg cron connect progress nologchan); # are we doing xml? $do_xml = 0; -- 2.34.1