Subversion Repositories DevTools

Rev

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

Rev 6276 Rev 6619
Line 189... Line 189...
189
# Inputs          : None
189
# Inputs          : None
190
#
190
#
191
#
191
#
192
sub create_sandbox
192
sub create_sandbox
193
{
193
{
-
 
194
    my  $opt_force;
194
    GetOptions (
195
    GetOptions (
195
                "help:+"        => \$opt_help,
196
                "help:+"        => \$opt_help,
196
                "manual:3"      => \$opt_help,
197
                "manual:3"      => \$opt_help,
197
                "exact"         => \$opt_exact,
198
                "exact"         => \$opt_exact,
-
 
199
                "force!"        => \$opt_force,
198
                ) || Error ("Invalid command line" );
200
                ) || Error ("Invalid command line" );
199
 
201
 
200
    SubCommandHelp( $opt_help, "Create Sandbox") if ($opt_help || $#ARGV >= 0 );
202
    SubCommandHelp( $opt_help, "Create Sandbox") if ($opt_help || $#ARGV >= 0 );
201
 
203
 
202
    Error ("Cannot create a sandbox within a sandbox",
204
    Error ("Cannot create a sandbox within a sandbox",
203
           "Sandbox base is: $GBE_SANDBOX" ) if ( $GBE_SANDBOX );
205
           "Sandbox base is: $GBE_SANDBOX" ) if ( $GBE_SANDBOX && !$opt_force );
204
 
206
 
205
    mkdir ('sandbox_dpkg_archive') || Error ("Cannot create the directory: sandbox_dpkg_archive") ;
207
    mkdir ('sandbox_dpkg_archive') || Error ("Cannot create the directory: sandbox_dpkg_archive") ;
206
 
208
 
207
    TouchFile( 'sandbox_dpkg_archive/.exact', 'Sandbox marker file')
209
    TouchFile( 'sandbox_dpkg_archive/.exact', 'Sandbox marker file')
208
        if ($opt_exact);
210
        if ($opt_exact);
Line 2908... Line 2910...
2908
 
2910
 
2909
 Command Options
2911
 Command Options
2910
    -help[=n]               - Command specific help, [n=1,2,3]
2912
    -help[=n]               - Command specific help, [n=1,2,3]
2911
    -verbose[=n]            - Verbose operation
2913
    -verbose[=n]            - Verbose operation
2912
    -exact                  - Create sandbox to reproduce exact versions
2914
    -exact                  - Create sandbox to reproduce exact versions
-
 
2915
    -[no]force              - Force creation of nested sandbox
2913
 
2916
 
2914
=head2 OPTIONS
2917
=head2 OPTIONS
2915
 
2918
 
2916
The 'create' command takes the following options:
2919
The 'create' command takes the following options:
2917
 
2920
 
Line 2924... Line 2927...
2924
sandbox are significant. This is ideal for recreating a package-version.
2927
sandbox are significant. This is ideal for recreating a package-version.
2925
 
2928
 
2926
The default is for in-exact processing, in which the version numbers of packages
2929
The default is for in-exact processing, in which the version numbers of packages
2927
within the sandbox are not significant. The is ideal for development.
2930
within the sandbox are not significant. The is ideal for development.
2928
 
2931
 
-
 
2932
=item -[no]force
-
 
2933
 
-
 
2934
Normally a sandbox should not be created within another sandbox. 
-
 
2935
 
-
 
2936
The use of this option overrides this limitation.
-
 
2937
 
-
 
2938
A sandbox with a sandbox will be ignored by the parent sandbox.
-
 
2939
 
2929
=back
2940
=back
2930
 
2941
 
2931
=head2 DESCRIPTION
2942
=head2 DESCRIPTION
2932
 
2943
 
2933
The 'create' command will create a sandbox in the users current directory. It is
2944
The 'create' command will create a sandbox in the users current directory. It is