Add direct-to-db adding of paths instead of memory only

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

1 files changed, 13 insertions, 3 deletions

diff --git a/lib/App/BorgRestore/DB.pm b/lib/App/BorgRestore/DB.pm
index 0c6c057..6af14af 100644
--- a/lib/App/BorgRestore/DB.pm
+++ b/lib/App/BorgRestore/DB.pm
@@ -156,16 +156,26 @@ method get_archives_for_path($path) {
 	return \@ret;
 }
 
-
-method add_path($archive_id, $path, $time) {
+method _insert_path($archive_id, $path, $time) {
 	my $st = $self->{dbh}->prepare_cached('insert or ignore into `files` (`path`, `'.$archive_id.'`)
 		values(?, ?)');
 	$st->execute($path, $time);
+}
+
+method add_path($archive_id, $path, $time) {
+	$self->_insert_path($archive_id, $path, $time);
 
-	$st = $self->{dbh}->prepare_cached('update files set `'.$archive_id.'` = ? where `path` = ?');
+	my $st = $self->{dbh}->prepare_cached('update files set `'.$archive_id.'` = ? where `path` = ?');
 	$st->execute($time, $path);
 }
 
+method update_path_if_greater($archive_id, $path, $time) {
+	$self->_insert_path($archive_id, $path, $time);
+
+	my $st = $self->{dbh}->prepare_cached('update files set `'.$archive_id.'` = ? where `path` = ? and `'.$archive_id.'` < ?');
+	$st->execute($time, $path, $time);
+}
+
 method begin_work() {
 	$self->{dbh}->begin_work();
 }