Added preprocess only option for createpackage.bat

The prerocessing is needed by installer scripts.

Reviewed-by: Miikka Heikkinen

1 files changed, 15 insertions, 9 deletions

diff --git a/bin/createpackage.pl b/bin/createpackage.pl
index b7f4682742..af46e04050 100644
--- a/bin/createpackage.pl
+++ b/bin/createpackage.pl
@@ -23,14 +23,15 @@ sub Usage() {
     print "Usage: createpackage.pl [-i] templatepkg target-platform [certificate key [passphrase]]\n";
     print "\n";
     print "Where parameters are as follows:\n";
-    print "     [-i|install] = Install the package right away using PC suite\n";
-    print "     templatepkg  = Name of .pkg file template\n";
-    print "     target       = Either debug or release\n";    
-    print "     platform     = One of the supported platform\n";
-    print "                    winscw | gcce | armv5 | armv6 | armv7\n";
-    print "     certificate  = The certificate file used for signing\n";
-    print "     key          = The certificate's private key file\n";
-    print "     passphrase   = The certificate's private key file's passphrase\n";
+    print "     [-i|install]    = Install the package right away using PC suite\n";
+    print "     [-p|preprocess] = Only preprocess the template .pkg file.\n";    
+    print "     templatepkg     = Name of .pkg file template\n";
+    print "     target          = Either debug or release\n";    
+    print "     platform        = One of the supported platform\n";
+    print "                       winscw | gcce | armv5 | armv6 | armv7\n";
+    print "     certificate     = The certificate file used for signing\n";
+    print "     key             = The certificate's private key file\n";
+    print "     passphrase      = The certificate's private key file's passphrase\n";
     print "\n";
     print "For example:\n";    
     print "     createpackage.pl fluidlauncher_template.pkg release-armv5\n";        
@@ -44,7 +45,8 @@ sub Usage() {
 
 # Read given options
 my $install = "";
-unless (GetOptions('i|install' => \$install)){
+my $preprocessonly = "";
+unless (GetOptions('i|install' => \$install, 'p|preprocess' => \$preprocessonly)){
     Usage();
 }
 
@@ -136,6 +138,10 @@ open( OUTPUT, ">$pkgoutput" ) or die "Error '$pkgoutput' $!\n";
 print OUTPUT $_;
 close OUTPUT;
 
+if ($preprocessonly) {
+    exit;
+}
+
 # Create and sign SIS
 system ("makesis $pkgoutput $unsigned_sis_name");
 system ("signsis $unsigned_sis_name $signed_sis_name $certificate $key $passphrase");