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

package Gruntmaster::Page::Src;

use 5.014000;
use strict;
use warnings;
use Gruntmaster::Page::Base;
our @ISA = qw/Gruntmaster::Page::Base/;
our $VERSION = '0.001';

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