WebSVN – DevTools – Diff – /core_devl/branches/gitBuilder/TOOLS/jats.pl



our $GBE_DPLY           = $ENV{'GBE_DPLY'}           || '';
our $GBE_DPKG           = $ENV{'GBE_DPKG'}           || '';
our $GBE_DPKG_REPLICA   = $ENV{'GBE_DPKG_REPLICA'}   || '';
our $GBE_DPKG_STORE     = $ENV{'GBE_DPKG_STORE'}     || '';
our $GBE_DPKG_LOCAL     = $ENV{'GBE_DPKG_LOCAL'}     || '';
our $GBE_DPKG_ESCROW    = $ENV{'GBE_DPKG_ESCROW'}    || '';
our $GBE_DPKG_CACHE     = $ENV{'GBE_DPKG_CACHE'}     || '';
our $GBE_DPKG_SBOX      = $ENV{'GBE_DPKG_SBOX'}      || '';
our $GBE_SANDBOX        = $ENV{'GBE_SANDBOX'}        || '';
our $GBE_PERL           = $ENV{'GBE_PERL'}           || '';
our $GBE_TOOLS          = $ENV{'GBE_TOOLS'}          || '';

TestDirectoryConfig( 'GBE_DPKG' );
TestDirectoryConfig( 'GBE_DPKG_CACHE' );
TestDirectoryConfig( 'GBE_DPKG_LOCAL' );
TestDirectoryConfig( 'GBE_DPKG_STORE' );
TestDirectoryConfig( 'GBE_DPKG_REPLICA' );
TestDirectoryConfig( 'GBE_DPKG_ESCROW' );
TestDirectoryConfig( 'GBE_DPKG_SBOX' );
TestDirectoryConfig( 'GBE_SANDBOX' );
 
################################################################################
#   Setup the Machine Type

Error ("GBE_DPLY is not a directory : $GBE_DPLY")
    if ( $GBE_DPLY && ! -d $GBE_DPLY );
 
Error ("GBE_DPKG_REPLICA is not a directory : $GBE_DPKG_REPLICA")
    if ( $GBE_DPKG_REPLICA && ! -d $GBE_DPKG_REPLICA );
 
Error ("GBE_DPKG_ESCROW is not a directory : $GBE_DPKG_ESCROW")
    if ( $GBE_DPKG_ESCROW && ! -d $GBE_DPKG_ESCROW );
    
########################################################################
#
#       Locate a local_dpkg_archive directory, by searching from the CWD
#       to the root of the file system

    $ENV{'GBE_BIN'}           = $GBE_BIN;
    $ENV{'GBE_CONFIG'}        = $GBE_CONFIG;
    $ENV{'GBE_DPLY'}          = $GBE_DPLY;
    $ENV{'GBE_DPKG'}          = $GBE_DPKG;
    $ENV{'JATS_HOME'}         = $GBE_DPKG;
    $ENV{'GBE_DPKG_ESCROW'}   = $GBE_DPKG_ESCROW;
    $ENV{'GBE_DPKG_CACHE'}    = $GBE_DPKG_CACHE;
    $ENV{'GBE_DPKG_REPLICA'}  = $GBE_DPKG_REPLICA;
    $ENV{'GBE_DPKG_STORE'}    = $GBE_DPKG_STORE;
    $ENV{'GBE_DPKG_LOCAL'}    = $GBE_DPKG_LOCAL;
    $ENV{'GBE_SANDBOX'}       = $GBE_SANDBOX;

