mirror of https://github.com/digint/btrbk
btrbk: fix action "config print" for dummy volume section
parent
e257077241
commit
47ea1f9481
31
btrbk
31
btrbk
|
@ -6539,19 +6539,28 @@ MAIN:
|
||||||
#
|
#
|
||||||
my @out;
|
my @out;
|
||||||
push @out, config_dump_keys($config, resolve => $resolve);
|
push @out, config_dump_keys($config, resolve => $resolve);
|
||||||
foreach my $sroot (vinfo_subsection($config, 'volume')) {
|
my $indent = "";
|
||||||
push @out, "\nvolume $sroot->{URL}";
|
foreach my $sroot (vinfo_subsection($config, 'volume', 1)) {
|
||||||
push @out, config_dump_keys($sroot, prefix => "\t", resolve => $resolve);
|
unless($sroot->{CONFIG}{DUMMY}) {
|
||||||
foreach my $svol (vinfo_subsection($sroot, 'subvolume')) {
|
push @out, "";
|
||||||
push @out, ""; # newline
|
push @out, "volume $sroot->{URL}";
|
||||||
push @out, "\t# subvolume $svol->{CONFIG}->{url_glob}" if(defined($svol->{CONFIG}->{url_glob}));
|
$indent .= "\t";
|
||||||
push @out, "\tsubvolume $svol->{URL}";
|
push @out, config_dump_keys($sroot, prefix => $indent, resolve => $resolve);
|
||||||
push @out, config_dump_keys($svol, prefix => "\t\t", resolve => $resolve);
|
|
||||||
foreach my $droot (vinfo_subsection($svol, 'target')) {
|
|
||||||
push @out, "\n\t\ttarget $droot->{CONFIG}->{target_type} $droot->{URL}";
|
|
||||||
push @out, config_dump_keys($droot, prefix => "\t\t\t", resolve => $resolve);
|
|
||||||
}
|
}
|
||||||
|
foreach my $svol (vinfo_subsection($sroot, 'subvolume', 1)) {
|
||||||
|
push @out, "";
|
||||||
|
push @out, "${indent}# subvolume $svol->{CONFIG}->{url_glob}" if(defined($svol->{CONFIG}->{url_glob}));
|
||||||
|
push @out, "${indent}subvolume $svol->{URL}";
|
||||||
|
$indent .= "\t";
|
||||||
|
push @out, config_dump_keys($svol, prefix => $indent, resolve => $resolve);
|
||||||
|
foreach my $droot (vinfo_subsection($svol, 'target', 1)) {
|
||||||
|
push @out, "";
|
||||||
|
push @out, "${indent}target $droot->{CONFIG}->{target_type} $droot->{URL}";
|
||||||
|
push @out, config_dump_keys($droot, prefix => "\t$indent", resolve => $resolve);
|
||||||
}
|
}
|
||||||
|
$indent =~ s/\t//;
|
||||||
|
}
|
||||||
|
$indent = "";
|
||||||
}
|
}
|
||||||
|
|
||||||
print_header(title => "Configuration Dump",
|
print_header(title => "Configuration Dump",
|
||||||
|
|
Loading…
Reference in New Issue