ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: fix exit status for action usage

pull/542/head
Axel Burri 2023-04-01 18:52:48 +02:00
parent dd7149b111
commit 4ba944e6a5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
btrbk
View File

@ -6156,14 +6156,20 @@ MAIN:
my @data;
my %usage_cache;
my %processed;
my $exit_status = 0;
my $push_data = sub {
my ($vol, $type) = @_;
return if $processed{$vol->{URL}};
my $mountpoint = vinfo_mountpoint($vol, fs_type => 'btrfs');
return unless($mountpoint);
unless($mountpoint) {
$exit_status = 1;
return unless($mountpoint) ;
}
my $mount_source = $mountpoint->{mount_source};
my $mid = $vol->{MACHINE_ID} . $mount_source;
$usage_cache{$mid} //= btrfs_filesystem_usage(vinfo($vol->{URL_PREFIX} . $mountpoint->{mount_point}, $vol->{CONFIG})) // {};
my $usage = btrfs_filesystem_usage(vinfo($vol->{URL_PREFIX} . $mountpoint->{mount_point}, $vol->{CONFIG}));
$exit_status = 1 unless defined($usage);
$usage_cache{$mid} //= $usage // {};
push @data, { %{$usage_cache{$mid}},
type => $type,
mount_source => $mount_source,
@ -6181,7 +6187,7 @@ MAIN:
}
@data = sort { $a->{url} cmp $b->{url} } @data;
print_formatted("usage", \@data);
exit exit_status($config);
exit $exit_status;
}