projects
/
gruntmaster-daemon.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support getting infiles/okfiles from the filesystem
[gruntmaster-daemon.git]
/
lib
/
Gruntmaster
/
Daemon
/
Generator
/
File.pm
diff --git
a/lib/Gruntmaster/Daemon/Generator/File.pm
b/lib/Gruntmaster/Daemon/Generator/File.pm
index 601ea9968b6cb2ab70b2635016d17e33fde6b7da..fb1dc5e8d900ac2b32550a81abd7768b61aa0185 100644
(file)
--- a/
lib/Gruntmaster/Daemon/Generator/File.pm
+++ b/
lib/Gruntmaster/Daemon/Generator/File.pm
@@
-4,6
+4,7
@@
use 5.014000;
use strict;
use warnings;
use strict;
use warnings;
+use File::Copy qw/copy/;
use File::Slurp qw/write_file/;
use Log::Log4perl qw/get_logger/;
use File::Slurp qw/write_file/;
use Log::Log4perl qw/get_logger/;
@@
-14,7
+15,11
@@
our $VERSION = "5999.000_001";
sub generate{
my ($test, $meta) = @_;
get_logger->trace("Generating test $test ...");
sub generate{
my ($test, $meta) = @_;
get_logger->trace("Generating test $test ...");
- write_file 'input', $meta->{infile}[$test - 1]
+ if (exists $meta->{infile}) {
+ write_file 'input', $meta->{infile}[$test - 1]
+ } else {
+ copy "/var/lib/gruntmasterd/pb/$meta->{problem}/$test.in", 'input'
+ }
}
1;
}
1;
This page took
0.010543 seconds
and
4
git commands to generate.