proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-05-29 18:45:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

qmpclient-qga : mux_input : parse qga result

Browse Source 
result sample:

first json is guest-sync result, second json is command result

{ "return": 123456}\n{"return": {}}

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
Signed-off-by: Dietmar Maurer <dietmar@proxmox.com>
This commit is contained in:
Alexandre Derumier 2013-03-17 16:09:07 +01:00 committed by Dietmar Maurer
parent a45a14fcf7
commit bcfbc40b39
1 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
PVE/QMPClient.pm
View File

@ -292,9 +292,15 @@ sub mux_close {
sub mux_input {
my ($self, $mux, $fh, $input) = @_;
return if $$input !~ s/^(.*})\r\n(.*)$/$2/so;
my $raw;
my $raw = $1;
if($self->{qga}){
return if $$input !~ s/^([^\n]+}\n[^\n]+})\n(.*)$/$2/so;
$raw = $1;
}else{
return if $$input !~ s/^([^\n]+})\r?\n(.*)$/$2/so;
$raw = $1;
}
my $vmid = $self->{fhs_lookup}->{$fh};
if (!$vmid) {
@ -305,6 +311,32 @@ sub mux_input {
eval {
my @jsons = split("\n", $raw);
if($self->{qga}){
die "response is not complete" if @jsons != 2 ;
my $obj = from_json($jsons[0]);
my $cmdid = $obj->{return};
die "received responsed without command id\n" if !$cmdid;
my $curcmd = $self->{current}->{$vmid};
die "unable to lookup current command for VM $vmid\n" if !$curcmd;
delete $self->{current}->{$vmid};
if ($curcmd->{id} ne $cmdid) {
die "got wrong command id '$cmdid' (expected $curcmd->{id})\n";
}
$obj = from_json($jsons[1]);
if (my $callback = $curcmd->{callback}) {
&$callback($vmid, $obj);
}
return;
}
foreach my $json (@jsons) {
my $obj = from_json($json);
next if defined($obj->{QMP}); # skip monitor greeting