digiproof/mksingleton.pl

#!/usr/bin/perl
use Data::Dumper;
use JavaScript::Minifier qw(minify);
use CSS::Compressor qw( css_compress );

my ($type, $index) = @ARGV;

if (!$index) {
  print STDERR "Usage: $0 <prod|dev> <index.html>\n";
  exit 1;
}

my $out = "digiproof-$type.html";

print STDERR "open index\n";
open I, "<$index" or die "Could not open index: $index $!\n";
my @source = <I>;
close I;

print STDERR "open $out\n";
open OUT, ">$out" or die "Could not open output $out: $!\n";
select OUT;

print STDERR "enter loop\n";
foreach (@source) {
  chomp;
  next if(/^\s*$/);
  if (/rel="stylesheet" href="([^"]*)"/) {
    my $cssfile = $1;
    my $media = "";
    if (/media="([^"]*)"/) {
      $media = qq( media="$1" );
    }
    print STDERR "Inserting $cssfile\n";
    print qq(<style type="text/css" $media>\n);
    print &fetch($cssfile);
    print qq(</style>\n);
  }
  elsif (/script src="([^"]*)"/) {
    my $jsfile = $1;
    if ($jsfile =~ /localstorage/) {
      $jsfile = "js/libs/localstorage_adapter_$type.js";
    }
    print STDERR "Inserting $jsfile\n";
    print qq(<script type="text/javascript">\n);
    print &fetch($jsfile);
    print qq(</script>\n);
  }
  else {
    print qq($_\n);
  }
}




sub fetch {
  my $file = shift;
  open F, "<$file" or die "Could not open index: $file $!\n";
  if($file =~ /\.js/) {
    my $js;
    my $from = "/* js from $file */\n";
    if ($type eq 'prod') {
      $js =  minify(input => *F);
      # ember.js (and probably others) contain strings which contain </script>
      # which leads to rendering failures, those will be fixed here
      $js =~ s/<\/script>/' + Slash + 'script>/g;
      close F;
      return $from . $js;
    }
    else {
      return $from . join '', <F>;
      close F;
    }
  }
  else {
    my $from = "/* css from $file */\n";
    my $src = join "", <F>;
    close F;
    if ($prod) {
      return $from . $src;
    }
    else {
      return $from . css_compress($src);
    }
  }
}