]> code.delx.au - comingnext/blobdiff - build.pl
support for third panel
[comingnext] / build.pl
index 467b71a81ee7009bc43a625994891f81a51e1a6f..162e61915f50f063f0b1d7d25d52cf74ffe4a7b2 100644 (file)
--- a/build.pl
+++ b/build.pl
@@ -13,6 +13,7 @@ use Archive::Zip qw( :ERROR_CODES );
 unlink <*.wgz>;\r
 unlink <*.zip>;\r
 rmtree("ComingNextB");\r
+rmtree("ComingNextC");\r
 \r
 # update version info\r
 sed("comingNext/index.html", 'var version = \"(.*?)\";', 'var version = \"'.$version.'\";');\r
@@ -25,6 +26,12 @@ 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>');\r
 sed("comingNextB/Info.plist", '<key>Identifier<\/key>(\s*?)<string>(.*?)<\/string>', '<key>Identifier<\/key>$1<string>$2b<\/string>');\r
 \r
+# add additional widget\r
+copyrecursive("comingNext", "comingNextC");\r
+sed("comingNextC/index.html", 'var panelNum = 0;', 'var panelNum = 2;');\r
+sed("comingNextC/Info.plist", '<key>DisplayName<\/key>(\s*?)<string>Coming Next (.*?)<\/string>', '<key>DisplayName<\/key>$1<string>Coming Next C $2<\/string>');\r
+sed("comingNextC/Info.plist", '<key>Identifier<\/key>(\s*?)<string>(.*?)<\/string>', '<key>Identifier<\/key>$1<string>$2c<\/string>');\r
+\r
 # package release\r
 my $zip = Archive::Zip->new();\r
 $zip->addTree("ComingNext", "ComingNext");\r
@@ -34,9 +41,14 @@ $zip = Archive::Zip->new();
 $zip->addTree("ComingNextB", "ComingNextB");\r
 $zip->writeToFileNamed("comingNextB.wgz");\r
 \r
+$zip = Archive::Zip->new();\r
+$zip->addTree("ComingNextC", "ComingNextC");\r
+$zip->writeToFileNamed("comingNextC.wgz");\r
+\r
 $zip = Archive::Zip->new();\r
 $zip->addFile("comingNext.wgz");\r
 $zip->addFile("comingNextB.wgz");\r
+$zip->addFile("comingNextC.wgz");\r
 $zip->addFile("Readme.txt");\r
 $zip->addFile("License.txt");\r
 $zip->addFile("ComingNext_SkinFetcher_v1.1.sisx");\r