autogenerate the CSS template file

Author: acme

CHANGES

@@ -1,5 +1,8 @@
 Revision history for Perl module CPAN::Mini::Webserver:
 
+0.44
+     - autogenerate the CSS template file
+
 0.43 Thu Sep 18 17:14:50 BST 2008
      - add an abstract to the Makefile.PL
      - add a human-readable license

MANIFEST

@@ -3,6 +3,7 @@ CHANGES
 lib/CPAN/Mini/Webserver.pm
 lib/CPAN/Mini/Webserver/Index.pm
 lib/CPAN/Mini/Webserver/Templates.pm
+lib/CPAN/Mini/Webserver/Templates/CSS.pm
 Makefile.PL
 MANIFEST			This list of files
 README

build_css.pl

@@ -0,0 +1,60 @@
+#!perl
+use strict;
+use warnings;
+use Cwd qw(cwd);
+use CSS::Squish;
+use File::Find::Rule;
+use File::Slurp;
+use Perl::Tidy;
+use Template;
+use YAML qw(LoadFile DumpFile);
+
+foreach my $filename ( File::Find::Rule->new->file->in('root/static/css') ) {
+    next if $filename =~ /my-screen\.css/;
+    unlink($filename) || die $!;
+}
+
+my $settings = 'blueprint_0.7.1/lib/settings.yml';
+my $conf     = LoadFile($settings);
+$conf->{cpanminiwebserver}->{path} = cwd . '/root/static/css/';
+DumpFile( $settings, $conf );
+use YAML;
+
+system "cd blueprint_0.7.1/lib && ruby compress.rb -p cpanminiwebserver";
+
+die "CSS files not generated" unless -f 'root/static/css/screen.css';
+
+my $template = q{package CPAN::Mini::Webserver::Templates::CSS;
+use strict;
+use warnings;
+use Template::Declare::Tags;
+use base 'Template::Declare';
+
+[% FOREACH file IN files %]
+  [% name = file.0 %]
+  [% css = file.1 %]
+template 'css_[% name %]' => sub {
+my $self = shift;
+my $css = <<'END';
+[% css %]
+END
+outs_raw $css;
+};
+[% END %]
+
+1;
+};
+
+my $tt = Template->new;
+$tt->process(
+    \$template,
+    {   files => [
+            [ 'ie'     => scalar read_file('root/static/css/ie.css') ],
+            [ 'print'  => scalar read_file('root/static/css/print.css') ],
+            [ 'screen' => scalar read_file('root/static/css/screen.css') ],
+        ],
+    },
+    \my $perl,
+) || die $template->error();
+Perl::Tidy::perltidy( source => \$perl, destination => \my $tidied );
+write_file( 'lib/CPAN/Mini/Webserver/Templates/CSS.pm', $tidied );

lib/CPAN/Mini/Webserver.pm

@@ -19,7 +19,12 @@ use PPI;
 use PPI::HTML;
 use Template::Declare;
 
-Template::Declare->init( roots => ['CPAN::Mini::Webserver::Templates'] );
+Template::Declare->init(
+    roots => [
+        'CPAN::Mini::Webserver::Templates',
+        'CPAN::Mini::Webserver::Templates::CSS'
+    ]
+);
 
 if ( eval { require HTTP::Server::Simple::Bonjour } ) {
     extends 'HTTP::Server::Simple::Bonjour', 'HTTP::Server::Simple::CGI';