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