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

btrbk: print_formatted: allow custom format

pull/358/head
Axel Burri 2019-08-07 20:32:01 +02:00
parent 7facb44833
commit ea2ec1ceaa
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
btrbk
View File

@ -4975,16 +4975,17 @@ sub print_formatted(@)
my $default_format = "table"; my $default_format = "table";
my %args = @_; my %args = @_;
my $title = $args{title}; my $title = $args{title};
my $table_format = ref($format_key) ? $format_key : $table_formats{$format_key};
my $format = $args{output_format} || $output_format || $default_format; my $format = $args{output_format} || $output_format || $default_format;
my $pretty = $args{pretty} // $output_pretty; my $pretty = $args{pretty} // $output_pretty;
my $key_defs = $table_formats{$format_key}->{$format}; my $key_defs = $table_format->{$format};
my $ralign = $table_formats{$format_key}->{RALIGN} // {}; my $ralign = $table_format->{RALIGN} // {};
my $fh = $args{outfile} // *STDOUT; my $fh = $args{outfile} // *STDOUT;
my $table_spacing = 2; my $table_spacing = 2;
unless($key_defs) { unless($key_defs) {
WARN "Unsupported output format \"$format\", defaulting to \"$default_format\" format."; WARN "Unsupported output format \"$format\", defaulting to \"$default_format\" format.";
$key_defs = $table_formats{$format_key}->{$default_format} || die; $key_defs = $table_format->{$default_format} || die;
$format = $default_format; $format = $default_format;
} }
my @keys; my @keys;