Return 404 when the requested theme is not found

diff --git a/lib/Gruntmaster/Page/CSS.pm b/lib/Gruntmaster/Page/CSS.pm
index 0f4bf6a8193c88b2ee55f96d17285687670e0eaf..a6f647a5f924846cbabb0607893158c67acc2644 100644 (file)
--- a/lib/Gruntmaster/Page/CSS.pm
+++ b/lib/Gruntmaster/Page/CSS.pm
@@ -13,6 +13,7 @@ use CSS::Minifier::XS qw/minify/;
 sub generate{
        my ($self, $format, $logger, $theme) = @_;
        debug $logger => "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'], [minify $css] ]