use constant USER_REGEX => qr/^\w{2,20}$/a;
-use constant CONTENT_TYPES => +{
- c => 'text/x-csrc',
- cpp => 'text/x-c++src',
- cs => 'text/x-csharp', # Used by GNOME. Not in mime.types.
- go => 'text/plain', # ?
- gs => 'text/plain',
- hs => 'text/x-haskell',
- java => 'text/x-java',
- pas => 'text/x-pascal',
- pl => 'text/x-perl',
- py => 'text/x-python',
- rb => 'application/x-ruby',
- l => 'text/plain',
-};
-
use constant FORMAT_EXTENSION => {
C => 'c',
CPP => 'cpp',
my $private = job->private || job->problem->private || job->contest && job->contest->is_running;
forbid !$isowner && $private;
my $privacy = $private ? 'private' : 'public';
- my @headers = ('X-Forever' => 1, 'Cache-Control' => "$privacy, max-age=604800", 'Content-Type' => CONTENT_TYPES->{job->extension});
+ my @headers = ('X-Forever' => 1, 'Cache-Control' => "$privacy, max-age=604800", 'Content-Type' => 'text/plain');
push @headers, (Vary => 'Authorization') if $private;
[200, \@headers, [job->source]]
},