From e82836be4709ae95c87a6c5d501a026df838ebd7 Mon Sep 17 00:00:00 2001
From: Axel Burri <axel@tty0.ch>
Date: Fri, 16 Apr 2021 15:29:23 +0200
Subject: [PATCH] btrbk: add single_column output format

---
 btrbk | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/btrbk b/btrbk
index 38adbdc..f2e4abe 100755
--- a/btrbk
+++ b/btrbk
@@ -5112,7 +5112,15 @@ sub print_formatted(@)
   # strips leading "-" from @keys
   %hide_column = map { $_ => 1 } grep { s/^-// } @keys;
 
-  if($format eq "raw")
+  if($format eq "single_column")
+  {
+    # single-column: newline separated values, no headers
+    my $key = $keys[0];
+    foreach (grep defined, map $_->{$key}, @$data) {
+      print $fh $_ . "\n" if($_ ne "");
+    }
+  }
+  elsif($format eq "raw")
   {
     # output: key0="value0" key1="value1" ...
     foreach my $row (@$data) {