100111001

#!/usr/bin/env perl

use strict;
use warnings;

sub dom0_term {
	(exec 'xfce4-terminal') or (exec 'xterm') or die "dom0 terminal exec failed\n";
}

sub domU_term {

100111001

#!/usr/bin/env perl

use strict;
use warnings;

sub open_file_manager {
	my $vm = shift;
	exec {'qvm-run'} ('qvm-run', '--', $vm, 'exec nautilus --new-window --no-desktop </dev/null >/dev/null') or die "qvm-run exec failed\n";
}