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
