3 my $pc9x_past_age = 3600;
4 my $pc9x_future_age = 3600*2;
7 try($_) for qw(85955 85968 518 85967 519 85968 520 85969), @ARGV;
17 if (defined $lastid) {
20 if (($wt = $t+86400-$lastid) > $pc9x_past_age) {
21 print "PCPROT: dup id on $t + 86400 - $lastid ($wt) > $pc9x_past_age, ignored\n";
25 } elsif ($t == $lastid) {
26 print "PCPROT: dup id on $t == $lastid, ignored\n";
28 } elsif ($t > $lastid) {
29 if ($t - $lastid > $pc9x_future_age) {
30 print "PCPROT: dup id $t too far in future on $lastid\n";