1 package PVE
::VZDump
::QemuServer
;
11 use POSIX
qw(EINTR EAGAIN);
13 use PVE
::Cluster
qw(cfs_read_file);
19 use PVE
::Storage
::Plugin
;
20 use PVE
::Storage
::PBSPlugin
;
24 use PVE
::Format
qw(render_duration render_bytes);
28 use PVE
::QemuServer
::Machine
;
29 use PVE
::QemuServer
::Monitor
qw(mon_cmd);
31 use base qw
(PVE
::VZDump
::Plugin
);
34 my ($class, $vzdump) = @_;
36 PVE
::VZDump
::check_bin
('qm');
38 my $self = bless { vzdump
=> $vzdump }, $class;
40 $self->{vmlist
} = PVE
::QemuServer
::vzlist
();
41 $self->{storecfg
} = PVE
::Storage
::config
();
52 return [ keys %{$self->{vmlist
}} ];
56 my ($self, $task, $vmid, $mode) = @_;
60 my $conf = $self->{vmlist
}->{$vmid} = PVE
::QemuConfig-
>load_config($vmid);
62 $self->loginfo("VM Name: $conf->{name}")
63 if defined($conf->{name
});
65 $self->{vm_was_running
} = 1;
66 $self->{vm_was_paused
} = 0;
67 if (!PVE
::QemuServer
::check_running
($vmid)) {
68 $self->{vm_was_running
} = 0;
69 } elsif (PVE
::QemuServer
::vm_is_paused
($vmid)) {
70 $self->{vm_was_paused
} = 1;
73 $task->{hostname
} = $conf->{name
};
75 my $hostname = PVE
::INotify
::nodename
();
79 my $backup_volumes = PVE
::QemuConfig-
>get_backup_volumes($conf);
81 foreach my $volume (@{$backup_volumes}) {
82 my $name = $volume->{key
};
83 my $volume_config = $volume->{volume_config
};
84 my $volid = $volume_config->{file
};
86 if (!$volume->{included
}) {
87 $self->loginfo("exclude disk '$name' '$volid' ($volume->{reason})");
89 } elsif ($self->{vm_was_running
} && $volume_config->{iothread
} &&
90 !PVE
::QemuServer
::Machine
::runs_at_least_qemu_version
($vmid, 4, 0, 1)) {
91 die "disk '$name' '$volid' (iothread=on) can't use backup feature with running QEMU " .
92 "version < 4.0.1! Either set backup=no for this drive or upgrade QEMU and restart VM\n";
94 my $log = "include disk '$name' '$volid'";
95 if (defined(my $size = $volume_config->{size
})) {
96 my $readable_size = PVE
::JSONSchema
::format_size
($size);
97 $log .= " $readable_size";
102 my ($storeid, $volname) = PVE
::Storage
::parse_volume_id
($volid, 1);
103 push @$vollist, $volid if $storeid;
104 $drivehash->{$name} = $volume->{volume_config
};
107 PVE
::Storage
::activate_volumes
($self->{storecfg
}, $vollist);
109 foreach my $ds (sort keys %$drivehash) {
110 my $drive = $drivehash->{$ds};
112 my $volid = $drive->{file
};
113 my ($storeid, $volname) = PVE
::Storage
::parse_volume_id
($volid, 1);
117 $path = PVE
::Storage
::path
($self->{storecfg
}, $volid);
121 my ($size, $format) = eval { PVE
::Storage
::volume_size_info
($self->{storecfg
}, $volid, 5) };
122 die "no such volume '$volid'\n" if $@;
130 qmdevice
=> "drive-$ds",
133 if ($ds eq 'tpmstate0') {
134 # TPM drive only exists for backup, which is reflected in the name
135 $diskinfo->{qmdevice
} = 'drive-tpmstate0-backup';
136 $task->{tpmpath
} = $path;
140 $diskinfo->{type
} = 'block';
142 $diskinfo->{type
} = 'file';
145 push @{$task->{disks
}}, $diskinfo;
150 my ($self, $vmid) = @_;
152 my $running = PVE
::QemuServer
::check_running
($vmid) ?
1 : 0;
154 return wantarray ?
($running, $running ?
'running' : 'stopped') : $running;
158 my ($self, $vmid) = @_;
160 PVE
::QemuConfig-
>set_lock($vmid, 'backup');
164 my ($self, $vmid) = @_;
166 PVE
::QemuConfig-
>remove_lock($vmid, 'backup');
170 my ($self, $task, $vmid) = @_;
172 my $opts = $self->{vzdump
}->{opts
};
174 my $wait = $opts->{stopwait
} * 60;
175 # send shutdown and wait
176 $self->cmd ("qm shutdown $vmid --skiplock --keepActive --timeout $wait");
180 my ($self, $task, $vmid) = @_;
182 $self->cmd ("qm start $vmid --skiplock");
186 my ($self, $task, $vmid) = @_;
188 return if $self->{vm_was_paused
};
190 $self->cmd ("qm suspend $vmid --skiplock");
194 my ($self, $task, $vmid) = @_;
196 return if $self->{vm_was_paused
};
198 $self->cmd ("qm resume $vmid --skiplock");
202 my ($self, $task, $vmid) = @_;
204 my $conffile = PVE
::QemuConfig-
>config_file($vmid);
206 my $outfile = "$task->{tmpdir}/qemu-server.conf";
207 my $firewall_src = "/etc/pve/firewall/$vmid.fw";
208 my $firewall_dest = "$task->{tmpdir}/qemu-server.fw";
210 my $outfd = IO
::File-
>new (">$outfile") ||
211 die "unable to open '$outfile'";
212 my $conffd = IO
::File-
>new ($conffile, 'r') ||
213 die "unable open '$conffile'";
217 while (defined (my $line = <$conffd>)) {
218 next if $line =~ m/^\#vzdump\#/; # just to be sure
219 next if $line =~ m/^\#qmdump\#/; # just to be sure
220 if ($line =~ m/^\[(.*)\]\s*$/) {
221 if ($1 =~ m/PENDING/i) {
227 next if $found_snapshot || $found_pending; # skip all snapshots and pending changes config data
229 if ($line =~ m/^unused\d+:\s*(\S+)\s*/) {
230 $self->loginfo("skip unused drive '$1' (not included into backup)");
233 next if $line =~ m/^lock:/ || $line =~ m/^parent:/;
238 foreach my $di (@{$task->{disks
}}) {
239 if ($di->{type
} eq 'block' || $di->{type
} eq 'file') {
240 my $storeid = $di->{storeid
} || '';
241 my $format = $di->{format
} || '';
242 print $outfd "#qmdump#map:$di->{virtdev}:$di->{qmdevice}:$storeid:$format:\n";
244 die "internal error";
248 if ($found_snapshot) {
249 $self->loginfo("snapshots found (not included into backup)");
251 if ($found_pending) {
252 $self->loginfo("pending configuration changes found (not included into backup)");
255 PVE
::Tools
::file_copy
($firewall_src, $firewall_dest) if -f
$firewall_src;
259 my ($self, $task, $vmid, $filename, $comp) = @_;
261 my $opts = $self->{vzdump
}->{opts
};
262 my $scfg = $opts->{scfg
};
264 if ($self->{vzdump
}->{opts
}->{pbs
}) {
265 $self->archive_pbs($task, $vmid);
267 $self->archive_vma($task, $vmid, $filename, $comp);
271 my $bitmap_action_to_human = sub {
272 my ($self, $info) = @_;
274 my $action = $info->{action
};
276 if ($action eq "not-used") {
277 return "disabled (no support)";
278 } elsif ($action eq "not-used-removed") {
279 return "disabled (old bitmap cleared)";
280 } elsif ($action eq "new") {
281 return "created new";
282 } elsif ($action eq "used") {
283 if ($info->{dirty
} == 0) {
284 return "OK (drive clean)";
286 my $size = render_bytes
($info->{size
}, 1);
287 my $dirty = render_bytes
($info->{dirty
}, 1);
288 return "OK ($dirty of $size dirty)";
290 } elsif ($action eq "invalid") {
291 return "existing bitmap was invalid and has been cleared";
297 my $query_backup_status_loop = sub {
298 my ($self, $vmid, $job_uuid, $qemu_support) = @_;
300 my $starttime = time ();
301 my $last_time = $starttime;
302 my ($last_percent, $last_total, $last_target, $last_zero, $last_transferred) = (-1, 0, 0, 0, 0);
303 my ($transferred, $reused);
306 my ($mb, $delta) = @_;
307 return "0 B/s" if $mb <= 0;
308 my $bw = int(($mb / $delta));
309 return render_bytes
($bw, 1) . "/s";
314 my $has_query_bitmap = $qemu_support && $qemu_support->{'query-bitmap-info'};
315 my $is_template = PVE
::QemuConfig-
>is_template($self->{vmlist
}->{$vmid});
316 if ($has_query_bitmap) {
318 my $bitmap_info = mon_cmd
($vmid, 'query-pbs-bitmap-info');
319 for my $info (sort { $a->{drive
} cmp $b->{drive
} } @$bitmap_info) {
321 my $text = $bitmap_action_to_human->($self, $info);
322 my $drive = $info->{drive
};
323 $drive =~ s/^drive-//; # for consistency
324 $self->loginfo("$drive: dirty-bitmap status: $text");
326 $target += $info->{dirty
};
327 $total += $info->{size
};
328 $last_reused += $info->{size
} - $info->{dirty
};
330 if ($target < $total) {
331 my $total_h = render_bytes
($total, 1);
332 my $target_h = render_bytes
($target, 1);
333 $self->loginfo("using fast incremental mode (dirty-bitmap), $target_h dirty of $total_h total");
337 my $last_finishing = 0;
339 my $status = mon_cmd
($vmid, 'query-backup');
341 my $total = $status->{total
} || 0;
342 my $dirty = $status->{dirty
};
343 $target = (defined($dirty) && $dirty < $total) ?
$dirty : $total if !$has_query_bitmap;
344 $transferred = $status->{transferred
} || 0;
345 $reused = $status->{reused
};
346 my $percent = $target ?
int(($transferred * 100)/$target) : 100;
347 my $zero = $status->{'zero-bytes'} || 0;
349 die "got unexpected uuid\n" if !$status->{uuid
} || ($status->{uuid
} ne $job_uuid);
352 my $duration = $ctime - $starttime;
354 my $rbytes = $transferred - $last_transferred;
357 # reused includes zero bytes for PBS
358 $wbytes = $rbytes - ($reused - $last_reused);
360 $wbytes = $rbytes - ($zero - $last_zero);
363 my $timediff = ($ctime - $last_time) || 1; # fixme
364 my $mbps_read = $get_mbps->($rbytes, $timediff);
365 my $mbps_write = $get_mbps->($wbytes, $timediff);
366 my $target_h = render_bytes
($target, 1);
367 my $transferred_h = render_bytes
($transferred, 1);
369 my $statusline = sprintf("%3d%% ($transferred_h of $target_h) in %s"
370 .", read: $mbps_read, write: $mbps_write", $percent, render_duration
($duration));
372 my $res = $status->{status
} || 'unknown';
373 if ($res ne 'active') {
374 if ($last_percent < 100) {
375 $self->loginfo($statusline);
377 if ($res ne 'done') {
378 die (($status->{errmsg
} || "unknown error") . "\n") if $res eq 'error';
379 die "got unexpected status '$res'\n";
381 $last_target = $target if $target;
382 $last_total = $total if $total;
383 $last_zero = $zero if $zero;
384 $last_transferred = $transferred if $transferred;
387 if ($percent != $last_percent && ($timediff > 2)) {
388 $self->loginfo($statusline);
389 $last_percent = $percent;
390 $last_target = $target if $target;
391 $last_total = $total if $total;
392 $last_zero = $zero if $zero;
393 $last_transferred = $transferred if $transferred;
395 $last_reused = $reused;
397 if (!$last_finishing && $status->{finishing
}) {
398 $self->loginfo("Waiting for server to finish backup validation...");
400 $last_finishing = $status->{finishing
};
405 my $duration = time() - $starttime;
408 my $zero_per = $last_target ?
int(($last_zero * 100)/$last_target) : 0;
409 my $zero_h = render_bytes
($last_zero);
410 $self->loginfo("backup is sparse: $zero_h (${zero_per}%) total zero data");
413 my $reused_h = render_bytes
($reused);
414 my $reuse_per = int($reused * 100 / $last_total);
415 $self->loginfo("backup was done incrementally, reused $reused_h (${reuse_per}%)");
418 my $transferred_h = render_bytes
($transferred);
420 my $mbps = $get_mbps->($transferred, $duration);
421 $self->loginfo("transferred $transferred_h in $duration seconds ($mbps)");
423 $self->loginfo("transferred $transferred_h in <1 seconds");
428 total
=> $last_total,
433 my $attach_tpmstate_drive = sub {
434 my ($self, $task, $vmid) = @_;
436 return if !$task->{tpmpath
};
438 # unconditionally try to remove the tpmstate-named drive - it only exists
439 # for backing up, and avoids errors if left over from some previous event
440 eval { PVE
::QemuServer
::qemu_drivedel
($vmid, "tpmstate0-backup"); };
442 $self->loginfo('attaching TPM drive to QEMU for backup');
444 my $drive = "file=$task->{tpmpath},if=none,read-only=on,id=drive-tpmstate0-backup";
445 my $ret = PVE
::QemuServer
::Monitor
::hmp_cmd
($vmid, "drive_add auto \"$drive\"");
446 die "attaching TPM drive failed
\n" if $ret !~ m/OK/s;
449 my $detach_tpmstate_drive = sub {
450 my ($task, $vmid) = @_;
451 return if !$task->{tpmpath} || !PVE::QemuServer::check_running($vmid);
452 eval { PVE::QemuServer::qemu_drivedel($vmid, "tpmstate0-backup
"); };
456 my ($self, $task, $vmid) = @_;
458 my $conffile = "$task->{tmpdir
}/qemu-server
.conf
";
459 my $firewall = "$task->{tmpdir
}/qemu-server
.fw
";
461 my $opts = $self->{vzdump}->{opts};
462 my $scfg = $opts->{scfg};
464 my $starttime = time();
466 my $fingerprint = $scfg->{fingerprint};
467 my $repo = PVE::PBSClient::get_repository($scfg);
468 my $password = PVE::Storage::PBSPlugin::pbs_get_password($scfg, $opts->{storage});
469 my $keyfile = PVE::Storage::PBSPlugin::pbs_encryption_key_file_name($scfg, $opts->{storage});
470 my $master_keyfile = PVE::Storage::PBSPlugin::pbs_master_pubkey_file_name($scfg, $opts->{storage});
472 my $diskcount = scalar(@{$task->{disks}});
473 # proxmox-backup-client can only handle raw files and block devs
474 # only use it (directly) for disk-less VMs
477 $self->loginfo("backup contains
no disks
");
479 local $ENV{PBS_PASSWORD} = $password;
480 local $ENV{PBS_FINGERPRINT} = $fingerprint if defined($fingerprint);
482 '/usr/bin/proxmox-backup-client',
484 '--repository', $repo,
485 '--backup-type', 'vm',
486 '--backup-id', "$vmid",
487 '--backup-time', $task->{backup_time},
490 push @$cmd, "qemu-server
.conf
:$conffile";
491 push @$cmd, "fw
.conf
:$firewall" if -e $firewall;
493 $self->loginfo("starting template backup
");
494 $self->loginfo(join(' ', @$cmd));
501 # get list early so we die on unkown drive types before doing anything
502 my $devlist = _get_task_devlist($task);
504 $self->enforce_vm_running_for_backup($vmid);
505 $self->{qmeventd_fh} = PVE::QemuServer::register_qmeventd_handle($vmid);
509 $SIG{INT} = $SIG{TERM} = $SIG{QUIT} = $SIG{HUP} = $SIG{PIPE} = sub {
510 die "interrupted by signal
\n";
513 my $qemu_support = eval { mon_cmd($vmid, "query-proxmox-support
") };
515 if (!$qemu_support || $err) {
516 die "query-proxmox-support returned empty value
\n" if !$err;
517 if ($err =~ m/The command query-proxmox-support has not been found/) {
518 die "PBS backups are
not supported by the running QEMU version
. Please make
"
519 . "sure you
've installed the latest version and the VM has been restarted.\n";
521 die "QMP command query-proxmox-support failed - $err\n";
525 if (!defined($qemu_support->{"pbs-masterkey"}) && -e $master_keyfile) {
526 $self->loginfo("WARNING: backup target is configured with master key, but running QEMU version does not support master keys.");
527 $self->loginfo("Please make sure you've installed the latest version
and the VM
has been restarted to
use master key feature
.");
528 $master_keyfile = undef; # skip rest of master key handling below
531 $attach_tpmstate_drive->($self, $task, $vmid);
533 my $fs_frozen = $self->qga_fs_freeze($task, $vmid);
537 'backup-file' => $repo,
538 'backup-id' => "$vmid",
539 'backup-time' => $task->{backup_time},
540 password => $password,
542 'config-file' => $conffile,
544 $params->{speed} = $opts->{bwlimit}*1024 if $opts->{bwlimit};
545 $params->{fingerprint} = $fingerprint if defined($fingerprint);
546 $params->{'firewall-file'} = $firewall if -e $firewall;
548 $self->loginfo("enabling encryption
");
549 $params->{keyfile} = $keyfile;
550 $params->{encrypt} = JSON::true;
551 if (defined($master_keyfile) && -e $master_keyfile) {
552 $self->loginfo("enabling master key feature
");
553 $params->{"master-keyfile
"} = $master_keyfile;
556 $self->loginfo("WARNING
: backup target
is configured with master key
, but this backup
is not encrypted
- master key settings will be ignored
!")
557 if defined($master_keyfile) && -e $master_keyfile;
558 $params->{encrypt} = JSON::false;
561 my $is_template = PVE::QemuConfig->is_template($self->{vmlist}->{$vmid});
562 $params->{'use-dirty-bitmap'} = JSON::true
563 if $qemu_support->{'pbs-dirty-bitmap'} && !$is_template;
565 $params->{timeout} = 125; # give some time to connect to the backup server
567 my $res = eval { mon_cmd($vmid, "backup
", %$params) };
569 $backup_job_uuid = $res->{UUID} if $res;
572 $self->qga_fs_thaw($vmid);
575 die $qmperr if $qmperr;
576 die "got
no uuid
for backup task
\n" if !defined($backup_job_uuid);
578 $self->loginfo("started backup task
'$backup_job_uuid'");
580 $self->resume_vm_after_job_start($task, $vmid);
582 my $stat = $query_backup_status_loop->($self, $vmid, $backup_job_uuid, $qemu_support);
583 $task->{size} = $stat->{total};
588 $self->mon_backup_cancel($vmid);
589 $self->resume_vm_after_job_start($task, $vmid);
591 $self->restore_vm_power_state($vmid);
596 my $fork_compressor_pipe = sub {
597 my ($self, $comp, $outfileno) = @_;
599 my @pipefd = POSIX::pipe();
601 die "unable to
fork worker
- $!" if !defined($cpid) || $cpid < 0;
604 POSIX::close($pipefd[1]);
606 my $fd = fileno(STDIN);
608 POSIX::close(0) if $fd != 0;
609 die "unable to redirect STDIN
- $!"
610 if !open(STDIN, "<&", $pipefd[0]);
613 $fd = fileno(STDOUT);
615 POSIX::close (1) if $fd != 1;
617 die "unable to redirect STDOUT
- $!"
618 if !open(STDOUT, ">&", $outfileno);
621 die "fork compressor
'$comp' failed
\n";
630 POSIX::close($pipefd[0]);
631 $outfileno = $pipefd[1];
634 return ($cpid, $outfileno);
638 my ($self, $task, $vmid, $filename, $comp) = @_;
640 my $conffile = "$task->{tmpdir
}/qemu-server
.conf
";
641 my $firewall = "$task->{tmpdir
}/qemu-server
.fw
";
643 my $opts = $self->{vzdump}->{opts};
645 my $starttime = time();
648 if ($opts->{bwlimit}) {
649 $speed = $opts->{bwlimit}*1024;
652 my $diskcount = scalar(@{$task->{disks}});
653 if (PVE::QemuConfig->is_template($self->{vmlist}->{$vmid}) || !$diskcount) {
655 foreach my $di (@{$task->{disks}}) {
656 if ($di->{type} eq 'block' || $di->{type} eq 'file') {
657 push @pathlist, "$di->{qmdevice
}=$di->{path
}";
664 $self->loginfo("backup contains
no disks
");
669 $outcmd = "exec:$comp";
671 $outcmd = "exec:cat
";
674 $outcmd .= " > $filename" if !$opts->{stdout};
676 my $cmd = ['/usr/bin/vma', 'create', '-v', '-c', $conffile];
677 push @$cmd, '-c', $firewall if -e $firewall;
678 push @$cmd, $outcmd, @pathlist;
680 $self->loginfo("starting template backup
");
681 $self->loginfo(join(' ', @$cmd));
683 if ($opts->{stdout}) {
684 $self->cmd($cmd, output => ">&" . fileno($opts->{stdout}));
692 my $devlist = _get_task_devlist($task);
694 $self->enforce_vm_running_for_backup($vmid);
695 $self->{qmeventd_fh} = PVE::QemuServer::register_qmeventd_handle($vmid);
701 $SIG{INT} = $SIG{TERM} = $SIG{QUIT} = $SIG{HUP} = $SIG{PIPE} = sub {
702 die "interrupted by signal
\n";
705 $attach_tpmstate_drive->($self, $task, $vmid);
708 if ($opts->{stdout}) {
709 $outfh = $opts->{stdout};
711 $outfh = IO::File->new($filename, "w
") ||
712 die "unable to
open file
'$filename' - $!\n";
714 my $outfileno = fileno($outfh);
717 ($cpid, $outfileno) = $fork_compressor_pipe->($self, $comp, $outfileno);
720 my $qmpclient = PVE::QMPClient->new();
721 my $backup_cb = sub {
722 my ($vmid, $resp) = @_;
723 $backup_job_uuid = $resp->{return}->{UUID};
725 my $add_fd_cb = sub {
726 my ($vmid, $resp) = @_;
729 'backup-file' => "/dev/fdname
/backup
",
731 'config-file' => $conffile,
734 $params->{'firewall-file'} = $firewall if -e $firewall;
736 $qmpclient->queue_cmd($vmid, $backup_cb, 'backup', %$params);
739 $qmpclient->queue_cmd($vmid, $add_fd_cb, 'getfd', fd => $outfileno, fdname => "backup
");
741 my $fs_frozen = $self->qga_fs_freeze($task, $vmid);
743 eval { $qmpclient->queue_execute(30) };
747 $self->qga_fs_thaw($vmid);
750 die $qmperr if $qmperr;
751 die $qmpclient->{errors}->{$vmid} if $qmpclient->{errors}->{$vmid};
754 POSIX::close($outfileno) == 0 ||
755 die "close output file handle failed
\n";
758 die "got
no uuid
for backup task
\n" if !defined($backup_job_uuid);
760 $self->loginfo("started backup task
'$backup_job_uuid'");
762 $self->resume_vm_after_job_start($task, $vmid);
764 $query_backup_status_loop->($self, $vmid, $backup_job_uuid);
769 $self->mon_backup_cancel($vmid);
770 $self->resume_vm_after_job_start($task, $vmid);
773 $self->restore_vm_power_state($vmid);
783 if ($cpid && (waitpid($cpid, 0) > 0)) {
786 my $signal = $stat & 127;
787 if ($ec || $signal) {
788 die "$comp failed
- wrong
exit status
$ec" .
789 ($signal ? " (signal
$signal)\n" : "\n");
794 sub _get_task_devlist {
798 foreach my $di (@{$task->{disks}}) {
799 if ($di->{type} eq 'block' || $di->{type} eq 'file') {
800 $devlist .= ',' if $devlist;
801 $devlist .= $di->{qmdevice};
803 die "implement me
(type
'$di->{type}')";
810 my ($self, $task, $vmid) = @_;
811 return if !$self->{vmlist}->{$vmid}->{agent} || $task->{mode} eq 'stop' || !$self->{vm_was_running} || $self->{vm_was_paused};
813 if (!PVE::QemuServer::qga_check_running($vmid, 1)) {
814 $self->loginfo("skipping guest-agent
'fs-freeze', agent configured but
not running?
");
818 $self->loginfo("issuing guest-agent
'fs-freeze' command
");
819 eval { mon_cmd($vmid, "guest-fsfreeze-freeze
") };
820 $self->logerr($@) if $@;
822 return 1; # even on mon command error, ensure we always thaw again
825 # only call if fs_freeze return 1
827 my ($self, $vmid) = @_;
829 $self->loginfo("issuing guest-agent
'fs-thaw' command
");
830 eval { mon_cmd($vmid, "guest-fsfreeze-thaw
") };
831 $self->logerr($@) if $@;
834 # we need a running QEMU/KVM process for backup, starts a paused (prelaunch)
835 # one if VM isn't already running
836 sub enforce_vm_running_for_backup {
837 my ($self, $vmid) = @_;
839 if (PVE::QemuServer::check_running($vmid)) {
840 $self->{vm_was_running} = 1;
845 $self->loginfo("starting kvm to execute backup task
");
846 # start with skiplock
852 PVE::QemuServer::vm_start($self->{storecfg}, $vmid, $params);
857 # resume VM again once in a clear state (stop mode backup of running VM)
858 sub resume_vm_after_job_start {
859 my ($self, $task, $vmid) = @_;
861 return if !$self->{vm_was_running} || $self->{vm_was_paused};
863 if (my $stoptime = $task->{vmstoptime}) {
864 my $delay = time() - $task->{vmstoptime};
865 $task->{vmstoptime} = undef; # avoid printing 'online after ..' twice
866 $self->loginfo("resuming VM again after
$delay seconds
");
868 $self->loginfo("resuming VM again
");
870 mon_cmd($vmid, 'cont', timeout => 45);
873 # stop again if VM was not running before
874 sub restore_vm_power_state {
875 my ($self, $vmid) = @_;
877 # we always let VMs keep running
878 return if $self->{vm_was_running};
881 my $resp = mon_cmd($vmid, 'query-status');
882 my $status = $resp && $resp->{status} ? $resp->{status} : 'unknown';
883 if ($status eq 'prelaunch') {
884 $self->loginfo("stopping kvm after backup task
");
885 PVE::QemuServer::vm_stop($self->{storecfg}, $vmid, 1);
887 $self->loginfo("kvm status changed after backup
('$status') - keep VM running
");
893 sub mon_backup_cancel {
894 my ($self, $vmid) = @_;
896 $self->loginfo("aborting backup job
");
897 eval { mon_cmd($vmid, 'backup-cancel') };
898 $self->logerr($@) if $@;
902 my ($self, $task, $vmid) = @_;
908 my ($self, $task, $vmid) = @_;
910 $detach_tpmstate_drive->($task, $vmid);
912 if ($self->{qmeventd_fh}) {
913 close($self->{qmeventd_fh});