Subversion Repositories DevTools

Rev

Rev 4902 | Rev 4969 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4902 Rev 4928
Line 107... Line 107...
107 
$GBE_ABT         = join (' ', split( /[,\s]+/, $GBE_ABT));
 107 
$GBE_ABT         = join (' ', split( /[,\s]+/, $GBE_ABT));
108 
$GBE_HOSTNAME    =~ s~\s+~~g;
 108 
$GBE_HOSTNAME    =~ s~\s+~~g;
109 
$GBE_VCS         = lc( $GBE_VCS );
 109 
$GBE_VCS         = lc( $GBE_VCS );
110 
 
 110 
 
111 
# Capture NON Build Machine config before parsing the command line
 111 
# Capture NON Build Machine config before parsing the command line
112 
#   Yes the user can still fudge the envrionment
 112 
#   Yes the user can still fudge the environment
113 
$notaBuildMachine = (exists $ENV{GBE_ABT} && $ENV{GBE_ABT} eq 'NONE' );
 113 
if (exists $ENV{GBE_ABT} && $ENV{GBE_ABT} eq 'NONE' )
- 
 
 114 
{
- 
 
 115 
    $GBE_ABT = '';
- 
 
 116 
    $notaBuildMachine = 1;
- 
 
 117 
}
114 
 
 118 
 
115 
#-------------------------------------------------------------------------------
 119 
#-------------------------------------------------------------------------------
116 
#   Parse the user options
 120 
#   Parse the user options
117 
#   GetOptions has been configured so that it will stop parsing on the first
 121 
#   GetOptions has been configured so that it will stop parsing on the first
118 
#   non-options. This allows the command syntax to the script to have options
 122 
#   non-options. This allows the command syntax to the script to have options