From e12684676deb425c533e895b5ae63b2b2e2b6891 Mon Sep 17 00:00:00 2001 From: djk Date: Tue, 19 Jan 1999 10:31:10 +0000 Subject: [PATCH] added mycall to locally generated spots in spot database --- cmd/dx.pl | 2 +- perl/Spot.pm | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/cmd/dx.pl b/cmd/dx.pl index 41c71c07..3a3d6cf0 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -81,7 +81,7 @@ return (1, @out) if !$valid; $line =~ s/\^/:/og; # Store it here -if (Spot::add($freq, $spotted, $main::systime, $line, $spotter)) { +if (Spot::add($freq, $spotted, $main::systime, $line, $spotter, $main::mycall)) { # send orf to the users my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter); DXProt::broadcast_users($buf, 'dx', $buf); diff --git a/perl/Spot.pm b/perl/Spot.pm index efdf16ed..3bc643cb 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -57,7 +57,6 @@ sub add push @out, (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0; push @out, $spot[5]; - my $buf = join("\^", @out); # compare dates to see whether need to open another save file (remember, redefining $fp -- 2.43.0