summaryrefslogtreecommitdiffstats
path: root/lib/App
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2018-01-24 01:10:15 +0100
committerFlorian Pritz <bluewind@xinu.at>2018-01-24 01:10:15 +0100
commitd28bcb7e09769e6eaf9e4e9f0206fdc9e76a575a (patch)
treea5ea3f8bc80e94cec074f5f12107835e163db936 /lib/App
parentff87476fe745ecafcafe779241469b5617831c27 (diff)
downloadApp-BorgRestore-d28bcb7e09769e6eaf9e4e9f0206fdc9e76a575a.tar.gz
App-BorgRestore-d28bcb7e09769e6eaf9e4e9f0206fdc9e76a575a.tar.xz
Add --list feature to search for files contained in backups by path
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'lib/App')
-rw-r--r--lib/App/BorgRestore.pm15
-rw-r--r--lib/App/BorgRestore/DB.pm16
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");
}