HG_REPOSITORIES/LPP/INSTRUMENTATION/USERS/JEANDET/qtcharts Files · test/scripts/Jobs.pm

jobs.ini: adding linux

Jani Honkonen - - Load All Authors

File last commit:

r1147:55065f0b9b63


                r1148:f361e6837dda

Download file

             Jobs.pm
        
                    40 lines
            
             | 877 B
            
                | text/x-perl
            
             |
                PerlLexer
            
             / test / scripts / Jobs.pm
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      package Jobs;

      use File::Basename;

      use Config::IniFiles; 

      # NOTE:

      # Config::IniFiles is from CPAN

      # http://search.cpan.org/dist/Config-IniFiles-2.72/

      # 

      # On windows (ActivePerl) install it from command line by calling:

      # 	ppm install Config-IniFiles

      sub get {

      	my $inifile = shift;

      	my $jobname = shift;

          # Strip the prefix from job name when using ${bamboo.buildPlanName}

      	my $prefix = "Digia Qt Commercial - Chart component - ";

      	$jobname =~ s/$prefix//;

      	# read ini file

      	my %cfg;

      	tie %cfg, 'Config::IniFiles', ( -file => $inifile );

      	# get section from ini by jobname

      	my %job = %{$cfg{$jobname}};

      	if (!%job) {

      		die ("Unknown jobname! Check $inifile and bamboo job name.");

      	}

      	# print out the ini settings

      	print "\n\nini file: $inifile\n";

      	print "[$jobname]\n";

      	foreach (keys %job) {

      		print $_ . "=" . $job{$_} . "\n";

      	}

      	print "\n";

      	return %job;

      }

      1;

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

				package Jobs;
				use File::Basename;
				use Config::IniFiles;

				# NOTE:
				# Config::IniFiles is from CPAN
				# http://search.cpan.org/dist/Config-IniFiles-2.72/
				#
				# On windows (ActivePerl) install it from command line by calling:
				# ppm install Config-IniFiles

				sub get {
				my $inifile = shift;
				my $jobname = shift;

				# Strip the prefix from job name when using ${bamboo.buildPlanName}
				my $prefix = "Digia Qt Commercial - Chart component - ";
				$jobname =~ s/$prefix//;

				# read ini file
				my %cfg;
				tie %cfg, 'Config::IniFiles', ( -file => $inifile );

				# get section from ini by jobname
				my %job = %{$cfg{$jobname}};
				if (!%job) {
				die ("Unknown jobname! Check $inifile and bamboo job name.");
				}

				# print out the ini settings
				print "\n\nini file: $inifile\n";
				print "[$jobname]\n";
				foreach (keys %job) {
				print $_ . "=" . $job{$_} . "\n";
				}
				print "\n";

				return %job;
				}

				1;