$out[4] =~ s/-\d+$//o;
# remove leading and trailing spaces
- $_[3] = unpad($_[3]);
+ unpad($out[3]);
# add the 'dxcc' country on the end for both spotted and spotter, then the cluster call
sub add
{
- my $buf = join("\^", @_);
+ my $buf = join('^', @_);
$fp->writeunix($_[2], $buf);
$totalspots++;
if ($_[0] <= 30000) {