From: djk Date: Tue, 19 Jan 1999 10:31:10 +0000 (+0000) Subject: added mycall to locally generated spots in spot database X-Git-Tag: R_1_23~1 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=e12684676deb425c533e895b5ae63b2b2e2b6891;p=spider.git added mycall to locally generated spots in spot database --- 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