Release-1.8.3.1-20130512

1 files changed, 25 insertions, 0 deletions

diff --git a/jquery/split_jquery.pl b/jquery/split_jquery.pl
new file mode 100644
index 0000000..3edc763
--- /dev/null
+++ b/jquery/split_jquery.pl
@@ -0,0 +1,25 @@
+# script to split file into parts of roughly 32kb
+#!/bin/perl
+my $file = shift;
+my $target = shift;
+my $count = 1;
+my $len = 0;
+$target=~/p(\d+).js/;
+my $part = $1;
+open(F,"<$file") || die ("cannot open file for reading: $!");
+open(G,">$target") || die("cannot open file for writing: $!");
+while (<F>)
+{
+  if ($part==$count)
+  {
+    print G "$_";
+  }
+  $len+=length($_);
+  if ($len>32768) 
+  {
+    $len=0;
+    $count++;
+  }
+}
+close(F);
+close(G);