use strict;
use warnings;
-our $VERSION = '5999.000_003';
+our $VERSION = '5999.000_004';
use Gruntmaster::Daemon::Constants qw/ERR/;
use Gruntmaster::Daemon::Format qw/prepare_files/;
use constant FORMAT_EXTENSION => {
C => 'c',
CPP => 'cpp',
+ GCCGO => 'go',
+ GOLANG => 'go',
+ HASKELL => 'hs',
MONO => 'cs',
JAVA => 'java',
PASCAL => 'pas',
$errors ? (errors => $errors) : ()
});
+ my $solved = $meta->{result} ? 0 : 1;
+ my $status = $db->problem_statuses->find($jobr->owner, $jobr->problem);
+ $db->problem_statuses->update_or_create({
+ problem => $jobr->problem,
+ owner => $jobr->owner,
+ job => $jobr->id,
+ solved => $solved});
+
my $log = $jobr->contest ? 'ct/' . $jobr->contest->id . '/log' : 'log';
my $page = int (($job + PAGE_SIZE - 1) / PAGE_SIZE);