From 7041df7e50995e06e2cd0becb28c1b0ba69fffe2 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 22 Dec 2021 21:30:28 +0000 Subject: [PATCH] Fix dx.pl Spot::dup typo --- cmd/dx.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/cmd/dx.pl b/cmd/dx.pl index f86b46a6..f1f72d4d 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -150,7 +150,7 @@ return (1, @out) unless $valid; # Store it here (but only if it isn't baddx) my $t = (int ($main::systime/60)) * 60; -return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, $t, $line, $spotter); +return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, $t, $line, $spotter, $main::mycall); my @spot = Spot::prepare($freq, $spotted, $t, $line, $spotter, $main::mycall, $ipaddr); #$DB::single = 1; @@ -168,7 +168,7 @@ if ($freq =~ /^69/ || $localonly) { } else { # send orf to the users $ipaddr ||= $main::mycall; # emergency backstop - my $spot = DXProt::pc61($spotter, $freq, $spotted, $line, $ipaddr); + my $spot = DXProt::pc61($spotter, $freq, $spotted, $line, $ipaddr); $self->dx_spot(undef, undef, @spot); if ($self->isslugged) { @@ -184,5 +184,3 @@ return (1, @out); - - -- 2.34.1