equal
deleted
inserted
replaced
5 use Getopt::Long; |
5 use Getopt::Long; |
6 use File::Path; |
6 use File::Path; |
7 |
7 |
8 my $sBOOTSTRAP_DIR="D:\\Helium\\hlm-apps\\bootstrap"; |
8 my $sBOOTSTRAP_DIR="D:\\Helium\\hlm-apps\\bootstrap"; |
9 my $sJOB_BASE_DIR="D:\\fbf_project"; |
9 my $sJOB_BASE_DIR="D:\\fbf_project"; |
10 my $sCONFIG_REPO="\\\\lon-engbuild87\\d\$\\mercurial\\fbf\\configs\\dario_dev"; |
10 my $sCONFIG_REPO="\\\\lon-engbuild87\\d\$\\mercurial_development\\epl\\interim\\fbf\\configs\\pkgbuild\\FCL_pkgbuild"; |
11 my $nLOCK_FILE_MAX_ATTEMPTS = 5; |
11 my $nLOCK_FILE_MAX_ATTEMPTS = 5; |
12 my $sNUMBERS_FILE="\\\\lon-engbuild87\\d\$\\numbers.txt"; |
12 my $sNUMBERS_FILE="\\\\sym-build01\\f\$\\numbers.txt"; |
13 |
13 |
14 my $sProjectRepo = ''; |
14 my $sProjectRepo = ''; |
15 my $sJobLabel = ''; |
15 my $sJobLabel = ''; |
16 my $nCmdLineNumber; |
16 my $nCmdLineNumber; |
17 GetOptions(('label:s' => \$sJobLabel, 'project:s' => \$sProjectRepo, 'number:s' => \$nCmdLineNumber)); |
17 GetOptions(('label:s' => \$sJobLabel, 'project:s' => \$sProjectRepo, 'number:s' => \$nCmdLineNumber)); |
18 |
18 |
19 if (!$sJobLabel or !$sProjectRepo) |
19 if (!$sJobLabel or !$sProjectRepo) |
20 { |
20 { |
21 print "Usage: build_package.pl <label> <project_repo>\n"; |
21 print "Usage: build_package.pl --label=<label> --project=<project_repo>\n"; |
22 exit(0); |
22 exit(0); |
23 } |
23 } |
24 |
24 |
25 my $sJobDir = mkdir_unique("$sJOB_BASE_DIR\\$sJobLabel"); |
25 my $sJobDir = mkdir_unique("$sJOB_BASE_DIR\\$sJobLabel"); |
26 |
26 |