use base qw(PVE::RESTHandler);
__PACKAGE__->register_method ({
- name => 'index',
+ name => 'index',
path => '',
method => 'GET',
description => "List storage content.",
- permissions => {
+ permissions => {
check => ['perm', '/storage/{storage}', ['Datastore.Audit', 'Datastore.AllocateSpace'], any => 1],
},
protected => 1,
proxyto => 'node',
parameters => {
additionalProperties => 0,
- properties => {
+ properties => {
node => get_standard_option('pve-node'),
storage => get_standard_option('pve-storage-id', {
completion => \&PVE::Storage::complete_storage_enabled,
}),
- content => {
+ content => {
description => "Only list content of this type.",
type => 'string', format => 'pve-storage-content',
optional => 1,
type => 'array',
items => {
type => "object",
- properties => {
- volid => {
- type => 'string'
- }
+ properties => {
+ volid => {
+ description => "Volume identifier.",
+ type => 'string',
+ },
+ vmid => {
+ description => "Associated Owner VMID.",
+ type => 'integer',
+ optional => 1,
+ },
+ parent => {
+ description => "Volume identifier of parent (for linked cloned).",
+ type => 'string',
+ optional => 1,
+ },
+ 'format' => {
+ description => "Format identifier ('raw', 'qcow2', 'subvol', 'iso', 'tgz' ...)",
+ type => 'string',
+ },
+ size => {
+ description => "Volume size in bytes.",
+ type => 'integer',
+ renderer => 'bytes',
+ },
+ used => {
+ description => "Used space. Please note that most storage plugins " .
+ "does not report anything useful here.",
+ type => 'integer',
+ renderer => 'bytes',
+ optional => 1,
+ },
},
},
links => [ { rel => 'child', href => "{volid}" } ],
foreach my $item (@$vollist) {
eval { PVE::Storage::check_volume_access($rpcenv, $authuser, $cfg, undef, $item->{volid}); };
next if $@;
+ $item->{vmid} = int($item->{vmid}) if (defined($item->{vmid}));
push @$res, $item;
}
- return $res;
+ return $res;
}});
__PACKAGE__->register_method ({
- name => 'create',
+ name => 'create',
path => '',
method => 'POST',
description => "Allocate disk images.",
- permissions => {
+ permissions => {
check => ['perm', '/storage/{storage}', ['Datastore.AllocateSpace']],
},
protected => 1,
proxyto => 'node',
parameters => {
additionalProperties => 0,
- properties => {
+ properties => {
node => get_standard_option('pve-node'),
storage => get_standard_option('pve-storage-id', {
completion => \&PVE::Storage::complete_storage_enabled,
}),
- filename => {
+ filename => {
description => "The name of the file to create.",
type => 'string',
},
if ($name =~ m/\.(raw|qcow2|vmdk)$/) {
my $fmt = $1;
- raise_param_exc({ format => "different storage formats ($param->{format} != $fmt)" })
+ raise_param_exc({ format => "different storage formats ($param->{format} != $fmt)" })
if $param->{format} && $param->{format} ne $fmt;
$param->{format} = $fmt;
}
my $cfg = PVE::Storage::config();
-
- my $volid = PVE::Storage::vdisk_alloc ($cfg, $storeid, $param->{vmid},
- $param->{format},
+
+ my $volid = PVE::Storage::vdisk_alloc ($cfg, $storeid, $param->{vmid},
+ $param->{format},
$name, $size);
return $volid;
$volid = $volume;
$storeid = $sid;
};
- raise_param_exc({ volume => $@ }) if $@;
-
+ raise_param_exc({ volume => $@ }) if $@;
+
} else {
- raise_param_exc({ volume => "no storage speficied - incomplete volume ID" })
+ raise_param_exc({ volume => "no storage speficied - incomplete volume ID" })
if !$storeid;
-
+
$volid = "$storeid:$volume";
}
path => '{volume}',
method => 'GET',
description => "Get volume attributes",
- permissions => {
+ permissions => {
description => "You need read access for the volume.",
user => 'all',
},
proxyto => 'node',
parameters => {
additionalProperties => 0,
- properties => {
+ properties => {
node => get_standard_option('pve-node'),
storage => get_standard_option('pve-storage-id', { optional => 1 }),
volume => {
description => "Volume identifier",
- type => 'string',
+ type => 'string',
},
},
},
my $cfg = PVE::Storage::config();
- PVE::Storage::check_volume_access($rpcenv, $rpcenv->$authuser, $cfg, undef, $volid);
+ PVE::Storage::check_volume_access($rpcenv, $authuser, $cfg, undef, $volid);
my $path = PVE::Storage::path($cfg, $volid);
my ($size, $format, $used, $parent) = PVE::Storage::file_size_info($path);
path => '{volume}',
method => 'DELETE',
description => "Delete volume",
- permissions => {
+ permissions => {
description => "You need 'Datastore.Allocate' privilege on the storage (or 'Datastore.AllocateSpace' for backup volumes if you have VM.Backup privilege on the VM).",
user => 'all',
},
proxyto => 'node',
parameters => {
additionalProperties => 0,
- properties => {
+ properties => {
node => get_standard_option('pve-node'),
storage => get_standard_option('pve-storage-id', {
optional => 1,
type => 'string',
completion => \&PVE::Storage::complete_volume,
},
+ delay => {
+ type => 'integer',
+ description => "Time to wait for the task to finish. We return 'null' if the task finish within that time.",
+ minimum => 1,
+ maximum => 30,
+ optional => 1,
+ },
},
},
- returns => { type => 'null' },
+ returns => { type => 'string', optional => 1, },
code => sub {
my ($param) = @_;
$rpcenv->check($authuser, "/storage/$storeid", ['Datastore.Allocate']);
}
- PVE::Storage::vdisk_free ($cfg, $volid);
+ my $worker = sub {
+ PVE::Storage::vdisk_free ($cfg, $volid);
+ print "Removed volume '$volid'\n";
+ if ($vtype eq 'backup'
+ && $path =~ /(.*\/vzdump-\w+-\d+-\d{4}_\d{2}_\d{2}-\d{2}_\d{2}_\d{2})[^\/]+$/) {
+ my $logpath = "$1.log";
+ # try to cleanup our backup log file too, if still exisiting, #318
+ unlink($logpath) if -e $logpath;
+ }
+ };
- return undef;
+ my $id = (defined $ownervm ? "$ownervm@" : '') . $storeid;
+ my $upid = $rpcenv->fork_worker('imgdel', $id, $authuser, $worker);
+ my $background_delay = $param->{delay};
+ if ($background_delay) {
+ my $end_time = time() + $background_delay;
+ my $currently_deleting; # not necessarily true, e.g. sequential api call from cli
+ do {
+ my $task = PVE::Tools::upid_decode($upid);
+ $currently_deleting = PVE::ProcFSTools::check_process_running($task->{pid}, $task->{pstart});
+ sleep 1 if $currently_deleting;
+ } while (time() < $end_time && $currently_deleting);
+
+ if (!$currently_deleting) {
+ my $status = PVE::Tools::upid_read_status($upid);
+ return undef if $status eq 'OK';
+ die $status;
+ }
+ }
+ return $upid;
}});
__PACKAGE__->register_method ({
proxyto => 'node',
parameters => {
additionalProperties => 0,
- properties => {
+ properties => {
node => get_standard_option('pve-node'),
storage => get_standard_option('pve-storage-id', { optional => 1}),
volume => {
description => "Source volume identifier",
- type => 'string',
+ type => 'string',
},
target => {
description => "Target volume identifier",
- type => 'string',
+ type => 'string',
},
- target_node => get_standard_option('pve-node', {
+ target_node => get_standard_option('pve-node', {
description => "Target node. Default is local node.",
optional => 1,
}),
},
},
- returns => {
+ returns => {
type => 'string',
},
code => sub {
# you need to get this working (fails currently, because storage_migrate() uses
# ssh to connect to local host (which is not needed
- PVE::Storage::storage_migrate($cfg, $src_volid, $target_node, $target_sid, $target_volname);
+ my $sshinfo = PVE::Cluster::get_ssh_info($target_node);
+ PVE::Storage::storage_migrate($cfg, $src_volid, $sshinfo, $target_sid, $target_volname);
print "DEBUG: end worker $upid\n";