X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=ae773e12f53cd5dfc34c1574603e28ba452e52c5;hb=72568e838d146250a78fea19bd4bbafc760e6a49;hp=06bf86557b5763d4637a4f93302190897c51a1af;hpb=765add8acca099e69f2b2cde2bb58a48a00852d3;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index 06bf8655..ae773e12 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -123,12 +123,12 @@ sub prepare # add the 'dxcc' country on the end for both spotted and spotter, then the cluster call my @dxcc = Prefix::extract($out[1]); - my $spotted_dxcc = (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0; + my $spotted_dxcc = (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 666; my $spotted_itu = (@dxcc > 0 ) ? $dxcc[1]->itu() : 0; my $spotted_cq = (@dxcc > 0 ) ? $dxcc[1]->cq() : 0; push @out, $spotted_dxcc; @dxcc = Prefix::extract($out[4]); - my $spotter_dxcc = (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0; + my $spotter_dxcc = (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 666; my $spotter_itu = (@dxcc > 0 ) ? $dxcc[1]->itu() : 0; my $spotter_cq = (@dxcc > 0 ) ? $dxcc[1]->cq() : 0; push @out, $spotter_dxcc;