Regenerate standings and log after job

[gruntmaster-daemon.git] / lib / Gruntmaster / Daemon.pm

diff --git a/lib/Gruntmaster/Daemon.pm b/lib/Gruntmaster/Daemon.pm
index 4adf80178eb93c868d6b92488916de990ccd63e2..ed8e405ae37f603a30f495701aa456426a056759 100644 (file)
--- a/lib/Gruntmaster/Daemon.pm
+++ b/lib/Gruntmaster/Daemon.pm
@@ -8,7 +8,7 @@ our $VERSION = '0.001';
 
 use Gruntmaster::Daemon::Constants qw/ERR/;
 use Gruntmaster::Daemon::Format qw/mkrun/;
-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::Data;
 use Gruntmaster::Page::Log;
 
 use File::Basename qw/fileparse/;
@@ -132,8 +132,12 @@ sub process{
   my $log = $meta->{contest} ? "ct/$meta->{contest}/log" : 'log';
   PUBLISH gensrc => $job;
   PUBLISH genpage => "$log/job/$job.html";
+  PUBLISH genpage => "$log/index.html";
+  PUBLISH genpage => "$log/st.html";
   my $page = ($job + Gruntmaster::Page::Log::PAGE_SIZE - 1) / Gruntmaster::Page::Log::PAGE_SIZE;
-  PUBLISH genpage => "$log/$page.html"
+  PUBLISH genpage => "$log/@{[$page - 1]}.html";
+  PUBLISH genpage => "$log/$page.html";
+  PUBLISH genpage => "$log/@{[$page + 1]}.html";
 }
 
 sub got_job{