view release on metacpan or  search on metacpan

script/esa-makesandbox  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
our $VERSION = '0.024';

use File::ShareDir qw/module_dir/;
use Path::Tiny;
use File::Copy::Recursive qw/dircopy/;
use App::EvalServerAdvanced::Sandbox;

print "Making a sandbox environment for you ";
$File::Copy::Recursive::KeepMode = 0;

my $skel_dir = path(module_dir("App::EvalServerAdvanced::Sandbox"))->realpath;
my $sandbox_dir = path("./sandbox")->realpath;

print ".";
$sandbox_dir->mkpath;

print ".";
dircopy($skel_dir, $sandbox_dir);
print ".\n";

$sandbox_dir->child("gensystem.sh")->chmod("a+x");

print "Sandbox environment made, you must edit sandbox/etc/config.toml and run sandbox/gensystem.sh\n";