Fix dx.pl Spot::dup typo

diff --git a/cmd/dx.pl b/cmd/dx.pl
index f86b46a681c00299ba77d5efbc7e596123b01d16..f1f72d4d5a7ada3eed523966fea020d4ccf5cca0 100644 (file)
--- 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);
 
 
 
-
-