proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-06-28 07:17:25 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

blockjob: anticipate jobs with auto-dismiss=false for better error messages and detection

Browse Source 
When auto-dismiss=true (the default), a failed job can disappear very
quickly from the job list and there might not be any chance to see the
error in the result of 'query-block-jobs'. For jobs with $completion
being 'auto', like 'block-stream', it couldn't even be detected that
the job failed.

Jobs with auto-dismiss=false on the other hand, will wait in
'concluded' state until manually dismissed. For those, it will be
possible to query the error if the job failed.

There doesn't seem to be a way to have only failed jobs stay around,
e.g. something like auto-dismiss=on-success.

Planned to be used for the 'drive-mirror' and 'block-stream' jobs
initially.

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fiona Ebner 2024-04-11 13:16:03 +02:00 committed by Fabian Grünbichler
parent 3ab3dd55c4
commit caded41823
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
PVE/QemuServer.pm
View File

@ -8019,6 +8019,9 @@ sub qemu_drive_mirror_monitor {
die "$job_id: '$op' has been cancelled\n" if !defined($job); die "$job_id: '$op' has been cancelled\n" if !defined($job);
qemu_handle_concluded_blockjob($vmid, $job_id, $job)
if $job && $job->{status} eq 'concluded';
my $busy = $job->{busy}; my $busy = $job->{busy};
my $ready = $job->{ready}; my $ready = $job->{ready};
if (my $total = $job->{len}) { if (my $total = $job->{len}) {
@ -8119,6 +8122,19 @@ sub qemu_drive_mirror_monitor {
} }
} }
# If the job was started with auto-dismiss=false, it's necessary to dismiss it manually. Using this
# option is useful to get the error for failed jobs here. QEMU's job lock should make it impossible
# to see a job in 'concluded' state when auto-dismiss=true.
# $info is the 'BlockJobInfo' for the job returned by query-block-jobs.
sub qemu_handle_concluded_blockjob {
my ($vmid, $job_id, $info) = @_;
eval { mon_cmd($vmid, 'job-dismiss', id => $job_id); };
log_warn("$job_id: failed to dismiss job - $@") if $@;
die "$job_id: $info->{error} (io-status: $info->{'io-status'})\n" if $info->{error};
}
sub qemu_blockjobs_cancel { sub qemu_blockjobs_cancel {
my ($vmid, $jobs) = @_; my ($vmid, $jobs) = @_;
@ -8137,8 +8153,14 @@ sub qemu_blockjobs_cancel {
} }
foreach my $job (keys %$jobs) { foreach my $job (keys %$jobs) {
my $info = $running_jobs->{$job};
eval {
qemu_handle_concluded_blockjob($vmid, $job, $info)
if $info && $info->{status} eq 'concluded';
};
log_warn($@) if $@; # only warn and proceed with canceling other jobs
if (defined($jobs->{$job}->{cancel}) && !defined($running_jobs->{$job})) { if (defined($jobs->{$job}->{cancel}) && !defined($info)) {
print "$job: Done.\n"; print "$job: Done.\n";
delete $jobs->{$job}; delete $jobs->{$job};
} }