Add --list feature to search for files contained in backups by path

Signed-off-by: Florian Pritz <bluewind@xinu.at>

2 files changed, 31 insertions, 0 deletions

diff --git a/lib/App/BorgRestore.pm b/lib/App/BorgRestore.pm
index 828838c..c3b37fd 100644
--- a/lib/App/BorgRestore.pm
+++ b/lib/App/BorgRestore.pm
@@ -402,6 +402,21 @@ method _add_path_to_hash($hash, $path, $time) {
 	}
 }
 
+=head3 search_path
+
+ my $paths = $app->search_path($pattern)
+
+Returns a arrayref of paths that match the pattern. The pattern is matched as
+an sqlite LIKE pattern. If no % occurs in the pattern, the patterns is
+automatically wrapped between two % so it may match anywhere in the path.
+
+=cut
+
+method search_path($pattern) {
+	$pattern = '%'.$pattern.'%' if $pattern !~ m/%/;
+	return $self->{db}->search_path($pattern);
+}
+
 =head3 get_missing_items
 
  my $items = $app->get_missing_items($have, $want);
diff --git a/lib/App/BorgRestore/DB.pm b/lib/App/BorgRestore/DB.pm
index 3fddbf1..1f1427e 100644
--- a/lib/App/BorgRestore/DB.pm
+++ b/lib/App/BorgRestore/DB.pm
@@ -177,6 +177,22 @@ method verify_cache_fill_rate_ok() {
 	}
 }
 
+method search_path($pattern) {
+	$log->debugf("Preparing path search for pattern '%s'", $pattern);
+	my $st = $self->{dbh}->prepare('select path from files where path like ?');
+	$log->debug("Executing search");
+	$st->execute($pattern);
+	$log->debug("Fetching search result");
+
+	my @ret;
+	while (my $row = $st->fetchrow_hashref()) {
+		push @ret, $row->{path};
+	}
+
+	$log->debugf("Found %d matching paths", 0+@ret);
+	return \@ret;
+}
+
 method vacuum() {
 	$self->{dbh}->do("vacuum");
 }