From 7bf828b924d7d1ddc7c81e65d816bdc36f55a92f Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 5 Sep 2005 21:24:07 +0000
Subject: [PATCH] fix WWV brodacasting and filtering

---
 Changes        | 5 +++++
 perl/DXProt.pm | 9 +++++----
 perl/DXUser.pm | 2 +-
 perl/Geomag.pm | 4 ++--
 4 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index 770879b7..a26d9141 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,8 @@
+01Sep05=======================================================================
+1. Change the logic of propagating WWV broadcasts. Now all non-input filtered
+PC23s will be sent on. Previously only the first successful new WWV was 
+rebroadcast.
+2. fix the problem with by_dxcc and origin_dxcc not working on WWV.
 29Aug05=======================================================================
 1. try something else to resolve/prevent more of these spot dupes. It appears
 that there is software out there chopping off variable amounts from the ends
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5bf0d1f9..a7ef5562 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1236,21 +1236,22 @@ sub handle_23
 	}
 
 	# global wwv filtering on INPUT
-	my @dxcc = ((Prefix::cty_data($_[6]))[0..2], (Prefix::cty_data($_[7]))[0..2]);
+	my @dxcc = ((Prefix::cty_data($_[7]))[0..2], (Prefix::cty_data($_[8]))[0..2]);
 	if ($self->{inwwvfilter}) {
 		my ($filter, $hops) = $self->{inwwvfilter}->it(@_[7,8], $origin, @dxcc);
 		unless ($filter) {
-			dbg("PCPROT: Rejected by input spot filter") if isdbg('chanerr');
+			dbg("PCPROT: Rejected by input wwv filter") if isdbg('chanerr');
 			return;
 		}
 	}
-	if (Geomag::dup($d,$sfi,$k,$i,$_[6])) {
+	if (Geomag::dup($d,$sfi,$k,$i,$_[6],$_[7])) {
 		dbg("PCPROT: Dup WWV Spot ignored\n") if isdbg('chanerr');
 		return;
 	}
 	$_[7] =~ s/-\d+$//o;		# remove spotter's ssid
 		
-	my $wwv = Geomag::update($d, $_[2], $sfi, $k, $i, @_[6..8], $r);
+	# note this only takes the first one it gets
+	Geomag::update($d, $_[2], $sfi, $k, $i, @_[6..8], $r);
 
 	my $rep;
 	eval {
diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 8b856b13..136ddee1 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -491,7 +491,7 @@ print "There are $count user records and $err errors\n";
 			my $ref = decode($val);
 			if ($ref) {
 				my $t = $ref->{lastin} || 0;
-				if ($main::systime > $t + $tooold) {
+				if ($ref->{sort} eq 'U' && !$ref->{priv} && $main::systime > $t + $tooold) {
 					unless ($ref->{lat} && $ref->{long} || $ref->{qth} || $ref->{qra}) {
 						eval {$dbm->del($key)};
 						dbg(carp("Export Error2: $key\t$val\n$@")) if $@;
diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index b1985f05..022c4519 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -268,12 +268,12 @@ sub readfile
 # enter the spot for dup checking and return true if it is already a dup
 sub dup
 {
-	my ($d, $sfi, $k, $a, $text) = @_; 
+	my ($d, $sfi, $k, $a, $text, $call) = @_; 
 
 	# dump if too old
 	return 2 if $d < $main::systime - $dupage;
  
-	my $dupkey = "W$d|$sfi|$k|$a";
+	my $dupkey = "W$d|$sfi|$k|$a|$call";
 	return DXDupe::check($dupkey, $main::systime+$dupage);
 }
 
-- 
2.43.0