X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=82e906037c085ff42fb49f34e9b3f7db8565423d;hb=f6abc902d49e13eeca3ff50f84a74f28a3aa3390;hp=e108666c9283adad0cf6e4106369a3970ed53da5;hpb=55483e59b83bd5c514303f0955be5e0dddcbc320;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index e108666c..82e90603 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -224,6 +224,13 @@ sub handle_11
 	# add it
 	Spot::add(@spot);
 
+	if (isdbg('progress')) {
+		my $s = sprintf "SPOT: $spot[1] on $spot[0] \@ %s by $spot[4]\@$spot[7]", cldatetime($spot[2]);
+		$s .= " '$spot[3]'" if $spot[3];
+		$s .= " from ip $spot[14]" if $spot[14];
+		dbg($s);
+	}
+	
 	#
 	# @spot at this point contains:-
 	# freq, spotted call, time, text, spotter, spotted cc, spotters cc, orig node