n_job rerun_problem take_job finish_job open_problem/;
our @EXPORT_OK = @EXPORT;
use JSON::MaybeXS qw/decode_json/;
use HTTP::Tiny;
use PerlX::Maybe qw/maybe/;
use DBI;
use DBIx::Simple;
use List::U
job_entry {
my $ret = _add_names _query(job_entry_sth => $_[0])->hash;
$ret->{results} = decode_json $ret->{results} if $ret->{results};
$ret
}
sub create_job {
my (%args) = @_;
$db->update('use
d_file write_file/;
use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ];
use JSON::MaybeXS qw/encode_json/;
use PerlX::Maybe;
use Term::ANSIColor qw/RED RESET/;
use constant LEVEL_VALUES =>
,
maybe versource => $versource,
maybe verformat => $verformat,
);
$options{tests} = encode_json \@tests if @tests;
db->insert(problems => \%options);
db->insert(contest_problems => {problem =