};
sub generate{
- my ($self, $format, $logger, $ct, $job, $ext) = @_;
- debug $logger => "Contest is $ct, job is $job and extension is $ext";
+ my ($self, $format, $env, $ct, $job, $ext) = @_;
+ debug $env => "Contest is $ct, job is $job and extension is $ext";
local $Gruntmaster::Data::contest = $ct if $ct;
- [200, ['Content-Type' => CONTENT_TYPES->{$ext}, 'Cache-Control' => 'max-age=604800'], [job_inmeta($job)->{files}{prog}{content}] ]
+ [200, ['Content-Type' => CONTENT_TYPES->{$ext}, 'Cache-Control' => 'max-age=604800', 'X-Forever' => 1], [job_inmeta($job)->{files}{prog}{content}] ]
}
sub variants{ [[file => 1, undef, undef, undef, undef, undef]] }