Add the beggingings of a perl script to run the update over a whole theme zip file... someoene who knows perl please finish this :D

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@26351 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 53 insertions, 0 deletions

diff --git a/utils/skinupdater/updatetheme.pl b/utils/skinupdater/updatetheme.pl
new file mode 100755
index 0000000000..a6c3e20097
--- /dev/null
+++ b/utils/skinupdater/updatetheme.pl
@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+#             __________               __   ___.
+#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
+#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
+#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
+#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
+#                     \/            \/     \/    \/            \/
+# $Id: wpsbuild.pl 24813 2010-02-21 19:10:57Z kugel $
+#
+
+# usage: updatetheme.pl theme.zip workingdir [options passed to skinupdater]
+use File::Basename;
+
+$numArgs = $#ARGV + 1;
+
+die "usage: updatetheme.pl theme.zip workingdir [options passed to skinupdater]" if ($numArgs < 2);
+    
+$ARGV[0] =~ /.*\/(.*).(zip|ZIP)/; #fix this regex!
+$theme_name = $1;
+$tmp = $ARGV[1];
+$outdir = "$tmp/$theme_name";
+
+if ($numArgs > 2)
+{
+    $args = $ARGV[2];
+} else {
+    $args = "";
+}
+
+
+system("mkdir $outdir") and die "couldnt mkdir $outdir";
+
+# step 1, unzip the theme zip
+system("unzip $ARGV[0] -d $outdir") and die;
+
+#for each skin in the zip run skinupdater
+@files = `find $outdir -iname "*.wps" -o -iname "*.sbs" -o -iname "*.fms" -o -iname "*.rwps" -o -iname "*.rsbs" -o -iname "*.rfms"`;
+`touch $tmp/changes.diff`;
+foreach (@files)
+{
+    chomp($_);
+    $file = $_;
+    $out = "$tmp/" . `basename $file`; chomp($out);
+    `./skinupdater $args $file $out`;
+    print "$out";
+    `diff -u $file $out >> $tmp/changes.diff`;
+    `mv $out $file`;
+    # TODO zip up the new folder..     
+    
+}
+
+
+system("rm -Rf $outdir");