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 (/login) {
forbid !remote_user;
-
- my $return = $env->{HTTP_REFERER} // '/';
- [303, ['Set-Cookie' => "username=".remote_user->id, Location => $return], []]
+ [200, ['Content-Type' => 'text/plain; charset=UTF-8', 'Cache-Control' => 'private, max-age=300', Vary => 'Authorization'], [$env->{REMOTE_USER}]]
},
sub (/ct/:contest/log/st) { redirect "/st/$_{contest}" },
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 && contest->is_pending;
response pb => 'Problems', db->problem_list(%_)
},