Subversion Repositories DevTools

Rev

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

Rev 337 Rev 341
Line 157... Line 157...
157 
{
 157 
{
158 
    Error ("Unexpected arguments: @ARGV") if ( @ARGV );
 158 
    Error ("Unexpected arguments: @ARGV") if ( @ARGV );
159 
    Error ("Cannot create a sandbox within a sandbox",
 159 
    Error ("Cannot create a sandbox within a sandbox",
160 
           "Sandbox base is: $GBE_SANDBOX" ) if ( $GBE_SANDBOX );
 160 
           "Sandbox base is: $GBE_SANDBOX" ) if ( $GBE_SANDBOX );
161 
    mkdir ('sandbox_dpkg_archive') || Error ("Cannot create the directory: sandbox_dpkg_archive") ;
 161 
    mkdir ('sandbox_dpkg_archive') || Error ("Cannot create the directory: sandbox_dpkg_archive") ;
- 
 
 162 
    Message ('Sandbox created');
162 
    exit  0;
 163 
    exit  0;
163 
}
 164 
}
164 
 
 165 
 
165 
#-------------------------------------------------------------------------------
 166 
#-------------------------------------------------------------------------------
166 
# Function        : delete_sandbox
 167 
# Function        : delete_sandbox