Add help option
authorDario Sestito <darios@symbian.org>
Mon, 10 Aug 2009 18:28:49 +0100
changeset 42 71a252d194e6
parent 41 177164b3c155
child 43 42877cd4d8be
Add help option
build_package.pl
--- a/build_package.pl	Mon Aug 10 14:26:42 2009 +0100
+++ b/build_package.pl	Mon Aug 10 18:28:49 2009 +0100
@@ -39,6 +39,7 @@
 my $sDiamondsTag = '';
 my $bHudson = 0;
 my $bPublish = 1;
+my $bHelp = 0;
 GetOptions((
 	'configrepo=s' => \$sFbfConfigRepo,
 	'configdir=s' => \$sFbfConfigDir,
@@ -51,10 +52,11 @@
 	'production!' => \$bProduction,
 	'tag=s' => \$sDiamondsTag,
 	'hudson!' => \$bHudson,
-	'publish!' => \$bPublish
+	'publish!' => \$bPublish,
+	'help!' => \$bHelp
 ));
 
-if (!($sSubProject or $sFbfProjectRepo or $sFbfProjectDir))
+if ($bHelp or !($sSubProject or $sFbfProjectRepo or $sFbfProjectDir))
 {
 	print "Usage: build_package.pl --subproj=RELPATH [OPTIONS]\n";
 	print "       build_package.pl --projectrepo=REPO [OPTIONS]\n";