JS: Moved script.js to data/ and added jsgen.pl to process it

While this 'processing' is currently limited to minifying the file if
JavaScript::Minifier::XS is available, this change would make it a lot
easier to make the strings in the JS code translatable.

1 files changed, 24 insertions, 0 deletions

diff --git a/util/jsgen.pl b/util/jsgen.pl
new file mode 100755
index 00000000..d21f56c7
--- /dev/null
+++ b/util/jsgen.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Cwd 'abs_path';
+eval { require JavaScript::Minifier::XS; };
+
+our($ROOT, %O);
+BEGIN { ($ROOT = abs_path $0) =~ s{/util/jsgen\.pl$}{}; }
+
+
+sub jsgen {
+  # JavaScript::Minifier::XS doesn't correctly handle perl's unicode,
+  #  so just do everything in raw bytes instead.
+  open my $JS, '<', "$ROOT/data/script.js" or die $!;
+  my $js = join '', <$JS>;
+  close $JS;
+  open my $NEWJS, '>', "$ROOT/static/f/script.js" or die $!;
+  print $NEWJS $JavaScript::Minifier::XS::VERSION ? JavaScript::Minifier::XS::minify($js) : $js;
+  close $NEWJS;
+}
+
+jsgen;
+