btrbk: dont print empty snapshot/backup schedule

pull/57/head
Axel Burri 2015-10-21 21:58:30 +02:00
parent f526d454f7
commit 9af3344676
1 changed files with 9 additions and 5 deletions

14
btrbk
View File

@ -3363,13 +3363,17 @@ MAIN:
#
if($loglevel >= 2) {
my @data = map { { %$_, vinfo_prefixed_keys("", $_->{value}) }; } @$schedule_results;
my @data_backup = map { $_->{topic} eq "backup" ? $_ : () } @data;
my @data_snapshot = map { $_->{topic} eq "snapshot" ? $_ : () } @data;
my @data_backup = map { $_->{topic} eq "backup" ? $_ : () } @data;
print_formatted("schedule", \@data_snapshot, title => "SNAPSHOT SCHEDULE");
print "\n";
print_formatted("schedule", \@data_backup, title => "BACKUP SCHEDULE");
print "\n";
if(scalar(@data_snapshot)) {
print_formatted("schedule", \@data_snapshot, title => "SNAPSHOT SCHEDULE");
print "\n";
}
if(scalar(@data_backup)) {
print_formatted("schedule", \@data_backup, title => "BACKUP SCHEDULE");
print "\n";
}
}