qemush/qemu/launchers/9p

#!/usr/bin/env perl
use warnings;
use strict;

my @launchers_chain = ("kvm");

if (defined $ENV{'QEMUSH_BASE'}) {
    @launchers_chain = split ",", $ENV{'QEMUSH_BASE'};
}

my $base = shift @launchers_chain;
$ENV{'QEMUSH_BASE'} = join ",", @launchers_chain;

chomp(my $shared_folder = `pathof shared`);

my @command = (
    $base,
    "-fsdev", "local,security_model=passthrough,id=fsdev0,path=${shared_folder}",
    "-device", "virtio-9p-pci,id=fs0,fsdev=fsdev0,mount_tag=shared",
    @ARGV
);

print "+ exec ", join(" ", @command), "\n";
exec @command;