diff --git a/count-points.pl b/count-points.pl index f9b9a62..d441a53 100755 --- a/count-points.pl +++ b/count-points.pl @@ -37,6 +37,62 @@ for my $report (@reports) { outro($total); +my %to_hashes = map { $_ => 1 } split/\n/,<<'END_OF_HASHES'; +2982763 +2982861 +2982882 +2983113 +2983141 +2983337 +3025421 +3042368 +3042564 +3042571 +3042613 +3042697 +3042704 +3042732 +3042753 +3042774 +3042788 +3042795 +3042865 +3042893 +3042907 +3042949 +3042963 +3043040 +3043047 +3043061 +3043082 +3043110 +3043124 +3043145 +3043180 +3043187 +3043194 +3043208 +3043215 +3043362 +3043432 +3043439 +3043488 +3043502 +3043516 +3043537 +3043579 +3043607 +3043628 +3043635 +3043649 +3043656 +3043684 +3043761 +3083822 +3083885 +3096331 +END_OF_HASHES + sub get_student_id { my $pwd = cwd(); @@ -143,7 +199,9 @@ sub check_deadline { if ($last_timestamp =~ m{\S}) { chomp $last_timestamp; - if ($last_timestamp gt $deadline) { + if ($last_timestamp gt $deadline + and not ($task_id !~ m{Task(A|X0[123])} + and exists $to_hashes{$student_id * 7})) { print " TOO LATE [$file: $last_timestamp later than $deadline]"; return 0; }