use Gruntmaster::Daemon::Constants qw/ERR/;
use Gruntmaster::Daemon::Format qw/mkrun/;
-use Gruntmaster::Page qw/generate/;
use Gruntmaster::Data qw/job_inmeta job_problem problem_meta set_job_daemon set_job_result set_job_result_text set_job_results SUBSCRIBE WAIT_FOR_MESSAGES/;
+use Gruntmaster::Page::Log;
use File::Basename qw/fileparse/;
use File::Slurp qw/write_file/;
use Try::Tiny;
use YAML::Any qw/LoadFile DumpFile/;
use Log::Log4perl qw/get_logger/;
-use Data::Dumper qw/Dumper/;
##################################################
}
prepare_files $meta;
- say Dumper $meta;
my ($files, $generator, $runner, $judge, $testcnt) = map { $meta->{$_} or die "Required parameter missing: $_"} qw/files generator runner judge testcnt/;
set_job_results $job, \@full_results if scalar @full_results;
my $log = $meta->{contest} ? "ct/$meta->{contest}/log" : 'log';
- write_file "$log/src/$job." . Gruntmaster::Page::Log::FORMAT_EXTENSION->{$meta->{files}{prog}{format}}, $meta->{files}{prog}{content};
- generate "$log/job/$job.html";
+ PUBLISH gensrc => $job;
+ PUBLISH genpage => "$log/job/$job.html";
+ PUBLISH genpage => "$log/index.html";
my $page = ($job + Gruntmaster::Page::Log::PAGE_SIZE - 1) / Gruntmaster::Page::Log::PAGE_SIZE;
- generate "$log/$page.html"
+ PUBLISH genpage => "$log/$page.html"
}
sub got_job{
}
sub run{
- Log::Log4perl->init('/etc/gruntmasterd-log.conf');
+ Log::Log4perl->init('/etc/gruntmasterd/gruntmasterd-log.conf');
get_logger->info("gruntmasterd $VERSION started");
chdir tempdir 'gruntmasterd.XXXX', CLEANUP => 1, TMPDIR => 1;
SUBSCRIBE jobs => \&got_job;