WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/jats.pl



our $GBE_HOSTNAME       = $ENV{'GBE_HOSTNAME'}       || hostname || '';
our $USER               = $ENV{'USER'}               || '';
our $PERL5LIB           = $ENV{'PERL5LIB'}           || '';
our $JAVA_HOME          = $ENV{'JAVA_HOME'}          || '';
our $GBE_ABT            = $ENV{'GBE_ABT'}            || '';
our $GBE_OPTS           = $ENV{'GBE_OPTS'}           || '';
our $GBE_VIEWBASE       = $ENV{'GBE_VIEWBASE'}       || '';
our $GBE_VCS            = $ENV{'GBE_VCS'}            || 'SVN';
our $GBE_UNIX           = $^O ne "MSWin32" ;
our $CWD;
 

#       GBE_VCS - lowercase to match command ccrelease and others
#
$GBE_BUILDFILTER = join (' ', split( /[,\s]+/, $GBE_BUILDFILTER));
$GBE_PLATFORM    = join (' ', split( /[,\s]+/, $GBE_PLATFORM));
$GBE_ABT         = join (' ', split( /[,\s]+/, $GBE_ABT));
$GBE_OPTS        = join (' ', split( /[,\s]+/, $GBE_OPTS));
$GBE_HOSTNAME    =~ s~\s+~~g;
$GBE_VCS         = lc( $GBE_VCS );
 
# Capture NON Build Machine config before parsing the command line
#   Yes the user can still fudge the environment

            "java=s"            => \$opt_java,
            "version=s",        => \&opts_version,
            "platform:s",       => sub{ opts_extend( \$GBE_PLATFORM, @_ )},
            "buildfilter:s"     => \@opt_buildfilter,
            "abt:s"             => sub{ opts_extend( \$GBE_ABT, @_ )},
            "opts:s"            => sub{ opts_extend( \$GBE_OPTS, @_ )},
            "exportvars!"       => \$opt_export_vars,
            "logfile=s",        => \$opt_logfile,
            "script!",          => \$opt_script,
            );
 

#   The following don't affect the operation of the build daemons selecting
#   the current version of JATS. Some need to be passed through anyway
#
$ENV{'GBE_BUILDFILTER'}   = $GBE_BUILDFILTER;
$ENV{'GBE_ABT'}           = $GBE_ABT if ($GBE_ABT);
$ENV{'GBE_OPTS'}          = $GBE_OPTS if ($GBE_OPTS);
$ENV{'GBE_DEBUG'}         = $GBE_DEBUG;
$ENV{'GBE_VERBOSE'}       = $GBE_VERBOSE;
$ENV{'GBE_UNIX'}          = $GBE_UNIX;
$ENV{'USER'}              = $USER;
$ENV{'GBE_HOSTNAME'}      = $GBE_HOSTNAME;

    -locatefile=file    - Locate specified build file and change to directory
    -locatedir=name     - Locate specified directory by scanning to the root
    -platform=[name]    - Set GBE_PLATFORM to name   (=+ to append)
    -buildfilter=[xxx]  - Set GBE_BUILDFILTER to xxx (=+ to append)
    -abt=[xxx]          - Set GBE_ABT to xxx (=+ to append)
    -opts=[xxx]         - Set GBE_OPTS to xxx (=+ to append)
    -java=version       - Alters java version used (1.4, 1.5, 1.6)
    -time               - Time build and compile times
    -version=xxx        - Use specified version of JATS
    -[no]exportvars     - Export sanitised JATS EnvVars (default)
    -logfile=xxxx       - All output is redirected to the specified file

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats.pl – Rev 7326 → 7447

