pas => 'text/x-pascal',
pl => 'text/x-perl',
py => 'text/x-python',
+ rb => 'application/x-ruby',
l => 'text/plain',
};
PASCAL => 'pas',
PERL => 'pl',
PYTHON => 'py',
+ RUBY => 'rb',
SBCL => 'l',
};
},
sub (/pb/ + ?:owner~&:contest~&:private~) {
forbid $_{private};
+ forbid contest && contest->is_pending;
response pb => 'Problems', db->problem_list(%_)
},