use File::Slurp qw/write_file/;
use Log::Log4perl qw/get_logger/;
-our $VERSION = "5999.000_001";
+our $VERSION = "5999.000_002";
##################################################
sub generate{
- my ($test, $meta) = @_;
- get_logger->trace("Generating test $test ...");
- if (exists $meta->{infile}) {
- write_file 'input', $meta->{infile}[$test - 1]
- } else {
- copy "/var/lib/gruntmasterd/pb/$meta->{problem}/$test.in", 'input'
- }
+ my ($test, $meta) = @_;
+ get_logger->trace("Generating test $test ...");
+ if (exists $meta->{infile}) {
+ write_file 'input', $meta->{infile}[$test - 1]
+ } else {
+ my $ct = defined $Gruntmaster::Data::contest ? "ct/$Gruntmaster::Data::contest" : '';
+ copy "/var/lib/gruntmasterd/$ct/pb/$meta->{problem}/$test.in", 'input'
+ }
}
1;