{
    my ($version) = @_;
    my $package;
    my $path;
 
    foreach my $archive (qw ( GBE_DPKG_LOCAL GBE_DPKG_CACHE GBE_DPKG_ESCROW GBE_DPKG_REPLICA GBE_DPKG GBE_DPKG_STORE ))
    {
        no strict 'refs';
        $path = ${$archive};
        use strict 'refs';
        next unless ( $path );

Subversion Repositories DevTools

(root)/core_devl/branches/gitBuilder/TOOLS/jats.pl – Rev 7307 → 7319

Rev 7307		Rev 7319
Line 72...		Line 72...
72	`our $GBE_DPLY = $ENV{'GBE_DPLY'} \|\| '';`	72	`our $GBE_DPLY = $ENV{'GBE_DPLY'} \|\| '';`
73	`our $GBE_DPKG = $ENV{'GBE_DPKG'} \|\| '';`	73	`our $GBE_DPKG = $ENV{'GBE_DPKG'} \|\| '';`
74	`our $GBE_DPKG_REPLICA = $ENV{'GBE_DPKG_REPLICA'} \|\| '';`	74	`our $GBE_DPKG_REPLICA = $ENV{'GBE_DPKG_REPLICA'} \|\| '';`
75	`our $GBE_DPKG_STORE = $ENV{'GBE_DPKG_STORE'} \|\| '';`	75	`our $GBE_DPKG_STORE = $ENV{'GBE_DPKG_STORE'} \|\| '';`
76	`our $GBE_DPKG_LOCAL = $ENV{'GBE_DPKG_LOCAL'} \|\| '';`	76	`our $GBE_DPKG_LOCAL = $ENV{'GBE_DPKG_LOCAL'} \|\| '';`
-		77	`our $GBE_DPKG_ESCROW = $ENV{'GBE_DPKG_ESCROW'} \|\| '';`
77	`our $GBE_DPKG_CACHE = $ENV{'GBE_DPKG_CACHE'} \|\| '';`	78	`our $GBE_DPKG_CACHE = $ENV{'GBE_DPKG_CACHE'} \|\| '';`
78	`our $GBE_DPKG_SBOX = $ENV{'GBE_DPKG_SBOX'} \|\| '';`	79	`our $GBE_DPKG_SBOX = $ENV{'GBE_DPKG_SBOX'} \|\| '';`
79	`our $GBE_SANDBOX = $ENV{'GBE_SANDBOX'} \|\| '';`	80	`our $GBE_SANDBOX = $ENV{'GBE_SANDBOX'} \|\| '';`
80	`our $GBE_PERL = $ENV{'GBE_PERL'} \|\| '';`	81	`our $GBE_PERL = $ENV{'GBE_PERL'} \|\| '';`
81	`our $GBE_TOOLS = $ENV{'GBE_TOOLS'} \|\| '';`	82	`our $GBE_TOOLS = $ENV{'GBE_TOOLS'} \|\| '';`
Line 332...		Line 333...
332	`TestDirectoryConfig( 'GBE_DPKG' );`	333	`TestDirectoryConfig( 'GBE_DPKG' );`
333	`TestDirectoryConfig( 'GBE_DPKG_CACHE' );`	334	`TestDirectoryConfig( 'GBE_DPKG_CACHE' );`
334	`TestDirectoryConfig( 'GBE_DPKG_LOCAL' );`	335	`TestDirectoryConfig( 'GBE_DPKG_LOCAL' );`
335	`TestDirectoryConfig( 'GBE_DPKG_STORE' );`	336	`TestDirectoryConfig( 'GBE_DPKG_STORE' );`
336	`TestDirectoryConfig( 'GBE_DPKG_REPLICA' );`	337	`TestDirectoryConfig( 'GBE_DPKG_REPLICA' );`
-		338	`TestDirectoryConfig( 'GBE_DPKG_ESCROW' );`
337	`TestDirectoryConfig( 'GBE_DPKG_SBOX' );`	339	`TestDirectoryConfig( 'GBE_DPKG_SBOX' );`
338	`TestDirectoryConfig( 'GBE_SANDBOX' );`	340	`TestDirectoryConfig( 'GBE_SANDBOX' );`
339		341
340	`################################################################################`	342	`################################################################################`
341	`# Setup the Machine Type`	343	`# Setup the Machine Type`
Line 776...		Line 778...
776	`Error ("GBE_DPLY is not a directory : $GBE_DPLY")`	778	`Error ("GBE_DPLY is not a directory : $GBE_DPLY")`
777	`if ( $GBE_DPLY && ! -d $GBE_DPLY );`	779	`if ( $GBE_DPLY && ! -d $GBE_DPLY );`
778		780
779	`Error ("GBE_DPKG_REPLICA is not a directory : $GBE_DPKG_REPLICA")`	781	`Error ("GBE_DPKG_REPLICA is not a directory : $GBE_DPKG_REPLICA")`
780	`if ( $GBE_DPKG_REPLICA && ! -d $GBE_DPKG_REPLICA );`	782	`if ( $GBE_DPKG_REPLICA && ! -d $GBE_DPKG_REPLICA );`
-		783
-		784	`Error ("GBE_DPKG_ESCROW is not a directory : $GBE_DPKG_ESCROW")`
-		785	`if ( $GBE_DPKG_ESCROW && ! -d $GBE_DPKG_ESCROW );`
781		786
782	`########################################################################`	787	`########################################################################`
783	`#`	788	`#`
784	`# Locate a local_dpkg_archive directory, by searching from the CWD`	789	`# Locate a local_dpkg_archive directory, by searching from the CWD`
785	`# to the root of the file system`	790	`# to the root of the file system`
Line 1060...		Line 1065...
1060	`$ENV{'GBE_BIN'} = $GBE_BIN;`	1065	`$ENV{'GBE_BIN'} = $GBE_BIN;`
1061	`$ENV{'GBE_CONFIG'} = $GBE_CONFIG;`	1066	`$ENV{'GBE_CONFIG'} = $GBE_CONFIG;`
1062	`$ENV{'GBE_DPLY'} = $GBE_DPLY;`	1067	`$ENV{'GBE_DPLY'} = $GBE_DPLY;`
1063	`$ENV{'GBE_DPKG'} = $GBE_DPKG;`	1068	`$ENV{'GBE_DPKG'} = $GBE_DPKG;`
1064	`$ENV{'JATS_HOME'} = $GBE_DPKG;`	1069	`$ENV{'JATS_HOME'} = $GBE_DPKG;`
-		1070	`$ENV{'GBE_DPKG_ESCROW'} = $GBE_DPKG_ESCROW;`
1065	`$ENV{'GBE_DPKG_CACHE'} = $GBE_DPKG_CACHE;`	1071	`$ENV{'GBE_DPKG_CACHE'} = $GBE_DPKG_CACHE;`
1066	`$ENV{'GBE_DPKG_REPLICA'} = $GBE_DPKG_REPLICA;`	1072	`$ENV{'GBE_DPKG_REPLICA'} = $GBE_DPKG_REPLICA;`
1067	`$ENV{'GBE_DPKG_STORE'} = $GBE_DPKG_STORE;`	1073	`$ENV{'GBE_DPKG_STORE'} = $GBE_DPKG_STORE;`
1068	`$ENV{'GBE_DPKG_LOCAL'} = $GBE_DPKG_LOCAL;`	1074	`$ENV{'GBE_DPKG_LOCAL'} = $GBE_DPKG_LOCAL;`
1069	`$ENV{'GBE_SANDBOX'} = $GBE_SANDBOX;`	1075	`$ENV{'GBE_SANDBOX'} = $GBE_SANDBOX;`
Line 1158...		Line 1164...
1158	`{`	1164	`{`
1159	`my ($version) = @_;`	1165	`my ($version) = @_;`
1160	`my $package;`	1166	`my $package;`
1161	`my $path;`	1167	`my $path;`
1162		1168
1163	`foreach my $archive (qw ( GBE_DPKG_LOCAL GBE_DPKG_CACHE GBE_DPKG_REPLICA GBE_DPKG GBE_DPKG_STORE ))`	1169	`foreach my $archive (qw ( GBE_DPKG_LOCAL GBE_DPKG_CACHE GBE_DPKG_ESCROW GBE_DPKG_REPLICA GBE_DPKG GBE_DPKG_STORE ))`
1164	`{`	1170	`{`
1165	`no strict 'refs';`	1171	`no strict 'refs';`
1166	`$path = ${$archive};`	1172	`$path = ${$archive};`
1167	`use strict 'refs';`	1173	`use strict 'refs';`
1168	`next unless ( $path );`	1174	`next unless ( $path );`