Subversion Repositories DevTools

Rev

Rev 7300 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7300 Rev 7319
Line 59... Line 59...
59 
my $GBE_DPKG            = $ENV{'GBE_DPKG'};                     # The Master repository
 59 
my $GBE_DPKG            = $ENV{'GBE_DPKG'};                     # The Master repository
60 
my $GBE_DPKG_CACHE      = $ENV{'GBE_DPKG_CACHE'} || "";         # Caches
 60 
my $GBE_DPKG_CACHE      = $ENV{'GBE_DPKG_CACHE'} || "";         # Caches
61 
my $GBE_DPKG_LOCAL      = $ENV{'GBE_DPKG_LOCAL'} || "";         # Local scratch
 61 
my $GBE_DPKG_LOCAL      = $ENV{'GBE_DPKG_LOCAL'} || "";         # Local scratch
62 
my $GBE_DPKG_STORE      = $ENV{'GBE_DPKG_STORE'} || "";         # Global Store
 62 
my $GBE_DPKG_STORE      = $ENV{'GBE_DPKG_STORE'} || "";         # Global Store
63 
my $GBE_DPKG_REPLICA    = $ENV{'GBE_DPKG_REPLICA'} || "";       # Site Local Replica
 63 
my $GBE_DPKG_REPLICA    = $ENV{'GBE_DPKG_REPLICA'} || "";       # Site Local Replica
- 
 
 64 
my $GBE_DPKG_ESCROW     = $ENV{'GBE_DPKG_ESCROW'} || "";        # Escrow Store
64 
my $GBE_BIN             = $ENV{'GBE_BIN'};
 65 
my $GBE_BIN             = $ENV{'GBE_BIN'};
65 
 
 66 
 
66 
my $istore;
 67 
my $istore;
- 
 
 68 
my $estore;
67 
my $gstore;
 69 
my $gstore;
68 
my $archive;
 70 
my $archive;
69 
my $cache;
 71 
my $cache;
70 
my $parchive;
 72 
my $parchive;
71 
my $local = '';
 73 
my $local = '';
Line 147... Line 149...
147 
#   Locate the various package stores
 149 
#   Locate the various package stores
148 
#   Search order for package should be:
 150 
#   Search order for package should be:
149 
#       DPKG_SANDBOX (Not cached)
 151 
#       DPKG_SANDBOX (Not cached)
150 
#       DPKG_LOCAL   (To be deprecated)
 152 
#       DPKG_LOCAL   (To be deprecated)
151 
#       DPKG_CACHE
 153 
#       DPKG_CACHE
- 
 
 154 
#       DPKG_ESCROW
152 
#       DPKG_REPLICA
 155 
#       DPKG_REPLICA
153 
#       DPKG         (Writable to build system)
 156 
#       DPKG         (Writable to build system)
154 
#       DPKG_STORE
 157 
#       DPKG_STORE
155 
#
 158 
#
156 
$local = $GBE_DPKG_LOCAL;
 159 
$local = $GBE_DPKG_LOCAL;
157 
$cache = $GBE_DPKG_CACHE;
 160 
$cache = $GBE_DPKG_CACHE;
- 
 
 161 
$estore = $GBE_DPKG_ESCROW;
158 
$istore = $GBE_DPKG_REPLICA;
 162 
$istore = $GBE_DPKG_REPLICA;
159 
$archive = $GBE_DPKG;
 163 
$archive = $GBE_DPKG;
160 
$gstore = $GBE_DPKG_STORE;
 164 
$gstore = $GBE_DPKG_STORE;
161 
 
 165 
 
162 
Error ("dpkg_archive cache is the main archive")    if ( $cache eq $archive );
 166 
Error ("dpkg_archive cache is the main archive")    if ( $cache eq $archive );
Line 300... Line 304...
300 
#   Display cache information
 304 
#   Display cache information
301 
#   This is done AFTER the export - since the export command does not
 305 
#   This is done AFTER the export - since the export command does not
302 
#   need this header.
 306 
#   need this header.
303 
if ( $opt_verbose || $#ARGV < 0 )
 307 
if ( $opt_verbose || $#ARGV < 0 )
304 
{
 308 
{
305 
    print  "dpkg_store        : $gstore\n" if ($gstore);
 309 
    print  "dpkg_store          : $gstore\n" if ($gstore);
- 
 
 310 
    print  "dpkg_escrow         : $estore\n" if ($estore);
306 
    print  "dpkg_archive      : $archive\n";
 311 
    print  "dpkg_archive        : $archive\n";
307 
    print  "dpkg_archive image: $istore\n";
 312 
    print  "dpkg_archive replica: $istore\n";
308 
    print  "dpkg_archive cache: $cache\n";
 313 
    print  "dpkg_archive cache  : $cache\n";
309 
    print  "dpkg_archive local: $local\n";
 314 
    print  "dpkg_archive local  : $local\n";
310 
    Verbose ("args:               @ARGV");
 315 
    Verbose ("args:               @ARGV");
311 
}
 316 
}
312 
 
 317 
 
313 
#
 318 
#
314 
#   List the contents of the cache
 319 
#   List the contents of the cache
Line 439... Line 444...
439 
        }
 444 
        }
440 
 
 445 
 
441 
        #
 446 
        #
442 
        #   Locate package.
 447 
        #   Locate package.
443 
        #   It may be in GBE_DPKG_REPLICA, GBE_DPKG or GBE_DPKG_STORE
 448 
        #   It may be in GBE_DPKG_REPLICA, GBE_DPKG or GBE_DPKG_STORE
- 
 
 449 
        #   Or it may only be in GBE_DPKG_ESCROW
444 
        #       Package may (jats2_current) be a symlink
 450 
        #       Package may (jats2_current) be a symlink
445 
        #
 451 
        #
446 
        my $pkg_found;
 452 
        my $pkg_found;
- 
 
 453 
        my @storeList;
- 
 
 454 
        if ($estore) {
- 
 
 455 
            push @storeList, $estore;
- 
 
 456 
        } else {
447 
        foreach my $store ( $istore, $archive, $gstore)
 457 
            push @storeList,  $istore, $archive, $gstore ;
- 
 
 458 
        }
- 
 
 459 
        foreach my $store (@storeList)
448 
        {
 460 
        {
449 
            $parchive = "$store/$_";
 461 
            $parchive = "$store/$_";
450 
 
 462 
 
451 
            if (-l $parchive)
 463 
            if (-l $parchive)
452 
            {
 464 
            {