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

implement 'qm rescan' to update disk sizes and unused disk info

Browse Source
This commit is contained in:
Dietmar Maurer 2012-08-20 09:23:00 +02:00
parent feddc36180
commit c21536ab78
3 changed files with 91 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -2,7 +2,7 @@ RELEASE=2.1
VERSION=2.0
PACKAGE=qemu-server
PKGREL=49
PKGREL=50
DESTDIR=
PREFIX=/usr

6
changelog.Debian
View File

@ -1,3 +1,9 @@
qemu-server (2.0-50) unstable; urgency=low
* implement 'qm rescan' to update disk sizes and unused disk info
-- Proxmox Support Team <support@proxmox.com> Mon, 20 Aug 2012 09:22:29 +0200
qemu-server (2.0-49) unstable; urgency=low
* fix bug 242: re-add old monitor code

84
qm
View File

@ -303,6 +303,88 @@ __PACKAGE__->register_method ({
}});
__PACKAGE__->register_method ({
name => 'rescan',
path => 'rescan',
method => 'POST',
description => "Rescan all storages and update disk sizes and unused disk images.",
parameters => {
additionalProperties => 0,
properties => {
vmid => get_standard_option('pve-vmid', {optional => 1}),
},
},
returns => { type => 'null'},
code => sub {
my ($param) = @_;
my $cfg = PVE::Cluster::cfs_read_file("storage.cfg");
my $info = PVE::Storage::vdisk_list($cfg, undef, $param->{vmid});
my $volid_hash = {};
foreach my $storeid (keys %$info) {
foreach my $item (@{$info->{$storeid}}) {
next if !($item->{volid} && $item->{size});
$volid_hash->{$item->{volid}} = $item;
}
}
my $updatefn = sub {
my ($vmid) = @_;
my $conf = PVE::QemuServer::load_config($vmid);
PVE::QemuServer::check_lock($conf);
my $changes;
my $used = {};
# update size info
foreach my $opt (keys %$conf) {
if (PVE::QemuServer::valid_drivename($opt)) {
my $drive = PVE::QemuServer::parse_drive($opt, $conf->{$opt});
my $volid = $drive->{file};
next if !$volid;
$used->{$volid} = 1;
next if PVE::QemuServer::drive_is_cdrom($drive);
next if !$volid_hash->{$volid};
$drive->{size} = $volid_hash->{$volid}->{size};
$changes = 1;
$conf->{$opt} = PVE::QemuServer::print_drive($vmid, $drive);
}
}
# add unused volumes
foreach my $storeid (keys %$info) {
foreach my $item (@{$info->{$storeid}}) {
next if !($item->{volid} && $item->{vmid});
next if $item->{vmid} ne $vmid;
next if $used->{$item->{volid}};
$changes = 1;
PVE::QemuServer::add_unused_volume($conf, $item->{volid});
}
}
PVE::QemuServer::update_config_nolock($vmid, $conf, 1) if $changes;
};
if (defined($param->{vmid})) {
PVE::QemuServer::lock_config($param->{vmid}, $updatefn, $param->{vmid});
} else {
my $vmlist = PVE::QemuServer::config_list();
foreach my $vmid (keys %$vmlist) {
PVE::QemuServer::lock_config($vmid, $updatefn, $vmid);
}
}
return undef;
}});
my $cmddef = {
list => [ "PVE::API2::Qemu", 'vmlist', [],
{ node => $nodename }, sub {
@ -373,6 +455,8 @@ my $cmddef = {
unlock => [ __PACKAGE__, 'unlock', ['vmid']],
rescan => [ __PACKAGE__, 'rescan', []],
monitor => [ __PACKAGE__, 'monitor', ['vmid']],
mtunnel => [ __PACKAGE__, 'mtunnel', []],