Rev 7326		Rev 7447
Line 90...		Line 90...
90	`our $GBE_HOSTNAME = $ENV{'GBE_HOSTNAME'} \|\| hostname \|\| '';`	90	`our $GBE_HOSTNAME = $ENV{'GBE_HOSTNAME'} \|\| hostname \|\| '';`
91	`our $USER = $ENV{'USER'} \|\| '';`	91	`our $USER = $ENV{'USER'} \|\| '';`
92	`our $PERL5LIB = $ENV{'PERL5LIB'} \|\| '';`	92	`our $PERL5LIB = $ENV{'PERL5LIB'} \|\| '';`
93	`our $JAVA_HOME = $ENV{'JAVA_HOME'} \|\| '';`	93	`our $JAVA_HOME = $ENV{'JAVA_HOME'} \|\| '';`
94	`our $GBE_ABT = $ENV{'GBE_ABT'} \|\| '';`	94	`our $GBE_ABT = $ENV{'GBE_ABT'} \|\| '';`
-		95	`our $GBE_OPTS = $ENV{'GBE_OPTS'} \|\| '';`
95	`our $GBE_VIEWBASE = $ENV{'GBE_VIEWBASE'} \|\| '';`	96	`our $GBE_VIEWBASE = $ENV{'GBE_VIEWBASE'} \|\| '';`
96	`our $GBE_VCS = $ENV{'GBE_VCS'} \|\| 'SVN';`	97	`our $GBE_VCS = $ENV{'GBE_VCS'} \|\| 'SVN';`
97	`our $GBE_UNIX = $^O ne "MSWin32" ;`	98	`our $GBE_UNIX = $^O ne "MSWin32" ;`
98	`our $CWD;`	99	`our $CWD;`
99		100
Line 106...		Line 107...
106	`# GBE_VCS - lowercase to match command ccrelease and others`	107	`# GBE_VCS - lowercase to match command ccrelease and others`
107	`#`	108	`#`
108	`$GBE_BUILDFILTER = join (' ', split( /[,\s]+/, $GBE_BUILDFILTER));`	109	`$GBE_BUILDFILTER = join (' ', split( /[,\s]+/, $GBE_BUILDFILTER));`
109	`$GBE_PLATFORM = join (' ', split( /[,\s]+/, $GBE_PLATFORM));`	110	`$GBE_PLATFORM = join (' ', split( /[,\s]+/, $GBE_PLATFORM));`
110	`$GBE_ABT = join (' ', split( /[,\s]+/, $GBE_ABT));`	111	`$GBE_ABT = join (' ', split( /[,\s]+/, $GBE_ABT));`
-		112	`$GBE_OPTS = join (' ', split( /[,\s]+/, $GBE_OPTS));`
111	`$GBE_HOSTNAME =~ s~\s+~~g;`	113	`$GBE_HOSTNAME =~ s~\s+~~g;`
112	`$GBE_VCS = lc( $GBE_VCS );`	114	`$GBE_VCS = lc( $GBE_VCS );`
113		115
114	`# Capture NON Build Machine config before parsing the command line`	116	`# Capture NON Build Machine config before parsing the command line`
115	`# Yes the user can still fudge the environment`	117	`# Yes the user can still fudge the environment`
Line 142...		Line 144...
142	`"java=s" => \$opt_java,`	144	`"java=s" => \$opt_java,`
143	`"version=s", => \&opts_version,`	145	`"version=s", => \&opts_version,`
144	`"platform:s", => sub{ opts_extend( \$GBE_PLATFORM, @_ )},`	146	`"platform:s", => sub{ opts_extend( \$GBE_PLATFORM, @_ )},`
145	`"buildfilter:s" => \@opt_buildfilter,`	147	`"buildfilter:s" => \@opt_buildfilter,`
146	`"abt:s" => sub{ opts_extend( \$GBE_ABT, @_ )},`	148	`"abt:s" => sub{ opts_extend( \$GBE_ABT, @_ )},`
-		149	`"opts:s" => sub{ opts_extend( \$GBE_OPTS, @_ )},`
147	`"exportvars!" => \$opt_export_vars,`	150	`"exportvars!" => \$opt_export_vars,`
148	`"logfile=s", => \$opt_logfile,`	151	`"logfile=s", => \$opt_logfile,`
149	`"script!", => \$opt_script,`	152	`"script!", => \$opt_script,`
150	`);`	153	`);`
151		154
Line 1110...		Line 1113...
1110	`# The following don't affect the operation of the build daemons selecting`	1113	`# The following don't affect the operation of the build daemons selecting`
1111	`# the current version of JATS. Some need to be passed through anyway`	1114	`# the current version of JATS. Some need to be passed through anyway`
1112	`#`	1115	`#`
1113	`$ENV{'GBE_BUILDFILTER'} = $GBE_BUILDFILTER;`	1116	`$ENV{'GBE_BUILDFILTER'} = $GBE_BUILDFILTER;`
1114	`$ENV{'GBE_ABT'} = $GBE_ABT if ($GBE_ABT);`	1117	`$ENV{'GBE_ABT'} = $GBE_ABT if ($GBE_ABT);`
-		1118	`$ENV{'GBE_OPTS'} = $GBE_OPTS if ($GBE_OPTS);`
1115	`$ENV{'GBE_DEBUG'} = $GBE_DEBUG;`	1119	`$ENV{'GBE_DEBUG'} = $GBE_DEBUG;`
1116	`$ENV{'GBE_VERBOSE'} = $GBE_VERBOSE;`	1120	`$ENV{'GBE_VERBOSE'} = $GBE_VERBOSE;`
1117	`$ENV{'GBE_UNIX'} = $GBE_UNIX;`	1121	`$ENV{'GBE_UNIX'} = $GBE_UNIX;`
1118	`$ENV{'USER'} = $USER;`	1122	`$ENV{'USER'} = $USER;`
1119	`$ENV{'GBE_HOSTNAME'} = $GBE_HOSTNAME;`	1123	`$ENV{'GBE_HOSTNAME'} = $GBE_HOSTNAME;`
Line 2323...		Line 2327...
2323	`-locatefile=file - Locate specified build file and change to directory`	2327	`-locatefile=file - Locate specified build file and change to directory`
2324	`-locatedir=name - Locate specified directory by scanning to the root`	2328	`-locatedir=name - Locate specified directory by scanning to the root`
2325	`-platform=[name] - Set GBE_PLATFORM to name (=+ to append)`	2329	`-platform=[name] - Set GBE_PLATFORM to name (=+ to append)`
2326	`-buildfilter=[xxx] - Set GBE_BUILDFILTER to xxx (=+ to append)`	2330	`-buildfilter=[xxx] - Set GBE_BUILDFILTER to xxx (=+ to append)`
2327	`-abt=[xxx] - Set GBE_ABT to xxx (=+ to append)`	2331	`-abt=[xxx] - Set GBE_ABT to xxx (=+ to append)`
-		2332	`-opts=[xxx] - Set GBE_OPTS to xxx (=+ to append)`
2328	`-java=version - Alters java version used (1.4, 1.5, 1.6)`	2333	`-java=version - Alters java version used (1.4, 1.5, 1.6)`
2329	`-time - Time build and compile times`	2334	`-time - Time build and compile times`
2330	`-version=xxx - Use specified version of JATS`	2335	`-version=xxx - Use specified version of JATS`
2331	`-[no]exportvars - Export sanitised JATS EnvVars (default)`	2336	`-[no]exportvars - Export sanitised JATS EnvVars (default)`
2332	`-logfile=xxxx - All output is redirected to the specified file`	2337	`-logfile=xxxx - All output is redirected to the specified file`