- if (ref $job) {
- $meta = $job;
- } else {
- $meta = {
- problem => $jobr->problem->id,
- files => {
- prog => {
- name => 'prog.' . $jobr->extension,
- format => $jobr->format,
- content => $jobr->source,
- },
- },
- map { $_ => $jobr->problem->get_column($_) } qw/generator runner judge testcnt timeout olimit/
- };
- $meta->{tests} = decode_json $jobr->problem->tests if $meta->{runner} eq 'File';
-
- $meta->{files}{ver} = {
- name => 'ver.' . FORMAT_EXTENSION->{$jobr->problem->verformat},
- format => $jobr->problem->verformat,
- content => $jobr->problem->versource,
- } if $jobr->problem->verformat;
- }
-