diff options
-rw-r--r-- | README | 4 | ||||
-rwxr-xr-x | util/skingen.pl | 17 |
2 files changed, 9 insertions, 12 deletions
@@ -48,6 +48,10 @@ Requirements XML::Writer PerlIO::gzip + util/skingen.pl + Image::Magick + CSS::Minifier::XS (optional, minimizes CSS output) + Contact diff --git a/util/skingen.pl b/util/skingen.pl index e27ea4a1..d18f5fde 100755 --- a/util/skingen.pl +++ b/util/skingen.pl @@ -5,8 +5,8 @@ package VNDB; use strict; use warnings; use Cwd 'abs_path'; -use Data::Dumper 'Dumper'; use Image::Magick; +eval { require CSS::Minifier::XS }; our($ROOT, %O); @@ -78,19 +78,12 @@ sub writeskin { # $obj # write the CSS open my $CSS, '<', "$ROOT/data/style.css" or die $!; + my $css = join '', <$CSS>; + close $CSS; + $css =~ s/\$$_\$/$o->{$_}/g for (keys %$o); open my $SKIN, '>', "$ROOT/static/s/$o->{_name}/style.css" or die $!; - while((my $d = <$CSS>)) { - if($O{debug}) { - chomp $d; - $d =~ s/^\s*/ /; - $d =~ s{/\*.+\*/}{}; # NOTE: multiline comments or multiple comments per line won't work - next if $d !~ /[^\s\t]/; - } - $d =~ s/\$$_\$/$o->{$_}/g for (keys %$o); - print $SKIN $d; - } + print $SKIN $CSS::Minifier::XS::VERSION ? CSS::Minifier::XS::minify($css) : $css; close $SKIN; - close $CSS; } |