#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
package Rex::Virtualization::VBox::start;
use v5.12.5;
use warnings;
our $VERSION = '1.15.0.2'; # TRIAL VERSION
use Rex::Logger;
use Rex::Helper::Run;
use Rex::Commands::File;
use Rex::Commands;
use Rex::Helper::Path;
use Cwd 'getcwd';
sub execute {
  my ( $class, $arg1, %opt ) = @_;
  unless ($arg1) {
    die("You have to define the vm name!");
  }
  my $dom = $arg1;
  Rex::Logger::debug("starting domain: $dom");
  unless ($dom) {
    die("VM $dom not found.");
  }
  my $virt_settings = Rex::Config->get("virtualization");
  my $headless      = 0;
  if ( ref($virt_settings) ) {
    if ( exists $virt_settings->{headless} && $virt_settings->{headless} ) {
      $headless = 1;
    }
  }
  if ( $headless && $^O =~ m/^MSWin/ && !Rex::is_ssh() ) {
    Rex::Logger::info(
      "Right now it is not possible to run VBoxHeadless under Windows.");
    $headless = 0;
  }
  if ($headless) {
    my $filename = get_tmp_file;
    file( "$filename", content => <<EOF );
use POSIX();
my \$pid = fork();
if (defined \$pid && \$pid == 0 ) {
  # child
  chdir "/";
  umask 0;
  POSIX::setsid();
  local \$SIG{'HUP'} = 'IGNORE';
  my \$spid = fork();
  if (defined \$spid && \$spid == 0 ) {
    open( STDIN,  "</dev/null" );
    open( STDOUT, "+>/dev/null" );
    open( STDERR, "+>/dev/null" );
    # 2nd child
    unlink "$filename";
    exec("VBoxHeadless --startvm \\\"$dom\\\"");
    exit;
  }
  exit; # end first child (2nd parent)
}
else {
  waitpid( \$pid, 0 );
}
exit;
EOF
    i_run "perl $filename", fail_ok => 1;
  }
  else {
    i_run "VBoxManage startvm \"$dom\"", fail_ok => 1;
  }
  if ( $? != 0 ) {
    die("Error starting vm $dom");
  }
}
1;