| @@ -6,6 +6,10 use feature "switch"; | |||||
| 6 | # read command line params |
|
6 | # read command line params | |
| 7 | my $jobname = shift; |
|
7 | my $jobname = shift; | |
| 8 |
|
8 | |||
|
|
9 | # Strip the prefix from job name when using ${bamboo.buildPlanName} | |||
|
|
10 | my $prefix = "Digia Qt Commercial - Chart component - "; | |||
|
|
11 | $jobname =~ s/$prefix//; | |||
|
|
12 | ||||
| 9 | # read ini file |
|
13 | # read ini file | |
| 10 | my $scriptdir = File::Basename::dirname($0); |
|
14 | my $scriptdir = File::Basename::dirname($0); | |
| 11 | my $inifile = $scriptdir . "/jobs.ini"; |
|
15 | my $inifile = $scriptdir . "/jobs.ini"; | |
| @@ -14,6 +18,9 tie %cfg, 'Config::IniFiles', ( -file => $inifile ); | |||||
| 14 |
|
18 | |||
| 15 | # get section from ini by jobname |
|
19 | # get section from ini by jobname | |
| 16 | my %build = %{$cfg{$jobname}}; |
|
20 | my %build = %{$cfg{$jobname}}; | |
|
|
21 | if (!%build) { | |||
|
|
22 | die ("Unknown jobname! Check $inifile and bamboo job name."); | |||
|
|
23 | } | |||
| 17 |
|
24 | |||
| 18 | # print out the ini settings |
|
25 | # print out the ini settings | |
| 19 | print "\n\n$jobname\n"; |
|
26 | print "\n\n$jobname\n"; | |
General Comments 0
You need to be logged in to leave comments.
Login now