if (exists $meta->{infile}) {
write_file 'input', $meta->{infile}[$test - 1]
} else {
- copy "/var/lib/gruntmasterd/pb/$meta->{problem}/$test.in", 'input'
+ my $ct = defined $Gruntmaster::Data::contest ? "ct/$Gruntmaster::Data::contest" : '';
+ copy "/var/lib/gruntmasterd/$ct/pb/$meta->{problem}/$test.in", 'input'
}
}
if (exists $meta->{okfile}) {
$ok = $meta->{okfile}[$test - 1]
} else {
- $ok = slurp "/var/lib/gruntmasterd/pb/$meta->{problem}/$test.ok"
+ my $ct = defined $Gruntmaster::Data::contest ? "ct/$Gruntmaster::Data::contest" : '';
+ $ok = slurp "/var/lib/gruntmasterd/$ct/pb/$meta->{problem}/$test.ok"
}
$out =~ s/^\s+//;