X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdx.pl;h=a4ea8464b8a807b669e58ce4d7a31429221142bb;hb=55f14d9038abb44d61ac63298f9f39b9e53a39d1;hp=c25e5df07c533a12cc283e30fd91edd2aff39c9e;hpb=0e49d2c191786b825674e0cca106eef004c99899;p=spider.git diff --git a/cmd/dx.pl b/cmd/dx.pl index c25e5df0..a4ea8464 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -103,11 +103,12 @@ if (grep $_ eq $spotted, @DXProt::baddx) { 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::prepare($freq, $spotted, $main::systime, $line, $spotter, $main::mycall); + my $t = (int ($main::systime/60)) * 60; + return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, $t, $line); + my @spot = Spot::prepare($freq, $spotted, $t, $line, $spotter, $main::mycall); if (@spot) { # store it - Spot::add(@out); + Spot::add(@spot); # send orf to the users DXProt::send_dx_spot($self, DXProt::pc11($spotter, $freq, $spotted, $line), @spot);