use Cwd 'abs_path';
use Socket;
-use PVE::Tools qw(run_command file_read_firstline $IPV6RE);
-use PVE::Cluster qw(cfs_read_file cfs_lock_file);
+use PVE::Tools qw(run_command file_read_firstline dir_glob_foreach $IPV6RE);
+use PVE::Cluster qw(cfs_read_file cfs_write_file cfs_lock_file);
use PVE::Exception qw(raise_param_exc);
use PVE::JSONSchema;
use PVE::INotify;
use PVE::Storage::Plugin;
use PVE::Storage::DirPlugin;
use PVE::Storage::LVMPlugin;
+use PVE::Storage::LvmThinPlugin;
use PVE::Storage::NFSPlugin;
use PVE::Storage::ISCSIPlugin;
use PVE::Storage::RBDPlugin;
use PVE::Storage::ZFSPlugin;
use PVE::Storage::DRBDPlugin;
-# load and initialize all plugins
+# Storage API version. Icrement it on changes in storage API interface.
+use constant APIVER => 1;
+
+# load standard plugins
PVE::Storage::DirPlugin->register();
PVE::Storage::LVMPlugin->register();
+PVE::Storage::LvmThinPlugin->register();
PVE::Storage::NFSPlugin->register();
PVE::Storage::ISCSIPlugin->register();
PVE::Storage::RBDPlugin->register();
PVE::Storage::ZFSPoolPlugin->register();
PVE::Storage::ZFSPlugin->register();
PVE::Storage::DRBDPlugin->register();
+
+# load third-party plugins
+if ( -d '/usr/share/perl5/PVE/Storage/Custom' ) {
+ dir_glob_foreach('/usr/share/perl5/PVE/Storage/Custom', '.*\.pm$', sub {
+ my ($file) = @_;
+ my $modname = 'PVE::Storage::Custom::' . $file;
+ $modname =~ s!\.pm$!!;
+ $file = 'PVE/Storage/Custom/' . $file;
+
+ eval {
+ require $file;
+ };
+ if ($@) {
+ warn $@;
+ # Check storage API version and that file is really storage plugin.
+ } elsif ($modname->isa('PVE::Storage::Plugin') && $modname->can('api') && $modname->api() == APIVER) {
+ eval {
+ import $file;
+ $modname->register();
+ };
+ warn $@ if $@;
+ } else {
+ warn "Error loading storage plugin \"$modname\" because of API version mismatch. Please, update it.\n"
+ }
+ });
+}
+
+# initialize all plugins
PVE::Storage::Plugin->init();
my $UDEVADM = '/sbin/udevadm';
return cfs_read_file("storage.cfg");
}
+sub write_config {
+ my ($cfg) = @_;
+
+ cfs_write_file('storage.cfg', $cfg);
+}
+
sub lock_storage_config {
my ($code, $errmsg) = @_;
sub storage_config {
my ($cfg, $storeid, $noerr) = @_;
- die "no storage id specified\n" if !$storeid;
+ die "no storage ID specified\n" if !$storeid;
my $scfg = $cfg->{ids}->{$storeid};
run_command(['/bin/cp', $src, $dst]);
} else {
-
run_command(['/usr/bin/ssh', "root\@${target_host}",
'/bin/mkdir', '-p', $dirname]);
outfunc => sub {});
}
- my $cmd = ['/usr/bin/rsync', '--progress', '--sparse', '--whole-file',
- $src, "root\@${target_host}:$dst"];
+ my $cmd;
+ if ($format eq 'subvol') {
+ $cmd = ['/usr/bin/rsync', '--progress', '-X', '-A', '--numeric-ids',
+ '-aH', '--delete', '--no-whole-file', '--inplace',
+ '--one-file-system', "$src/", "[root\@${target_host}]:$dst"];
+ } else {
+ $cmd = ['/usr/bin/rsync', '--progress', '--sparse', '--whole-file',
+ $src, "[root\@${target_host}]:$dst"];
+ }
my $percent = -1;
if ($tcfg->{type} eq 'zfspool') {
- die "$errstr - pool on target has not same name as source!"
+ die "$errstr - pool on target does not have the same name as on source!"
if $tcfg->{pool} ne $scfg->{pool};
my (undef, $volname) = parse_volname($cfg, $volid);
my $zfspath = "$scfg->{pool}\/$volname";
- my $snap = "zfs snapshot $zfspath\@__migration__";
+ my $snap = ['zfs', 'snapshot', "$zfspath\@__migration__"];
- my $send = "zfs send -v $zfspath\@__migration__ \| ssh root\@$target_host zfs recv $zfspath";
+ my $send = [['zfs', 'send', '-Rpv', "$zfspath\@__migration__"], ['ssh', "root\@$target_host",
+ 'zfs', 'recv', $zfspath]];
- my $destroy_target = "ssh root\@$target_host zfs destroy $zfspath\@__migration__";
+ my $destroy_target = ['ssh', "root\@$target_host", 'zfs', 'destroy', "$zfspath\@__migration__"];
run_command($snap);
eval{
run_command($send);
};
my $err;
if ($err = $@){
- run_command("zfs destroy $zfspath\@__migration__");
+ run_command(['zfs', 'destroy', "$zfspath\@__migration__"]);
die $err;
}
run_command($destroy_target);
} else {
die "$errstr - target type $tcfg->{type} is not valid\n";
}
+
+ } elsif ($scfg->{type} eq 'lvmthin' || $scfg->{type} eq 'lvm') {
+
+ if (($scfg->{type} eq $tcfg->{type}) &&
+ ($tcfg->{type} eq 'lvmthin' || $tcfg->{type} eq 'lvm')) {
+
+ my (undef, $volname, $vmid) = parse_volname($cfg, $volid);
+ my $size = volume_size_info($cfg, $volid, 5);
+ my $src = path($cfg, $volid);
+ my $dst = path($cfg, $target_volid);
+
+ run_command(['/usr/bin/ssh', "root\@${target_host}",
+ 'pvesm', 'alloc', $target_storeid, $vmid,
+ $target_volname, int($size/1024)]);
+
+ eval {
+ if ($tcfg->{type} eq 'lvmthin') {
+ run_command([["dd", "if=$src"],["/usr/bin/ssh", "root\@${target_host}",
+ "dd", 'conv=sparse', "of=$dst"]]);
+ } else {
+ run_command([["dd", "if=$src"],["/usr/bin/ssh", "root\@${target_host}",
+ "dd", "of=$dst"]]);
+ }
+ };
+ if (my $err = $@) {
+ run_command(['/usr/bin/ssh', "root\@${target_host}",
+ 'pvesm', 'free', $target_volid]);
+ die $err;
+ }
+ } else {
+ die "$errstr - migrate from source type '$scfg->{type}' to '$tcfg->{type}' not implemented\n";
+ }
} else {
die "$errstr - source type '$scfg->{type}' not implemented\n";
}
sub vdisk_alloc {
my ($cfg, $storeid, $vmid, $fmt, $name, $size) = @_;
- die "no storage id specified\n" if !$storeid;
+ die "no storage ID specified\n" if !$storeid;
PVE::JSONSchema::parse_storage_id($storeid);
if ($basename && defined($basevmid) && $basevmid == $vmid && $basename eq $name) {
die "base volume '$volname' is still in use " .
- "(use by '$tmpvolname')\n";
+ "(used by '$tmpvolname')\n";
}
}
}
return $res;
}
+sub volume_list {
+ my ($cfg, $storeid, $vmid, $content) = @_;
+
+ my @ctypes = qw(images vztmpl iso backup);
+
+ my $cts = $content ? [ $content ] : [ @ctypes ];
+
+ my $scfg = PVE::Storage::storage_config($cfg, $storeid);
+
+ my $res = [];
+ foreach my $ct (@$cts) {
+ my $data;
+ if ($ct eq 'images') {
+ $data = vdisk_list($cfg, $storeid, $vmid);
+ } elsif ($ct eq 'iso' && !defined($vmid)) {
+ $data = template_list($cfg, $storeid, 'iso');
+ } elsif ($ct eq 'vztmpl'&& !defined($vmid)) {
+ $data = template_list ($cfg, $storeid, 'vztmpl');
+ } elsif ($ct eq 'backup') {
+ $data = template_list ($cfg, $storeid, 'backup');
+ foreach my $item (@{$data->{$storeid}}) {
+ if (defined($vmid)) {
+ @{$data->{$storeid}} = grep { $_->{volid} =~ m/\S+-$vmid-\S+/ } @{$data->{$storeid}};
+ }
+ }
+ }
+
+ next if !$data || !$data->{$storeid};
+
+ foreach my $item (@{$data->{$storeid}}) {
+ $item->{content} = $ct;
+ push @$res, $item;
+ }
+ }
+
+ return $res;
+}
+
sub uevent_seqnum {
my $filename = "/sys/kernel/uevent_seqnum";
}
sub activate_volumes {
- my ($cfg, $vollist) = @_;
+ my ($cfg, $vollist, $snapname) = @_;
return if !($vollist && scalar(@$vollist));
my ($storeid, $volname) = parse_volume_id($volid);
my $scfg = storage_config($cfg, $storeid);
my $plugin = PVE::Storage::Plugin->lookup($scfg->{type});
- $plugin->activate_volume($storeid, $scfg, $volname, $cache);
+ $plugin->activate_volume($storeid, $scfg, $volname, $snapname, $cache);
}
}
sub deactivate_volumes {
- my ($cfg, $vollist) = @_;
+ my ($cfg, $vollist, $snapname) = @_;
return if !($vollist && scalar(@$vollist));
my $plugin = PVE::Storage::Plugin->lookup($scfg->{type});
eval {
- $plugin->deactivate_volume($storeid, $scfg, $volname, $cache);
+ $plugin->deactivate_volume($storeid, $scfg, $volname, $snapname, $cache);
};
if (my $err = $@) {
warn $err;
}
}
- die "volume deativation failed: " . join(' ', @errlist)
+ die "volume deactivation failed: " . join(' ', @errlist)
if scalar(@errlist);
}
my $size = PVE::Storage::ZFSPoolPlugin::zfs_parse_size($size_str);
my $used = PVE::Storage::ZFSPoolPlugin::zfs_parse_size($used_str);
# ignore subvolumes generated by our ZFSPoolPlugin
- return if $pool =~ m!/subvol-\d+-[^/]+$!;
+ return if $pool =~ m!/subvol-\d+-[^/]+$!;
+ return if $pool =~ m!/basevol-\d+-[^/]+$!;
push @$res, { pool => $pool, size => $size, free => $size-$used };
}
});
}
}
+sub extract_vzdump_config_tar {
+ my ($archive, $conf_re) = @_;
+
+ die "ERROR: file '$archive' does not exist\n" if ! -f $archive;
+
+ my $pid = open(my $fh, '-|', 'tar', 'tf', $archive) ||
+ die "unable to open file '$archive'\n";
+
+ my $file;
+ while (defined($file = <$fh>)) {
+ if ($file =~ m!$conf_re!) {
+ $file = $1; # untaint
+ last;
+ }
+ }
+
+ kill 15, $pid;
+ waitpid $pid, 0;
+ close $fh;
+
+ die "ERROR: archive contains no configuration file\n" if !$file;
+ chomp $file;
+
+ my $raw = '';
+ my $out = sub {
+ my $output = shift;
+ $raw .= "$output\n";
+ };
+
+ PVE::Tools::run_command(['tar', '-xpOf', $archive, $file, '--occurrence'], outfunc => $out);
+
+ return wantarray ? ($raw, $file) : $raw;
+}
+
+sub extract_vzdump_config_vma {
+ my ($archive, $comp) = @_;
+
+ my $cmd;
+ my $raw = '';
+ my $out = sub {
+ my $output = shift;
+ $raw .= "$output\n";
+ };
+
+
+ if ($comp) {
+ my $uncomp;
+ if ($comp eq 'gz') {
+ $uncomp = ["zcat", $archive];
+ } elsif ($comp eq 'lzo') {
+ $uncomp = ["lzop", "-d", "-c", $archive];
+ } else {
+ die "unknown compression method '$comp'\n";
+ }
+ $cmd = [$uncomp, ["vma", "config", "-"]];
+
+ # in some cases, lzop/zcat exits with 1 when its stdout pipe is
+ # closed early by vma, detect this and ignore the exit code later
+ my $broken_pipe;
+ my $errstring;
+ my $err = sub {
+ my $output = shift;
+ if ($output =~ m/lzop: Broken pipe: <stdout>/ || $output =~ m/gzip: stdout: Broken pipe/) {
+ $broken_pipe = 1;
+ } elsif (!defined ($errstring) && $output !~ m/^\s*$/) {
+ $errstring = "Failed to extract config from VMA archive: $output\n";
+ }
+ };
+
+ # in other cases, the pipeline will exit with exit code 141
+ # because of the broken pipe, handle / ignore this as well
+ my $rc;
+ eval {
+ $rc = PVE::Tools::run_command($cmd, outfunc => $out, errfunc => $err, noerr => 1);
+ };
+ my $rerr = $@;
+
+ # use exit code if no stderr output and not just broken pipe
+ if (!$errstring && !$broken_pipe && $rc > 0 && $rc != 141) {
+ die "$rerr\n" if $rerr;
+ die "config extraction failed with exit code $rc\n";
+ }
+ die "$errstring\n" if $errstring;
+ } else {
+ # simple case without compression and weird piping behaviour
+ PVE::Tools::run_command(["vma", "config", $archive], outfunc => $out);
+ }
+
+ return wantarray ? ($raw, undef) : $raw;
+}
+
+sub extract_vzdump_config {
+ my ($cfg, $volid) = @_;
+
+ my $archive = abs_filesystem_path($cfg, $volid);
+
+ if ($volid =~ /\/vzdump-(lxc|openvz)-\d+-(\d{4})_(\d{2})_(\d{2})-(\d{2})_(\d{2})_(\d{2})\.(tgz|(tar(\.(gz|lzo))?))$/) {
+ return extract_vzdump_config_tar($archive,'^(\./etc/vzdump/(pct|vps)\.conf)$');
+ } elsif ($volid =~ /\/vzdump-qemu-\d+-(\d{4})_(\d{2})_(\d{2})-(\d{2})_(\d{2})_(\d{2})\.(tgz|((tar|vma)(\.(gz|lzo))?))$/) {
+ my $format;
+ my $comp;
+ if ($7 eq 'tgz') {
+ $format = 'tar';
+ $comp = 'gz';
+ } else {
+ $format = $9;
+ $comp = $11 if defined($11);
+ }
+
+ if ($format eq 'tar') {
+ return extract_vzdump_config_tar($archive, qr!\(\./qemu-server\.conf\)!);
+ } else {
+ return extract_vzdump_config_vma($archive, $comp);
+ }
+ } else {
+ die "cannot determine backup guest type for backup archive '$volid'\n";
+ }
+}
+
# bash completion helper
sub complete_storage {
- my ($cmdname, $pname, $cvalue) = @_;
+ my ($cmdname, $pname, $cvalue) = @_;
+
+ my $cfg = PVE::Storage::config();
- return $cmdname eq 'add' ? [] : [ PVE::Storage::storage_ids() ];
+ return $cmdname eq 'add' ? [] : [ PVE::Storage::storage_ids($cfg) ];
}
sub complete_storage_enabled {
- my ($cmdname, $pname, $cvalue) = @_;
+ my ($cmdname, $pname, $cvalue) = @_;
+
+ my $res = [];
+
+ my $cfg = PVE::Storage::config();
+ foreach my $sid (keys %{$cfg->{ids}}) {
+ next if !storage_check_enabled($cfg, $sid, undef, 1);
+ push @$res, $sid;
+ }
+ return $res;
+}
+
+sub complete_content_type {
+ my ($cmdname, $pname, $cvalue) = @_;
+
+ return [qw(rootdir images vztmpl iso backup)];
+}
+
+sub complete_volume {
+ my ($cmdname, $pname, $cvalue) = @_;
+
+ my $cfg = config();
+
+ my $storage_list = complete_storage_enabled();
+
+ if ($cvalue =~ m/^([^:]+):/) {
+ $storage_list = [ $1 ];
+ } else {
+ if (scalar(@$storage_list) > 1) {
+ # only list storage IDs to avoid large listings
+ my $res = [];
+ foreach my $storeid (@$storage_list) {
+ # Hack: simply return 2 artificial values, so that
+ # completions does not finish
+ push @$res, "$storeid:volname", "$storeid:...";
+ }
+ return $res;
+ }
+ }
- my $res = [];
+ my $res = [];
+ foreach my $storeid (@$storage_list) {
+ my $vollist = PVE::Storage::volume_list($cfg, $storeid);
- my $cfg = PVE::Storage::config();
- foreach my $sid (keys %{$cfg->{ids}}) {
- next if !storage_check_enabled($cfg, $sid, undef, 1);
- push @$res, $sid;
- }
- return $res;
+ foreach my $item (@$vollist) {
+ push @$res, $item->{volid};
+ }
+ }
+
+ return $res;
}
1;