proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-08-16 19:52:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

balloon: use qom-get for guest balloon statistics V5

Browse Source 
changelog:

we use MB, not bytes

$d->{balloon} = int($info->{stats}->{"stat-total-memory"}/1024/1024);
$d->{freemem} = int($info->{stats}->{"stat-free-memory"}/1024/1024);

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
This commit is contained in:
Alexandre Derumier 2015-03-06 09:11:28 +01:00 committed by Dietmar Maurer
parent 7a69fc3cd1
commit 0ea19b9cf7
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
PVE/QemuServer.pm
View File

@ -2490,17 +2490,12 @@ sub vmstatus {
my ($vmid, $resp) = @_; my ($vmid, $resp) = @_;
my $info = $resp->{'return'}; my $info = $resp->{'return'};
return if !$info->{max_mem};
my $d = $res->{$vmid}; my $d = $res->{$vmid};
# use memory assigned to VM if (defined($info->{stats}->{"stat-total-memory"}) && defined($info->{stats}->{"stat-free-memory"})) {
$d->{maxmem} = $info->{max_mem}; $d->{balloon} = int($info->{stats}->{"stat-total-memory"}/1024/1024);
$d->{balloon} = $info->{actual}; $d->{freemem} = int($info->{stats}->{"stat-free-memory"}/1024/1024);
$d->{mem} = $d->{maxmem} - $d->{freemem};
if (defined($info->{total_mem}) && defined($info->{free_mem})) {
$d->{mem} = $info->{total_mem} - $info->{free_mem};
$d->{freemem} = $info->{free_mem};
} }
}; };
@ -2524,7 +2519,13 @@ sub vmstatus {
$qmpclient->queue_cmd($vmid, $blockstatscb, 'query-blockstats'); $qmpclient->queue_cmd($vmid, $blockstatscb, 'query-blockstats');
# this fails if ballon driver is not loaded, so this must be # this fails if ballon driver is not loaded, so this must be
# the last commnand (following command are aborted if this fails). # the last commnand (following command are aborted if this fails).
$qmpclient->queue_cmd($vmid, $ballooncb, 'query-balloon'); # maybe is it fixed by
#http://git.qemu.org/?p=qemu.git;a=commit;h=38dbd48b247ebe05bdc6ef52ccdc60cc21274877
$qmpclient->queue_cmd($vmid, $ballooncb, 'qom-get',
path => "machine/peripheral/balloon0",
property => "guest-stats");
my $status = 'unknown'; my $status = 'unknown';
if (!defined($status = $resp->{'return'}->{status})) { if (!defined($status = $resp->{'return'}->{status})) {