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

package Gruntmaster::Page::CSS;

use Gruntmaster::Page::Base;
use CSS::Minifier::XS qw/minify/;

sub generate{
	my ($self, $format, $env, $theme) = @_;
	debug $env => "theme is $theme";
	return [404, ['Content-Type' => 'text/plain'], [ 'Not found' ]] unless -e "css/themes/$theme.css";
	my $css = read_file "css/themes/$theme.css";
	$css .= read_file $_ for <css/*.css>;
	[200, ['Content-Type' => 'text/css', 'Cache-Control' => 'public, max-age=604800', 'X-Forever' => 1], [minify $css] ]
}

1
Commit	Line	Data
7dc32473 MG	1	package Gruntmaster::Page::CSS;
7dc32473 MG	2
7dc32473	3	use Gruntmaster::Page::Base;
7dc32473 MG	4	use CSS::Minifier::XS qw/minify/;
	5
	6	sub generate{
191f4979 MG	7	my ($self, $format, $env, $theme) = @_;
191f4979 MG	8	debug $env => "theme is $theme";
5a2112d3	9	return [404, ['Content-Type' => 'text/plain'], [ 'Not found' ]] unless -e "css/themes/$theme.css";
7dc32473 MG	10	my $css = read_file "css/themes/$theme.css";
7dc32473 MG	11	$css .= read_file $_ for <css/*.css>;
49c1467a	12	[200, ['Content-Type' => 'text/css', 'Cache-Control' => 'public, max-age=604800', 'X-Forever' => 1], [minify $css] ]
7dc32473 MG	13	}
7dc32473 MG	14
7dc32473	15	1