add support for add-fd command

We can now pass open file descriptors to qemu.
This commit is contained in:
Dietmar Maurer 2012-12-06 08:39:03 +01:00
parent 8afd0c622f
commit 558f16446e

View File

@ -1,13 +1,13 @@
package PVE::QMPClient;
use strict;
#use PVE::SafeSyslog;
use PVE::QemuServer;
use IO::Multiplex;
use POSIX qw(EINTR EAGAIN);
use JSON;
use Time::HiRes qw(usleep gettimeofday tv_interval);
use Scalar::Util qw(weaken);
use PVE::IPCC;
use Data::Dumper;
@ -82,6 +82,8 @@ sub cmd {
$timeout = 60; # note: cdrom mount command is slow
} elsif ($cmd->{execute} eq 'savevm-start' ||
$cmd->{execute} eq 'savevm-end' ||
$cmd->{execute} eq 'query-backup' ||
$cmd->{execute} eq 'backup_cancel' ||
$cmd->{execute} eq 'query-savevm' ||
$cmd->{execute} eq 'delete-drive-snapshot' ||
$cmd->{execute} eq 'snapshot-drive' ) {
@ -178,12 +180,23 @@ my $check_queue = sub {
my $cmd = $self->{current}->{$vmid} = shift @{$self->{queue}->{$vmid}};
$cmd->{id} = &$next_cmdid();
my $fd = -1;
if ($cmd->{execute} eq 'add-fd') {
$fd = $cmd->{arguments}->{fd};
delete $cmd->{arguments}->{fd};
}
my $qmpcmd = to_json({
execute => $cmd->{execute},
arguments => $cmd->{arguments},
id => $cmd->{id}});
if ($fd >= 0) {
my $ret = PVE::IPCC::sendfd(fileno($fh), $fd, $qmpcmd);
die "sendfd failed" if $ret < 0;
} else {
$self->{mux}->write($fh, $qmpcmd);
}
};
if (my $err = $@) {
$self->{errors}->{$vmid} = $err;