X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Ftest_lastid.pl;fp=perl%2Ftest_lastid.pl;h=1bd0ea3b8fd5020ee53cae64f77f17e914c80050;hb=f4c54c5174d50224a745d5ed71ad1563a9440083;hp=0000000000000000000000000000000000000000;hpb=6ca24487551f66211b94d8a719e482ee3af81a29;p=spider.git

diff --git a/perl/test_lastid.pl b/perl/test_lastid.pl
new file mode 100755
index 00000000..1bd0ea3b
--- /dev/null
+++ b/perl/test_lastid.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+my $pc9x_past_age = 3600;
+my $pc9x_future_age = 3600*2;
+my $lastid;
+
+try($_) for qw(85955 85968 518 85967 519 85968 520 85969), @ARGV;
+
+exit 0;
+
+sub try
+{
+	my $t = shift;
+
+	print "$t : ";
+
+	if (defined $lastid) {
+		if ($t < $lastid) {
+			my $wt;
+			if (($wt = $t+86400-$lastid) > $pc9x_past_age) {
+				print "PCPROT: dup id on $t + 86400 - $lastid ($wt) > $pc9x_past_age, ignored\n";
+				return;
+			}
+			print "wt = $wt ";
+		} elsif ($t == $lastid) {
+			print "PCPROT: dup id on $t == $lastid, ignored\n";
+			return;
+		} elsif ($t > $lastid) {
+			if ($t - $lastid > $pc9x_future_age) {
+				print "PCPROT: dup id $t too far in future on $lastid\n";
+				return;
+			}
+		}
+	}
+
+	print "$lastid Ok\n";
+	$lastid = $t;
+}
+
+