- $line =~ s/^\s*$f[0]\s+$f[1]\s+//;
- $line = $f[2];
- @f = split /\s+/, $line;
+ $line =~ s/\s*$f[0]\s+$f[1]\s+//;
+# $line = $f[2];
+ @f = split /\s+/, $line, 3;
-return (1, $self->msg('dupspot')) if Spot::dup($freq, $spotted, $t, $line, $spotter);
+return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, $t, $line, $spotter);
my @spot = Spot::prepare($freq, $spotted, $t, $line, $spotter, $main::mycall);
if ($DXProt::baddx->in($spotted) || $freq =~ /^69/ || $localonly) {
my @spot = Spot::prepare($freq, $spotted, $t, $line, $spotter, $main::mycall);
if ($DXProt::baddx->in($spotted) || $freq =~ /^69/ || $localonly) {