X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=4d87be3723e2317d8b7d6718da37dd9bfb66ed55;hb=519f5b39d7b1a035aff12a7ceda4f135b2db1d93;hp=92f705523a364652c2320ef37814ef9548f42905;hpb=da65011693cc9a7a33f09424f7a19a51937d986c;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index 92f70552..4d87be37 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -169,13 +169,13 @@ sub prepare my @out = @_[0..4]; # just up to the spotter # normalise frequency - $_[0] = sprintf "%.1f", $_[0]; + $out[0] = sprintf "%.1f", $out[0]; # remove ssids and /xxx if present on spotter $out[4] =~ s/-\d+$//o; # remove leading and trailing spaces - $_[3] = unpad($_[3]); + $out[3] = unpad($out[3]); # add the 'dxcc' country on the end for both spotted and spotter, then the cluster call @@ -407,6 +407,7 @@ sub dup } } my $otext = $text; + $text =~ s/^\+\w+\s*//; # remove leading LoTW callsign $text = pack("C*", map {$_ & 127} unpack("C*", $text)); $text =~ s/\s{2,}[\dA-Z]?[A-Z]\d?$// if length $text > 24; $text =~ s/[^\w]//g;