X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdx.pl;h=97ed605f40000c326d33f8380e3c52731560ee52;hb=6d0ecd3545795aecacff640efc5ccc4e01be892b;hp=c18a2df372f9d7751e8df8adcc7182a611b8ab64;hpb=1935ba236a7ef4999bceb00b6faf28038f3b052e;p=spider.git diff --git a/cmd/dx.pl b/cmd/dx.pl index c18a2df3..97ed605f 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -141,6 +141,8 @@ my $t = (int ($main::systime/60)) * 60; return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, $t, $line, $spotter); my @spot = Spot::prepare($freq, $spotted, $t, $line, $spotter, $main::mycall, $ipaddr); +#$DB::single = 1; + if ($freq =~ /^69/ || $localonly) { # heaven forfend that we get a 69Mhz band :-) @@ -149,21 +151,24 @@ if ($freq =~ /^69/ || $localonly) { } $self->dx_spot(undef, undef, @spot); + return (1); } else { - if (@spot) { - # store it - Spot::add(@spot); - # send orf to the users - my $spot; - - if ($ipaddr) { - $spot = DXProt::pc61($spotter, $freq, $spotted, $line, $ipaddr); - } else { - $spot = DXProt::pc11($spotter, $freq, $spotted, $line); - } + my $spot; + if ($ipaddr) { + $spot = DXProt::pc61($spotter, $freq, $spotted, $line, $ipaddr); + } else { + $spot = DXProt::pc11($spotter, $freq, $spotted, $line); + } + + $self->dx_spot(undef, undef, @spot); + if ($self->isslugged) { + push @{$self->{sluggedpcs}}, [61, $spot, \@spot]; + } else { + # store in spots database + Spot::add(@spot); DXProt::send_dx_spot($self, $spot, @spot); } }