From d28bcb7e09769e6eaf9e4e9f0206fdc9e76a575a Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Wed, 24 Jan 2018 01:10:15 +0100 Subject: Add --list feature to search for files contained in backups by path Signed-off-by: Florian Pritz --- lib/App/BorgRestore/DB.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'lib/App/BorgRestore') 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"); } -- cgit v1.2.3-24-g4f1b