[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, $job, $ext) = @_;
	debug $env => "Job is $job and extension is $ext";

	[200, ['Content-Type' => CONTENT_TYPES->{$ext}, 'Cache-Control' => 'max-age=604800', 'X-Forever' => 1], [db($env)->job($job)->source] ]
}

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{
dfc00182 MG	16	my ($self, $format, $env, $job, $ext) = @_;
dfc00182 MG	17	debug $env => "Job is $job and extension is $ext";
923655e1	18
d3200993	19	[200, ['Content-Type' => CONTENT_TYPES->{$ext}, 'Cache-Control' => 'max-age=604800', 'X-Forever' => 1], [db($env)->job($job)->source] ]
923655e1 MG	20	}
923655e1 MG	21
923655e1	22	1