[200, \@headers, [job->source]]
},
- sub (?:contest=) {
- return NOT_FOUND if !contest;
- forbid contest->is_pending;
- response_filter { return shift }
- },
-
- sub (?:problem=) {
- return NOT_FOUND if !problem;
- forbid problem->private;
- response_filter { return shift }
- },
-
sub (?:format~) {
my $format = lc ($_{format} // '');
response_filter {
sub (/us/) { response us => 'Users', {us => db->user_list} },
sub (/ct/ + ?:owner~) { response ct => 'Contests', db->contest_list(%_) },
- sub (/log/ + ?:contest~&:owner~&:page~&:problem~&:private~) {
+ sub (/log/ + ?:contest~&:owner~&:page~&:problem~&:private~&:result~) {
forbid $_{private};
response log => 'Job list', {%{db->job_list(%_)}, maybe contest => $_{contest},}
},
sub (/pb/ + ?:owner~&:contest~&:private~) {
forbid $_{private};
+ forbid contest->is_pending;
response pb => 'Problems', db->problem_list(%_)
},