X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdx.pl;h=75ba77dc866e8a0152d918a1ce514a9c6660186a;hb=329702a31bd4a526077c713b12ede457276c79db;hp=7684542eb19251f1d87dafa8253232f4b8bea4e9;hpb=0bd9d2811cc42417676a1b11b121681c2377d70a;p=spider.git diff --git a/cmd/dx.pl b/cmd/dx.pl index 7684542e..75ba77dc 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -15,6 +15,7 @@ my $spotted; my $freq; my @out; my $valid = 0; +return (1, $self->msg('e5')) if $self->remotecmd; # do we have at least two args? return (1, $self->msg('dx2')) unless @f >= 2; @@ -97,9 +98,10 @@ $line =~ s/\^/:/og; # Store it here (but only if it isn't baddx) if (grep $_ eq $spotted, @DXProt::baddx) { - my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter); + my $buf = Spot::formatb($self->user->wantgrid, $freq, $spotted, $main::systime, $line, $spotter); push @out, $buf; } else { + return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, (int ($main::systime/60)) * 60, $line); my @spot = Spot::add($freq, $spotted, $main::systime, $line, $spotter, $main::mycall); if (@spot) { # send orf to the users @@ -108,3 +110,8 @@ if (grep $_ eq $spotted, @DXProt::baddx) { } return (1, @out); + + + + +