From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 19 Nov 2007 01:09:27 +0000 (+0000)
Subject: (re)fix the final hole in the PC9x TS checking code
X-Git-Tag: 1.55~31
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=bdf68641f4da1ba7b9f370a1ec9a7f46bf0fead8;p=spider.git

(re)fix the final hole in the PC9x TS checking code

Silly me, not bothering to simulate all possibilities. At least
what is there now makes some sense (which it didn't before).
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index b1726e98..c15f4939 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1536,6 +1536,13 @@ sub check_pc9x_t
 				} elsif ($t == $lastid) {
 					dbg("PCPROT: dup id on $t == lastid $lastid, ignored") if isdbg('chanerr') || isdbg('pc92dedupe');
 					return undef;
+				} else {
+					# check that if we have a low number in lastid that yesterday's numbers
+					# (likely in the 85000+ area) don't override them, thus causing flip flopping
+					if ($lastid+86400-$t < $pc9x_past_age) {
+						dbg("PCPROT: dup id on $t in yesterday, lastid $lastid, ignored") if isdbg('chanerr') || isdbg('pc92dedupe');
+						return undef;
+					}
 				}
 			}
 		}
diff --git a/perl/Version.pm b/perl/Version.pm
index 886f453d..45c03f17 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '188';
+$build = '189';
 
 1;