[gruntmaster-page.git] / lib / Gruntmaster / Page / Src.pm

package Gruntmaster::Page::Src;

use Gruntmaster::Page::Base;

use constant CONTENT_TYPES => +{
	c => 'text/x-csrc',
	cpp => 'text/x-c++src',
	cs => 'text/x-chsarp', # Used by GNOME. Not in mime.types.
	java => 'text/x-java',
	pas => 'text/x-pascal',
	pl => 'text/x-perl',
	py => 'text/x-python',
};

sub generate{
	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', 'X-Forever' => 1], [job_inmeta($job)->{files}{prog}{content}] ]
}

1
Commit	Line	Data
923655e1 MG	1	package Gruntmaster::Page::Src;
923655e1 MG	2
923655e1	3	use Gruntmaster::Page::Base;
923655e1 MG	4
	5	use constant CONTENT_TYPES => +{
	6	c => 'text/x-csrc',
	7	cpp => 'text/x-c++src',
	8	cs => 'text/x-chsarp', # Used by GNOME. Not in mime.types.
	9	java => 'text/x-java',
	10	pas => 'text/x-pascal',
	11	pl => 'text/x-perl',
	12	py => 'text/x-python',
	13	};
	14
	15	sub generate{
191f4979 MG	16	my ($self, $format, $env, $ct, $job, $ext) = @_;
191f4979 MG	17	debug $env => "Contest is $ct, job is $job and extension is $ext";
923655e1 MG	18	local $Gruntmaster::Data::contest = $ct if $ct;
923655e1 MG	19
49c1467a	20	[200, ['Content-Type' => CONTENT_TYPES->{$ext}, 'Cache-Control' => 'max-age=604800', 'X-Forever' => 1], [job_inmeta($job)->{files}{prog}{content}] ]
923655e1 MG	21	}
923655e1 MG	22
923655e1	23	1