Subversion Repositories DevTools

Rev

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

Rev 363 Rev 365
Line 208... Line 208...
208
    {
208
    {
209
        Warning("No sandbox found to delete");
209
        Warning("No sandbox found to delete");
210
    }
210
    }
211
    else
211
    else
212
    {
212
    {
213
        Error ("Sandbox directory not completly removed")
213
        Error ("Sandbox directory not completely removed")
214
            if RmDirTree( "$GBE_SANDBOX/sandbox_dpkg_archive" );
214
            if RmDirTree( "$GBE_SANDBOX/sandbox_dpkg_archive" );
215
 
215
 
216
        Message("Sandbox information deleted",
216
        Message("Sandbox information deleted",
217
                "Sandbox components must be manually deleted");
217
                "Sandbox components must be manually deleted");
218
    }
218
    }
Line 437... Line 437...
437
        $depends{$be->{tag}}{depends} = $be->{depends};
437
        $depends{$be->{tag}}{depends} = $be->{depends};
438
    }
438
    }
439
 
439
 
440
    foreach my $dname ( sort keys %multi )
440
    foreach my $dname ( sort keys %multi )
441
    {
441
    {
442
        ReportError ("Mutiple builders for : $dname", @{$multi{$dname}} )
442
        ReportError ("Multiple builders for : $dname", @{$multi{$dname}} )
443
            if ( scalar @{$multi{$dname}} > 1 );
443
            if ( scalar @{$multi{$dname}} > 1 );
444
    }
444
    }
445
    ErrorDoExit();
445
    ErrorDoExit();
446
 
446
 
447
#DebugDumpData ("depends", \%depends );
447
#DebugDumpData ("depends", \%depends );
Line 731... Line 731...
731
    #
731
    #
732
    Message("Cache External Dependencies");
732
    Message("Cache External Dependencies");
733
    calc_sandbox_info();
733
    calc_sandbox_info();
734
 
734
 
735
    #
735
    #
736
    #   Walk the list of external depenedencies and cache each one
736
    #   Walk the list of external despondencies and cache each one
737
    #
737
    #
738
    foreach my $de ( sort keys %extern_deps )
738
    foreach my $de ( sort keys %extern_deps )
739
    {
739
    {
740
        my @vlist = keys %{$extern_deps{$de}};
740
        my @vlist = keys %{$extern_deps{$de}};
741
        foreach my $pve ( @vlist )
741
        foreach my $pve ( @vlist )
Line 819... Line 819...
819
    #   Allow exactly zero or two 'bare' arguments
819
    #   Allow exactly zero or two 'bare' arguments
820
    #   Create an array of package-versions to be processed.
820
    #   Create an array of package-versions to be processed.
821
    #
821
    #
822
    if ( $#opt_fnames >= 0 )
822
    if ( $#opt_fnames >= 0 )
823
    {
823
    {
824
        Error ("Populate: Must speicfy both a package name and version")
824
        Error ("Populate: Must specify both a package name and version")
825
            if ( $#opt_fnames != 1 );
825
            if ( $#opt_fnames != 1 );
826
        push @PopBase, join( $;, @opt_fnames );
826
        push @PopBase, join( $;, @opt_fnames );
827
    }
827
    }
828
    elsif ( $opt_missing )
828
    elsif ( $opt_missing )
829
    {
829
    {
Line 916... Line 916...
916
    {
916
    {
917
        foreach my $pver ( sort keys %{$PopPackage{$pname}} )
917
        foreach my $pver ( sort keys %{$PopPackage{$pname}} )
918
        {
918
        {
919
            #
919
            #
920
            #   Create a nice view name for the extraction
920
            #   Create a nice view name for the extraction
921
            #   Will also be used to test for package existance
921
            #   Will also be used to test for package existence
922
            #
922
            #
923
            my $vname = "$pname $pver";
923
            my $vname = "$pname $pver";
924
            $vname =~ s~ ~_~g;
924
            $vname =~ s~ ~_~g;
925
            $vname =~ s~__~~g;
925
            $vname =~ s~__~~g;
926
 
926
 
Line 1099... Line 1099...
1099
    my ($pv_id, $pname, $pver) = @_;
1099
    my ($pv_id, $pname, $pver) = @_;
1100
 
1100
 
1101
    connectRM(\$RM_DB) unless ($RM_DB);
1101
    connectRM(\$RM_DB) unless ($RM_DB);
1102
 
1102
 
1103
    #
1103
    #
1104
    #   Now extract the package dependacies
1104
    #   Now extract the package dependencies
1105
    #
1105
    #
1106
    my $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pd.DPV_ID" .
1106
    my $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pd.DPV_ID" .
1107
                   " FROM RELEASE_MANAGER.PACKAGE_DEPENDENCIES pd, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .
1107
                   " FROM RELEASE_MANAGER.PACKAGE_DEPENDENCIES pd, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .
1108
                   " WHERE pd.PV_ID = \'$pv_id\' AND pd.DPV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";
1108
                   " WHERE pd.PV_ID = \'$pv_id\' AND pd.DPV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";
1109
    my $sth = $RM_DB->prepare($m_sqlstr);
1109
    my $sth = $RM_DB->prepare($m_sqlstr);
Line 1265... Line 1265...
1265
The sandbox directory is marked as being a sandbox through the use of the
1265
The sandbox directory is marked as being a sandbox through the use of the
1266
'sandbox create' command. This will create a suitable structure within the
1266
'sandbox create' command. This will create a suitable structure within the
1267
current directory.
1267
current directory.
1268
 
1268
 
1269
Several JATS commands operate differently within a sandbox. The 'extract' and
1269
Several JATS commands operate differently within a sandbox. The 'extract' and
1270
'release' commands will create static viwes within the sandbox and not the
1270
'release' commands will create static views within the sandbox and not the
1271
normal directory. The 'sandbox' sub commands can only be used within a sandbox.
1271
normal directory. The 'sandbox' sub commands can only be used within a sandbox.
1272
 
1272
 
1273
The sandbox directory contains sub directories, each should contain a single
1273
The sandbox directory contains sub directories, each should contain a single
1274
package. Sub directories may be created with the 'jats extract' command or with the
1274
package. Sub directories may be created with the 'jats extract' command or with the
1275
'jats sandbox populate' command.
1275
'jats sandbox populate' command.
1276
 
1276
 
1277
Note: Symbolic links are not supported. They cannot work as he sandbox mechanism
1277
Note: Symbolic links are not supported. They cannot work as he sandbox mechanism
1278
requires that all the packages be conatined within a sub directory tree so
1278
requires that all the packages be contained within a sub directory tree so
1279
that the root of the sandbox can be located by a simple scan of the directory
1279
that the root of the sandbox can be located by a simple scan of the directory
1280
tree.
1280
tree.
1281
 
1281
 
1282
If a package subdirectory contains a file called 'stop' or 'stop.
1282
If a package subdirectory contains a file called 'stop' or 'stop.
1283
<GBE_MACHTYPE>', then that package will not be considered as a part of the
1283
<GBE_MACHTYPE>', then that package will not be considered as a part of the
Line 1472... Line 1472...
1472
 
1472
 
1473
=head1 Delete Sandbox
1473
=head1 Delete Sandbox
1474
 
1474
 
1475
=head2 NAME
1475
=head2 NAME
1476
 
1476
 
1477
Deleta a sandbox
1477
Delete a a sandbox
1478
 
1478
 
1479
=head2 SYNOPSIS
1479
=head2 SYNOPSIS
1480
 
1480
 
1481
jats sandbox [options] delete
1481
jats sandbox [options] delete
1482
 
1482