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



    {
        Warning("No sandbox found to delete");
    }
    else
    {
        Error ("Sandbox directory not completely removed")
            if RmDirTree( "$GBE_SANDBOX/sandbox_dpkg_archive" );
 
        Message("Sandbox information deleted",
                "Sandbox components must be manually deleted");
    }

        $depends{$be->{tag}}{depends} = $be->{depends};
    }
 
    foreach my $dname ( sort keys %multi )
    {
        ReportError ("Multiple builders for : $dname", @{$multi{$dname}} )
            if ( scalar @{$multi{$dname}} > 1 );
    }
    ErrorDoExit();
 
#DebugDumpData ("depends", \%depends );

    #
    Message("Cache External Dependencies");
    calc_sandbox_info();
 
    #
    #   Walk the list of external despondencies and cache each one
    #
    foreach my $de ( sort keys %extern_deps )
    {
        my @vlist = keys %{$extern_deps{$de}};
        foreach my $pve ( @vlist )

    #   Allow exactly zero or two 'bare' arguments
    #   Create an array of package-versions to be processed.
    #
    if ( $#opt_fnames >= 0 )
    {
        Error ("Populate: Must specify both a package name and version")
            if ( $#opt_fnames != 1 );
        push @PopBase, join( $;, @opt_fnames );
    }
    elsif ( $opt_missing )
    {

    {
        foreach my $pver ( sort keys %{$PopPackage{$pname}} )
        {
            #
            #   Create a nice view name for the extraction
            #   Will also be used to test for package existence
            #
            my $vname = "$pname $pver";
            $vname =~ s~ ~_~g;
            $vname =~ s~__~~g;
 

    my ($pv_id, $pname, $pver) = @_;
 
    connectRM(\$RM_DB) unless ($RM_DB);
 
    #
    #   Now extract the package dependencies
    #
    my $m_sqlstr = "SELECT pkg.PKG_NAME, pv.PKG_VERSION, pd.DPV_ID" .
                   " FROM RELEASE_MANAGER.PACKAGE_DEPENDENCIES pd, RELEASE_MANAGER.PACKAGE_VERSIONS pv, RELEASE_MANAGER.PACKAGES pkg" .
                   " WHERE pd.PV_ID = \'$pv_id\' AND pd.DPV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID";
    my $sth = $RM_DB->prepare($m_sqlstr);

The sandbox directory is marked as being a sandbox through the use of the
'sandbox create' command. This will create a suitable structure within the
current directory.
 
Several JATS commands operate differently within a sandbox. The 'extract' and
'release' commands will create static views within the sandbox and not the
normal directory. The 'sandbox' sub commands can only be used within a sandbox.
 
The sandbox directory contains sub directories, each should contain a single
package. Sub directories may be created with the 'jats extract' command or with the
'jats sandbox populate' command.
 
Note: Symbolic links are not supported. They cannot work as he sandbox mechanism
requires that all the packages be contained within a sub directory tree so
that the root of the sandbox can be located by a simple scan of the directory
tree.
 
If a package subdirectory contains a file called 'stop' or 'stop.
<GBE_MACHTYPE>', then that package will not be considered as a part of the

 
=head1 Delete Sandbox
 
=head2 NAME
 
Delete a a sandbox
 
=head2 SYNOPSIS
 
jats sandbox [options] delete
 

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

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats_sandbox.pl – Rev 363 → 365