- sub (/log/ + ?:contest~&:owner~&:page~&:problem~) { response log => 'Job list', {%{db->job_list(%_)}, maybe contest => $_{contest}} },
- sub (/pb/ + ?:owner~&:contest~) { response pb => 'Problems', {%{db->problem_list(%_)}, maybe contest => $_{contest}} },
+ sub (/log/ + ?:contest~&:owner~&:page~&:problem~&:private~) {
+ forbid $_{private};
+ response log => 'Job list', {%{db->job_list(%_)}, maybe contest => $_{contest},}
+ },
+ sub (/pb/ + ?:owner~&:contest~&:private~) {
+ forbid $_{private};
+ response pb => 'Problems', {%{db->problem_list(%_)}, maybe contest => $_{contest}}
+ },