X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdx.pl;h=5e9eec1ccf6e78a12a358b46eb11b7c51ff200f7;hb=88665a2bed3b9ec9e97237938a95a045b2a21bb4;hp=c946d76107b6a70f46ff0bcae4506888711ebe52;hpb=fe78618f23392a6ae58542b78cc4c8dbc84e71c5;p=spider.git diff --git a/cmd/dx.pl b/cmd/dx.pl index c946d761..5e9eec1c 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -43,7 +43,7 @@ if ($f[0] =~ /[A-Za-z]/) { } # make line the rest of the line -$line = $f[2]; +$line = $f[2] || " "; @f = split /\s+/, $line; # bash down the list of bands until a valid one is reached @@ -100,6 +100,7 @@ if (grep $_ eq $spotted, @DXProt::baddx) { my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter); push @out, $buf; } else { + return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, $main::systime, $line); my @spot = Spot::add($freq, $spotted, $main::systime, $line, $spotter, $main::mycall); if (@spot) { # send orf to the users @@ -108,3 +109,8 @@ if (grep $_ eq $spotted, @DXProt::baddx) { } return (1, @out); + + + + +