186 # acquire drive letter |
186 # acquire drive letter |
187 my $sDriveLetter = acquire_drive_letter(); |
187 my $sDriveLetter = acquire_drive_letter(); |
188 print "acquired drive letter: $sDriveLetter\n"; |
188 print "acquired drive letter: $sDriveLetter\n"; |
189 die "Could not acquire drive letter" if (! $sDriveLetter); |
189 die "Could not acquire drive letter" if (! $sDriveLetter); |
190 |
190 |
|
191 my $sJobRootDirArg = "-Dsf.spec.job.rootdir=$sWORKING_DRIVE\\fbf_job"; |
|
192 |
191 my $sSubProjArg = ''; |
193 my $sSubProjArg = ''; |
192 $sSubProjArg = "-Dsf.subproject.path=$sSubProject" if ($sSubProject); |
194 $sSubProjArg = "-Dsf.subproject.path=$sSubProject" if ($sSubProject); |
193 print("cd $sJobDir\\sf-config\n"); |
195 print("cd $sJobDir\\sf-config\n"); |
194 chdir("$sJobDir\\sf-config"); |
196 chdir("$sJobDir\\sf-config"); |
195 print "###### BUILD PREPARATION ######\n"; |
197 print "###### BUILD PREPARATION ######\n"; |
196 print("hlm sf-prep -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt\n"); |
198 print("hlm sf-prep -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt $sJobRootDirArg\n"); |
197 system("hlm sf-prep -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt"); |
199 system("hlm sf-prep -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt $sJobRootDirArg"); |
198 |
200 |
199 print "###### EXECUTE BUILD ######\n"; |
201 print "###### EXECUTE BUILD ######\n"; |
200 print("hlm sf-build-all -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt\n"); |
202 print("hlm sf-build-all -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt $sJobRootDirArg\n"); |
201 system("hlm sf-build-all -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt"); |
203 system("hlm sf-build-all -Dsf.project.type=package $sSubProjArg -Dsf.spec.job.number=$nJobNumber -Dsf.spec.job.drive=$sDriveLetter: $sTestBuildOpt $sNoPublishOpt $sJobRootDirArg"); |
202 |
204 |
203 # release the drive letter |
205 # release the drive letter |
204 release_drive_letter($sDriveLetter); |
206 release_drive_letter($sDriveLetter); |
205 system("subst $sDriveLetter: /d"); # this is not required, but it's a good idea to keep things in order |
207 system("subst $sDriveLetter: /d"); # this is not required, but it's a good idea to keep things in order |
206 print "drive letter $sDriveLetter released (and drive unsubsted)\n"; |
208 print "drive letter $sDriveLetter released (and drive unsubsted)\n"; |