--- /dev/null
+#!/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;
+}
+
+