X-Git-Url: https://code.delx.au/comingnext/blobdiff_plain/5315836000decff5797d72f5c824f5a508cc6eb7..517fcfd1ef1214752d9e9793d25b95fa18bdb119:/build.pl

diff --git a/build.pl b/build.pl
index dadeb28..b429a9e 100644
--- a/build.pl
+++ b/build.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-my $version = "1.25";
+my $version = "1.32";
 
 use warnings;
 use strict;
@@ -13,18 +13,25 @@ use Archive::Zip qw( :ERROR_CODES );
 unlink <*.wgz>;
 unlink <*.zip>;
 rmtree("ComingNextB");
+rmtree("ComingNextC");
 
 # update version info
 sed("comingNext/index.html", 'var version = \"(.*?)\";', 'var version = \"'.$version.'\";');
-sed("comingNext/Info.plist", '<key>DisplayName<\/key>(\s*?)<string>Coming Next (.*?)<\/string>', '<key>DisplayName<\/key>$1<string>Coming Next '.$version.'<\/string>');
+sed("comingNext/Info.plist", '<key>DisplayName<\/key>(\s*?)<string>ComingNext (.*?)<\/string>', '<key>DisplayName<\/key>$1<string>ComingNext '.$version.'<\/string>');
 sed("comingNext/Info.plist", '<key>Version<\/key>(\s*?)<string>(.*?)<\/string>', '<key>Version<\/key>$1<string>'.$version.'<\/string>');
 
 # add additional widget
 copyrecursive("comingNext", "comingNextB");
 sed("comingNextB/index.html", 'var panelNum = 0;', 'var panelNum = 1;');
-sed("comingNextB/Info.plist", '<key>DisplayName<\/key>(\s*?)<string>Coming Next (.*?)<\/string>', '<key>DisplayName<\/key>$1<string>Coming Next B $2<\/string>');
+sed("comingNextB/Info.plist", '<key>DisplayName<\/key>(\s*?)<string>ComingNext (.*?)<\/string>', '<key>DisplayName<\/key>$1<string>ComingNext B $2<\/string>');
 sed("comingNextB/Info.plist", '<key>Identifier<\/key>(\s*?)<string>(.*?)<\/string>', '<key>Identifier<\/key>$1<string>$2b<\/string>');
 
+# add additional widget
+copyrecursive("comingNext", "comingNextC");
+sed("comingNextC/index.html", 'var panelNum = 0;', 'var panelNum = 2;');
+sed("comingNextC/Info.plist", '<key>DisplayName<\/key>(\s*?)<string>ComingNext (.*?)<\/string>', '<key>DisplayName<\/key>$1<string>ComingNext C $2<\/string>');
+sed("comingNextC/Info.plist", '<key>Identifier<\/key>(\s*?)<string>(.*?)<\/string>', '<key>Identifier<\/key>$1<string>$2c<\/string>');
+
 # package release
 my $zip = Archive::Zip->new();
 $zip->addTree("ComingNext", "ComingNext");
@@ -34,12 +41,17 @@ $zip = Archive::Zip->new();
 $zip->addTree("ComingNextB", "ComingNextB");
 $zip->writeToFileNamed("comingNextB.wgz");
 
+$zip = Archive::Zip->new();
+$zip->addTree("ComingNextC", "ComingNextC");
+$zip->writeToFileNamed("comingNextC.wgz");
+
 $zip = Archive::Zip->new();
 $zip->addFile("comingNext.wgz");
 $zip->addFile("comingNextB.wgz");
+$zip->addFile("comingNextC.wgz");
 $zip->addFile("Readme.txt");
 $zip->addFile("License.txt");
-$zip->addFile("ComingNext_SkinFetcher_v1.1.sisx");
+$zip->addFile("ComingNext_SkinFetcher_v1.3.sisx");
 $zip->writeToFileNamed("comingNext_v$version.zip");
 
 #########################################