mirror of https://github.com/digint/btrbk
btrbk: print "Dryrun: YES" in backup summary header if dryrun is set
parent
1905d80969
commit
d445dd0b12
27
btrbk
27
btrbk
|
@ -1599,19 +1599,20 @@ sub print_header(@)
|
|||
}
|
||||
if($config) {
|
||||
print " Config: $config->{SRC_FILE}\n";
|
||||
|
||||
if($config->{CMDLINE_FILTER_LIST})
|
||||
{
|
||||
my @list = sort @{$config->{CMDLINE_FILTER_LIST}};
|
||||
my @sorted = ( grep(/^group/, @list),
|
||||
grep(/^volume/, @list),
|
||||
grep(/^subvolume/, @list),
|
||||
grep(/^target/, @list) );
|
||||
die unless(scalar(@list) == scalar(@sorted));
|
||||
print " Filter: ";
|
||||
print join("\n ", @sorted);
|
||||
print "\n";
|
||||
}
|
||||
}
|
||||
if($dryrun) {
|
||||
print " Dryrun: YES\n";
|
||||
}
|
||||
if($config && $config->{CMDLINE_FILTER_LIST}) {
|
||||
my @list = sort @{$config->{CMDLINE_FILTER_LIST}};
|
||||
my @sorted = ( grep(/^group/, @list),
|
||||
grep(/^volume/, @list),
|
||||
grep(/^subvolume/, @list),
|
||||
grep(/^target/, @list) );
|
||||
die unless(scalar(@list) == scalar(@sorted));
|
||||
print " Filter: ";
|
||||
print join("\n ", @sorted);
|
||||
print "\n";
|
||||
}
|
||||
if($args{info}) {
|
||||
print "\n" . join("\n", grep(defined, @{$args{info}})) . "\n";
|
||||
|
|
Loading…
Reference in New Issue