use strict;
use warnings;
-use File::Path;
+
use File::Basename;
+use File::Path;
+use IO::File;
+use IPC::Open3;
+
+use PVE::Cluster qw(cfs_read_file);
use PVE::INotify;
-use PVE::VZDump;
use PVE::IPCC;
-use PVE::Cluster qw(cfs_read_file);
-use PVE::Tools;
+use PVE::JSONSchema;
+use PVE::QMPClient;
use PVE::Storage::Plugin;
+use PVE::Storage::PBSPlugin;
use PVE::Storage;
+use PVE::Tools;
+use PVE::VZDump;
+
use PVE::QemuServer;
-use IO::File;
-use IPC::Open3;
+use PVE::QemuServer::Machine;
+use PVE::QemuServer::Monitor qw(mon_cmd);
use base qw (PVE::VZDump::Plugin);
sub new {
my ($class, $vzdump) = @_;
-
+
PVE::VZDump::check_bin('qm');
- my $self = bless { vzdump => $vzdump };
+ my $self = bless { vzdump => $vzdump }, $class;
$self->{vmlist} = PVE::QemuServer::vzlist();
$self->{storecfg} = PVE::Storage::config();
$task->{disks} = [];
- my $conf = $self->{vmlist}->{$vmid} = PVE::QemuServer::load_config($vmid);
+ my $conf = $self->{vmlist}->{$vmid} = PVE::QemuConfig->load_config($vmid);
+
+ $self->loginfo("VM Name: $conf->{name}")
+ if defined($conf->{name});
$self->{vm_was_running} = 1;
if (!PVE::QemuServer::check_running($vmid)) {
$task->{hostname} = $conf->{name};
- my $hostname = PVE::INotify::nodename();
+ my $hostname = PVE::INotify::nodename();
my $vollist = [];
my $drivehash = {};
return if PVE::QemuServer::drive_is_cdrom($drive);
- if (defined($drive->{backup}) && $drive->{backup} eq "no") {
- $self->loginfo("exclude disk '$ds' (backup=no)");
- return;
- }
-
my $volid = $drive->{file};
+ if (defined($drive->{backup}) && !$drive->{backup}) {
+ $self->loginfo("exclude disk '$ds' '$volid' (backup=no)");
+ return;
+ } elsif ($self->{vm_was_running} && $drive->{iothread}) {
+ if (!PVE::QemuServer::Machine::runs_at_least_qemu_version($vmid, 4, 0, 1)) {
+ die "disk '$ds' '$volid' (iothread=on) can't use backup feature with running QEMU " .
+ "version < 4.0.1! Either set backup=no for this drive or upgrade QEMU and restart VM\n";
+ }
+ } elsif ($ds =~ m/^efidisk/ && (!defined($conf->{bios}) || $conf->{bios} ne 'ovmf')) {
+ $self->loginfo("excluding '$ds' (efidisks can only be backed up when BIOS is set to 'ovmf')");
+ return;
+ } else {
+ my $log = "include disk '$ds' '$volid'";
+ if (defined $drive->{size}) {
+ my $readable_size = PVE::JSONSchema::format_size($drive->{size});
+ $log .= " $readable_size";
+ }
+ $self->loginfo($log);
+ }
+
my ($storeid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
push @$vollist, $volid if $storeid;
$drivehash->{$ds} = $drive;
foreach my $ds (sort keys %$drivehash) {
my $drive = $drivehash->{$ds};
-
- my $volid = $drive->{file};
-
- my $path;
+ my $volid = $drive->{file};
my ($storeid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
+
+ my $path = $volid;
if ($storeid) {
$path = PVE::Storage::path($self->{storecfg}, $volid);
- } else {
- $path = $volid;
}
-
next if !$path;
- my $format = undef;
- my $size = undef;
-
- eval{
- ($size, $format) = PVE::Storage::volume_size_info($self->{storecfg}, $volid, 5);
- };
+ my ($size, $format) = eval { PVE::Storage::volume_size_info($self->{storecfg}, $volid, 5) };
die "no such volume '$volid'\n" if $@;
- my $diskinfo = { path => $path , volid => $volid, storeid => $storeid,
- format => $format, virtdev => $ds, qmdevice => "drive-$ds" };
+ my $diskinfo = {
+ path => $path,
+ volid => $volid,
+ storeid => $storeid,
+ format => $format,
+ virtdev => $ds,
+ qmdevice => "drive-$ds",
+ };
if (-b $path) {
$diskinfo->{type} = 'block';
my ($self, $vmid) = @_;
my $running = PVE::QemuServer::check_running($vmid) ? 1 : 0;
-
- return wantarray ? ($running, $running ? 'running' : 'stopped') : $running;
+
+ return wantarray ? ($running, $running ? 'running' : 'stopped') : $running;
}
sub lock_vm {
sub assemble {
my ($self, $task, $vmid) = @_;
- my $conffile = PVE::QemuServer::config_file ($vmid);
+ my $conffile = PVE::QemuConfig->config_file($vmid);
my $outfile = "$task->{tmpdir}/qemu-server.conf";
+ my $firewall_src = "/etc/pve/firewall/$vmid.fw";
+ my $firewall_dest = "$task->{tmpdir}/qemu-server.fw";
+
+ my $outfd = IO::File->new (">$outfile") ||
+ die "unable to open '$outfile'";
+ my $conffd = IO::File->new ($conffile, 'r') ||
+ die "unable open '$conffile'";
+
+ my $found_snapshot;
+ my $found_pending;
+ while (defined (my $line = <$conffd>)) {
+ next if $line =~ m/^\#vzdump\#/; # just to be sure
+ next if $line =~ m/^\#qmdump\#/; # just to be sure
+ if ($line =~ m/^\[(.*)\]\s*$/) {
+ if ($1 =~ m/PENDING/i) {
+ $found_pending = 1;
+ } else {
+ $found_snapshot = 1;
+ }
+ }
- my $outfd;
- my $conffd;
+ next if $found_snapshot; # skip all snapshots data
+ next if $found_pending; # skip all pending changes
- eval {
+ if ($line =~ m/^unused\d+:\s*(\S+)\s*/) {
+ $self->loginfo("skip unused drive '$1' (not included into backup)");
+ next;
+ }
+ next if $line =~ m/^lock:/ || $line =~ m/^parent:/;
- $outfd = IO::File->new (">$outfile") ||
- die "unable to open '$outfile'";
- $conffd = IO::File->new ($conffile, 'r') ||
- die "unable open '$conffile'";
+ print $outfd $line;
+ }
- my $found_snapshot;
- while (defined (my $line = <$conffd>)) {
- next if $line =~ m/^\#vzdump\#/; # just to be sure
- next if $line =~ m/^\#qmdump\#/; # just to be sure
- if ($line =~ m/^\[.*\]\s*$/) {
- $found_snapshot = 1;
- }
- next if $found_snapshot; # skip all snapshots data
- if ($line =~ m/^unused\d+:\s*(\S+)\s*/) {
- $self->loginfo("skip unused drive '$1' (not included into backup)");
- next;
- }
- next if $line =~ m/^lock:/ || $line =~ m/^parent:/;
+ foreach my $di (@{$task->{disks}}) {
+ if ($di->{type} eq 'block' || $di->{type} eq 'file') {
+ my $storeid = $di->{storeid} || '';
+ my $format = $di->{format} || '';
+ print $outfd "#qmdump#map:$di->{virtdev}:$di->{qmdevice}:$storeid:$format:\n";
+ } else {
+ die "internal error";
+ }
+ }
- print $outfd $line;
+ if ($found_snapshot) {
+ $self->loginfo("snapshots found (not included into backup)");
+ }
+
+ if ($found_pending) {
+ $self->loginfo("pending configuration changes found (not included into backup)");
+ }
+
+ PVE::Tools::file_copy($firewall_src, $firewall_dest) if -f $firewall_src;
+}
+
+sub archive {
+ my ($self, $task, $vmid, $filename, $comp) = @_;
+
+ my $opts = $self->{vzdump}->{opts};
+
+ my $scfg = $opts->{scfg};
+
+ if ($scfg->{type} eq 'pbs') {
+ $self->archive_pbs($task, $vmid);
+ } else {
+ $self->archive_vma($task, $vmid, $filename, $comp);
+ }
+}
+
+my $query_backup_status_loop = sub {
+ my ($self, $vmid, $job_uuid) = @_;
+
+ my $status;
+ my $starttime = time ();
+ my $last_per = -1;
+ my $last_total = 0;
+ my $last_zero = 0;
+ my $last_transferred = 0;
+ my $last_time = time();
+ my $transferred;
+
+ while(1) {
+ $status = mon_cmd($vmid, 'query-backup');
+ my $total = $status->{total} || 0;
+ $transferred = $status->{transferred} || 0;
+ my $per = $total ? int(($transferred * 100)/$total) : 0;
+ my $zero = $status->{'zero-bytes'} || 0;
+ my $zero_per = $total ? int(($zero * 100)/$total) : 0;
+
+ die "got unexpected uuid\n" if !$status->{uuid} || ($status->{uuid} ne $job_uuid);
+
+ my $ctime = time();
+ my $duration = $ctime - $starttime;
+
+ my $rbytes = $transferred - $last_transferred;
+ my $wbytes = $rbytes - ($zero - $last_zero);
+
+ my $timediff = ($ctime - $last_time) || 1; # fixme
+ my $mbps_read = ($rbytes > 0) ?
+ int(($rbytes/$timediff)/(1000*1000)) : 0;
+ my $mbps_write = ($wbytes > 0) ?
+ int(($wbytes/$timediff)/(1000*1000)) : 0;
+
+ my $statusline = "status: $per% ($transferred/$total), " .
+ "sparse ${zero_per}% ($zero), duration $duration, " .
+ "read/write $mbps_read/$mbps_write MB/s";
+ my $res = $status->{status} || 'unknown';
+ if ($res ne 'active') {
+ $self->loginfo($statusline);
+ die(($status->{errmsg} || "unknown error") . "\n")
+ if $res eq 'error';
+ die "got unexpected status '$res'\n"
+ if $res ne 'done';
+ die "got wrong number of transfered bytes ($total != $transferred)\n"
+ if ($res eq 'done') && ($total != $transferred);
+
+ last;
}
+ if ($per != $last_per && ($timediff > 2)) {
+ $self->loginfo($statusline);
+ $last_per = $per;
+ $last_total = $total if $total;
+ $last_zero = $zero if $zero;
+ $last_transferred = $transferred if $transferred;
+ $last_time = $ctime;
+ }
+ sleep(1);
+ }
+
+ my $duration = time() - $starttime;
+ if ($transferred && $duration) {
+ my $mb = int($transferred/(1000*1000));
+ my $mbps = int(($transferred/$duration)/(1000*1000));
+ $self->loginfo("transferred $mb MB in $duration seconds ($mbps MB/s)");
+ }
+};
+
+sub archive_pbs {
+ my ($self, $task, $vmid) = @_;
+
+ my $conffile = "$task->{tmpdir}/qemu-server.conf";
+ my $firewall = "$task->{tmpdir}/qemu-server.fw";
+ my $opts = $self->{vzdump}->{opts};
+
+ my $scfg = $opts->{scfg};
+
+ my $starttime = time();
+
+ my $diskcount = scalar(@{$task->{disks}});
+
+ my $server = $scfg->{server};
+ my $datastore = $scfg->{datastore};
+ my $username = $scfg->{username} // 'root@pam';
+ my $fingerprint = $scfg->{fingerprint};
+
+ my $repo = "$username\@$server:$datastore";
+ my $password = PVE::Storage::PBSPlugin::pbs_get_password($scfg, $opts->{storage});
+
+ if (PVE::QemuConfig->is_template($self->{vmlist}->{$vmid}) || !$diskcount) {
+ my @pathlist;
foreach my $di (@{$task->{disks}}) {
if ($di->{type} eq 'block' || $di->{type} eq 'file') {
- my $storeid = $di->{storeid} || '';
- my $format = $di->{format} || '';
- print $outfd "#qmdump#map:$di->{virtdev}:$di->{qmdevice}:$storeid:$format:\n";
+ push @pathlist, "$di->{qmdevice}.img:$di->{path}";
} else {
- die "internal error";
+ die "implement me";
}
}
- if ($found_snapshot) {
- $self->loginfo("snapshots found (not included into backup)");
+ if (!$diskcount) {
+ $self->loginfo("backup contains no disks");
}
+
+ local $ENV{PBS_PASSWORD} = $password;
+ my $cmd = [
+ '/usr/bin/proxmox-backup-client',
+ 'backup',
+ '--repository', $repo,
+ '--backup-type', 'vm',
+ '--backup-id', "$vmid",
+ '--backup-time', $task->{backup_time},
+ ];
+
+ push @$cmd, '--fingerprint', $fingerprint if defined($fingerprint);
+
+ push @$cmd, "qemu-server.conf:$conffile";
+ push @$cmd, "fw.conf:$firewall" if -e $firewall;
+ push @$cmd, @pathlist if scalar(@pathlist);
+
+ $self->loginfo("starting template backup");
+ $self->loginfo(join(' ', @$cmd));
+
+ $self->cmd($cmd);
+
+ return;
+ }
+
+ my $devlist = '';
+ foreach my $di (@{$task->{disks}}) {
+ if ($di->{type} eq 'block' || $di->{type} eq 'file') {
+ $devlist .= $devlist ? ",$di->{qmdevice}" : $di->{qmdevice};
+ } else {
+ die "implement me";
+ }
+ }
+
+ my $stop_after_backup;
+ my $resume_on_backup;
+
+ my $skiplock = 1;
+ my $vm_is_running = PVE::QemuServer::check_running($vmid);
+ if (!$vm_is_running) {
+ eval {
+ $self->loginfo("starting kvm to execute backup task");
+ PVE::QemuServer::vm_start($self->{storecfg}, $vmid, undef,
+ $skiplock, undef, 1);
+ if ($self->{vm_was_running}) {
+ $resume_on_backup = 1;
+ } else {
+ $stop_after_backup = 1;
+ }
+ };
+ if (my $err = $@) {
+ die $err;
+ }
+ }
+
+ my $backup_job_uuid;
+
+ my $interrupt_msg = "interrupted by signal\n";
+ eval {
+ $SIG{INT} = $SIG{TERM} = $SIG{QUIT} = $SIG{HUP} = $SIG{PIPE} = sub {
+ die $interrupt_msg;
+ };
+
+ my $agent_running = 0;
+
+ if ($self->{vmlist}->{$vmid}->{agent} && $vm_is_running) {
+ $agent_running = PVE::QemuServer::qga_check_running($vmid);
+ }
+
+ if ($agent_running){
+ eval { mon_cmd($vmid, "guest-fsfreeze-freeze"); };
+ if (my $err = $@) {
+ $self->logerr($err);
+ }
+ }
+
+ eval {
+
+ my $params = {
+ format => "pbs",
+ 'backup-file' => $repo,
+ 'backup-id' => "$vmid",
+ 'backup-time' => $task->{backup_time},
+ password => $password,
+ devlist => $devlist,
+ 'config-file' => $conffile,
+ };
+ $params->{fingerprint} = $fingerprint if defined($fingerprint);
+ $params->{'firewall-file'} = $firewall if -e $firewall;
+ my $res = mon_cmd($vmid, "backup", %$params);
+ $backup_job_uuid = $res->{UUID};
+ };
+
+ my $qmperr = $@;
+
+ if ($agent_running){
+ eval { mon_cmd($vmid, "guest-fsfreeze-thaw"); };
+ if (my $err = $@) {
+ $self->logerr($err);
+ }
+ }
+
+ die $qmperr if $qmperr;
+
+ die "got no uuid for backup task\n" if !defined($backup_job_uuid);
+
+ $self->loginfo("started backup task '$backup_job_uuid'");
+
+ if ($resume_on_backup) {
+ if (my $stoptime = $task->{vmstoptime}) {
+ my $delay = time() - $task->{vmstoptime};
+ $task->{vmstoptime} = undef; # avoid printing 'online after ..' twice
+ $self->loginfo("resuming VM again after $delay seconds");
+ } else {
+ $self->loginfo("resuming VM again");
+ }
+ mon_cmd($vmid, 'cont');
+ }
+
+ $query_backup_status_loop->($self, $vmid, $backup_job_uuid);
};
my $err = $@;
- close ($outfd) if $outfd;
- close ($conffd) if $conffd;
-
+ if ($err) {
+ $self->logerr($err);
+ if (defined($backup_job_uuid)) {
+ $self->loginfo("aborting backup job");
+ eval { mon_cmd($vmid, 'backup-cancel'); };
+ if (my $err1 = $@) {
+ $self->logerr($err1);
+ }
+ }
+ }
+
+ if ($stop_after_backup) {
+ # stop if not running
+ eval {
+ my $resp = mon_cmd($vmid, 'query-status');
+ my $status = $resp && $resp->{status} ? $resp->{status} : 'unknown';
+ if ($status eq 'prelaunch') {
+ $self->loginfo("stopping kvm after backup task");
+ PVE::QemuServer::vm_stop($self->{storecfg}, $vmid, $skiplock);
+ } else {
+ $self->loginfo("kvm status changed after backup ('$status')" .
+ " - keep VM running");
+ }
+ }
+ }
+
die $err if $err;
}
-sub archive {
+sub archive_vma {
my ($self, $task, $vmid, $filename, $comp) = @_;
my $conffile = "$task->{tmpdir}/qemu-server.conf";
+ my $firewall = "$task->{tmpdir}/qemu-server.fw";
my $opts = $self->{vzdump}->{opts};
- my $starttime = time ();
+ my $starttime = time();
my $speed = 0;
if ($opts->{bwlimit}) {
- $speed = $opts->{bwlimit}*1024;
+ $speed = $opts->{bwlimit}*1024;
}
- if (PVE::QemuServer::is_template($self->{vmlist}->{$vmid})) {
+ my $diskcount = scalar(@{$task->{disks}});
+
+ if (PVE::QemuConfig->is_template($self->{vmlist}->{$vmid}) || !$diskcount) {
my @pathlist;
foreach my $di (@{$task->{disks}}) {
if ($di->{type} eq 'block' || $di->{type} eq 'file') {
}
}
+ if (!$diskcount) {
+ $self->loginfo("backup contains no disks");
+ }
+
my $outcmd;
if ($comp) {
- $outcmd = "exec:$comp";
+ $outcmd = "exec:$comp";
} else {
- $outcmd = "exec:cat";
+ $outcmd = "exec:cat";
}
- $outcmd .= ">$filename" if !$opts->{stdout};
+ $outcmd .= " > $filename" if !$opts->{stdout};
- my $cmd = ['/usr/bin/vma', 'create', '-v', '-c', $conffile, $outcmd, @pathlist];
+ my $cmd = ['/usr/bin/vma', 'create', '-v', '-c', $conffile];
+ push @$cmd, '-c', $firewall if -e $firewall;
+ push @$cmd, $outcmd, @pathlist;
$self->loginfo("starting template backup");
$self->loginfo(join(' ', @$cmd));
my $resume_on_backup;
my $skiplock = 1;
-
- if (!PVE::QemuServer::check_running($vmid)) {
+ my $vm_is_running = PVE::QemuServer::check_running($vmid);
+ if (!$vm_is_running) {
eval {
$self->loginfo("starting kvm to execute backup task");
- PVE::QemuServer::vm_start($self->{storecfg}, $vmid, undef,
+ PVE::QemuServer::vm_start($self->{storecfg}, $vmid, undef,
$skiplock, undef, 1);
if ($self->{vm_was_running}) {
$resume_on_backup = 1;
}
my $cpid;
+ my $backup_job_uuid;
+
my $interrupt_msg = "interrupted by signal\n";
eval {
$SIG{INT} = $SIG{TERM} = $SIG{QUIT} = $SIG{HUP} = $SIG{PIPE} = sub {
my $qmpclient = PVE::QMPClient->new();
- my $uuid;
-
my $backup_cb = sub {
my ($vmid, $resp) = @_;
- $uuid = $resp->{return};
+ $backup_job_uuid = $resp->{return}->{UUID};
};
my $outfh;
my $fd = fileno(STDIN);
close STDIN;
POSIX::close(0) if $fd != 0;
- die "unable to redirect STDIN - $!"
+ die "unable to redirect STDIN - $!"
if !open(STDIN, "<&", $pipefd[0]);
-
+
# redirect STDOUT
$fd = fileno(STDOUT);
close STDOUT;
POSIX::close (1) if $fd != 1;
- die "unable to redirect STDOUT - $!"
+ die "unable to redirect STDOUT - $!"
if !open(STDOUT, ">&", fileno($outfh));
-
+
exec($comp);
die "fork compressor '$comp' failed\n";
};
if (my $err = $@) {
- warn $err;
- POSIX::_exit(1);
+ $self->logerr($err);
+ POSIX::_exit(1);
}
- POSIX::_exit(0);
- kill(-9, $$);
+ POSIX::_exit(0);
+ kill(-9, $$);
} else {
POSIX::close($pipefd[0]);
$outfileno = $pipefd[1];
- }
+ }
} else {
$outfileno = fileno($outfh);
}
my $add_fd_cb = sub {
my ($vmid, $resp) = @_;
- $qmpclient->queue_cmd($vmid, $backup_cb, 'backup',
- 'backup-file' => "/dev/fdname/backup",
- speed => $speed,
- 'config-file' => $conffile,
- devlist => $devlist);
- };
+ my $params = {
+ 'backup-file' => "/dev/fdname/backup",
+ speed => $speed,
+ 'config-file' => $conffile,
+ devlist => $devlist
+ };
+ $params->{'firewall-file'} = $firewall if -e $firewall;
+ $qmpclient->queue_cmd($vmid, $backup_cb, 'backup', %$params);
+ };
- $qmpclient->queue_cmd($vmid, $add_fd_cb, 'getfd',
+ $qmpclient->queue_cmd($vmid, $add_fd_cb, 'getfd',
fd => $outfileno, fdname => "backup");
- $qmpclient->queue_execute();
- die $qmpclient->{errors}->{$vmid} if $qmpclient->{errors}->{$vmid};
+ my $agent_running = 0;
+
+ if ($self->{vmlist}->{$vmid}->{agent} && $vm_is_running) {
+ $agent_running = PVE::QemuServer::qga_check_running($vmid);
+ $self->loginfo("skipping guest-agent 'fs-freeze', agent configured but not running?")
+ if !$agent_running;
+ }
+
+ if ($agent_running){
+ $self->loginfo("issuing guest-agent 'fs-freeze' command");
+ eval { mon_cmd($vmid, "guest-fsfreeze-freeze"); };
+ if (my $err = $@) {
+ $self->logerr($err);
+ }
+ }
+
+ eval { $qmpclient->queue_execute(30) };
+ my $qmperr = $@;
+
+ if ($agent_running){
+ $self->loginfo("issuing guest-agent 'fs-thaw' command");
+ eval { mon_cmd($vmid, "guest-fsfreeze-thaw"); };
+ if (my $err = $@) {
+ $self->logerr($err);
+ }
+ }
+ die $qmperr if $qmperr;
+ die $qmpclient->{errors}->{$vmid} if $qmpclient->{errors}->{$vmid};
if ($cpid) {
- POSIX::close($outfileno) == 0 ||
+ POSIX::close($outfileno) == 0 ||
die "close output file handle failed\n";
}
- die "got no uuid for backup task\n" if !$uuid;
+ die "got no uuid for backup task\n" if !defined($backup_job_uuid);
- $self->loginfo("started backup task '$uuid'");
+ $self->loginfo("started backup task '$backup_job_uuid'");
if ($resume_on_backup) {
- $self->loginfo("resume VM");
- PVE::QemuServer::vm_mon_cmd($vmid, 'cont');
- }
-
- my $status;
- my $starttime = time ();
- my $last_per = -1;
- my $last_total = 0;
- my $last_zero = 0;
- my $last_transferred = 0;
- my $last_time = time();
- my $transferred;
-
- while(1) {
- $status = PVE::QemuServer::vm_mon_cmd($vmid, 'query-backup');
- my $total = $status->{total};
- $transferred = $status->{transferred};
- my $per = $total ? int(($transferred * 100)/$total) : 0;
- my $zero = $status->{'zero-bytes'} || 0;
- my $zero_per = $total ? int(($zero * 100)/$total) : 0;
-
- die "got unexpected uuid\n" if $status->{uuid} ne $uuid;
-
- my $ctime = time();
- my $duration = $ctime - $starttime;
-
- my $rbytes = $transferred - $last_transferred;
- my $wbytes = $rbytes - ($zero - $last_zero);
-
- my $timediff = ($ctime - $last_time) || 1; # fixme
- my $mbps_read = ($rbytes > 0) ?
- int(($rbytes/$timediff)/(1000*1000)) : 0;
- my $mbps_write = ($wbytes > 0) ?
- int(($wbytes/$timediff)/(1000*1000)) : 0;
-
- my $statusline = "status: $per% ($transferred/$total), " .
- "sparse ${zero_per}% ($zero), duration $duration, " .
- "$mbps_read/$mbps_write MB/s";
- if ($status->{status} ne 'active') {
- $self->loginfo($statusline);
- die(($status->{errmsg} || "unknown error") . "\n")
- if $status->{status} eq 'error';
- last;
- }
- if ($per != $last_per && ($timediff > 2)) {
- $self->loginfo($statusline);
- $last_per = $per;
- $last_total = $total if $total;
- $last_zero = $zero if $zero;
- $last_transferred = $transferred if $transferred;
- $last_time = $ctime;
+ if (my $stoptime = $task->{vmstoptime}) {
+ my $delay = time() - $task->{vmstoptime};
+ $task->{vmstoptime} = undef; # avoid printing 'online after ..' twice
+ $self->loginfo("resuming VM again after $delay seconds");
+ } else {
+ $self->loginfo("resuming VM again");
}
- sleep(1);
+ mon_cmd($vmid, 'cont');
}
- my $duration = time() - $starttime;
- if ($transferred && $duration) {
- my $mb = int($transferred/(1000*1000));
- my $mbps = int(($transferred/$duration)/(1000*1000));
- $self->loginfo("transferred $mb MB in $duration seconds ($mbps MB/s)");
- }
+ $query_backup_status_loop->($self, $vmid, $backup_job_uuid);
};
my $err = $@;
if ($err) {
- $self->loginfo("aborting backup job");
- eval { PVE::QemuServer::vm_mon_cmd($vmid, 'backup-cancel'); };
- warn $@ if $@;
+ $self->logerr($err);
+ if (defined($backup_job_uuid)) {
+ $self->loginfo("aborting backup job");
+ eval { mon_cmd($vmid, 'backup-cancel'); };
+ if (my $err1 = $@) {
+ $self->logerr($err1);
+ }
+ }
}
if ($stop_after_backup) {
# stop if not running
eval {
- my $resp = PVE::QemuServer::vm_mon_cmd($vmid, 'query-status');
+ my $resp = mon_cmd($vmid, 'query-status');
my $status = $resp && $resp->{status} ? $resp->{status} : 'unknown';
if ($status eq 'prelaunch') {
$self->loginfo("stopping kvm after backup task");
" - keep VM running");
}
}
- }
+ }
if ($err) {
- if ($cpid) {
- kill(-9, $cpid);
+ if ($cpid) {
+ kill(9, $cpid);
waitpid($cpid, 0);
}
die $err;
my $ec = $stat >> 8;
my $signal = $stat & 127;
if ($ec || $signal) {
- die "$comp failed - wrong exit status $ec" .
+ die "$comp failed - wrong exit status $ec" .
($signal ? " (signal $signal)\n" : "\n");
}
}
projects / qemu-server.git / blobdiff