37 my $nCmdLineNumber; |
37 my $nCmdLineNumber; |
38 my $bProduction = 0; |
38 my $bProduction = 0; |
39 my $sDiamondsTag = ''; |
39 my $sDiamondsTag = ''; |
40 my $bHudson = 0; |
40 my $bHudson = 0; |
41 my $bPublish = 1; |
41 my $bPublish = 1; |
|
42 my $bHelp = 0; |
42 GetOptions(( |
43 GetOptions(( |
43 'configrepo=s' => \$sFbfConfigRepo, |
44 'configrepo=s' => \$sFbfConfigRepo, |
44 'configdir=s' => \$sFbfConfigDir, |
45 'configdir=s' => \$sFbfConfigDir, |
45 'projectrepo=s' => \$sFbfProjectRepo, |
46 'projectrepo=s' => \$sFbfProjectRepo, |
46 'projectdir=s' => \$sFbfProjectDir, |
47 'projectdir=s' => \$sFbfProjectDir, |
49 #'model=s' => \$sModelFile, |
50 #'model=s' => \$sModelFile, |
50 'number=s' => \$nCmdLineNumber, |
51 'number=s' => \$nCmdLineNumber, |
51 'production!' => \$bProduction, |
52 'production!' => \$bProduction, |
52 'tag=s' => \$sDiamondsTag, |
53 'tag=s' => \$sDiamondsTag, |
53 'hudson!' => \$bHudson, |
54 'hudson!' => \$bHudson, |
54 'publish!' => \$bPublish |
55 'publish!' => \$bPublish, |
|
56 'help!' => \$bHelp |
55 )); |
57 )); |
56 |
58 |
57 if (!($sSubProject or $sFbfProjectRepo or $sFbfProjectDir)) |
59 if ($bHelp or !($sSubProject or $sFbfProjectRepo or $sFbfProjectDir)) |
58 { |
60 { |
59 print "Usage: build_package.pl --subproj=RELPATH [OPTIONS]\n"; |
61 print "Usage: build_package.pl --subproj=RELPATH [OPTIONS]\n"; |
60 print " build_package.pl --projectrepo=REPO [OPTIONS]\n"; |
62 print " build_package.pl --projectrepo=REPO [OPTIONS]\n"; |
61 print "where OPTIONS are:\n"; |
63 print "where OPTIONS are:\n"; |
62 print "\t--subproj=RELPATH Select subproject located at RELPATH (relative to the root of the project repository)\n"; |
64 print "\t--subproj=RELPATH Select subproject located at RELPATH (relative to the root of the project repository)\n"; |