From 892db03a49333daf7d808395a0a25e81ec2a76ab Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Thu, 6 Sep 2018 16:02:04 +0200
Subject: Extract lookup table into dedicated package

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 lib/App/BorgRestore/PathTimeTable/Memory.pm | 67 +++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 lib/App/BorgRestore/PathTimeTable/Memory.pm

(limited to 'lib/App/BorgRestore')

diff --git a/lib/App/BorgRestore/PathTimeTable/Memory.pm b/lib/App/BorgRestore/PathTimeTable/Memory.pm
new file mode 100644
index 0000000..7aee5b0
--- /dev/null
+++ b/lib/App/BorgRestore/PathTimeTable/Memory.pm
@@ -0,0 +1,67 @@
+package App::BorgRestore::PathTimeTable::Memory;
+use v5.14;
+use strict;
+use warnings;
+
+use Function::Parameters;
+
+method new($class: $deps = {}) {
+	return $class->new_no_defaults($deps);
+}
+
+method new_no_defaults($class: $deps = {}) {
+	my $self = {};
+	bless $self, $class;
+	$self->{deps} = $deps;
+	$self->{lookuptable} = [{}, 0];
+	$self->{nodes_to_flatten} = [];
+	$self->{nodes} = [];
+	return $self;
+}
+
+method add_path($path, $time) {
+	my @components = split /\//, $path;
+
+	my $node = $self->{lookuptable};
+
+	if ($path eq ".") {
+		if ($time > $$node[1]) {
+			$$node[1] = $time;
+		}
+		return;
+	}
+
+	# each node is an arrayref of the format [$hashref_of_children, $mtime]
+	# $hashref_of_children is undef if there are no children
+	for my $component (@components) {
+		if (!defined($$node[0]->{$component})) {
+			$$node[0]->{$component} = [undef, $time];
+		}
+		# update mtime per child
+		if ($time > $$node[1]) {
+			$$node[1] = $time;
+		}
+		$node = $$node[0]->{$component};
+	}
+}
+
+method save_nodes($archive_id) {
+	$self->_save_node($archive_id, undef, $self->{lookuptable});
+}
+
+method _save_node($archive_id, $prefix, $node) {
+	for my $child (keys %{$$node[0]}) {
+		my $path;
+		$path = $prefix."/" if defined($prefix);
+		$path .= $child;
+
+		my $time = $$node[0]->{$child}[1];
+		$self->{deps}->{db}->add_path($archive_id, $path, $time);
+
+		$self->_save_node($archive_id, $path, $$node[0]->{$child});
+	}
+}
+
+1;
+
+__END__
-- 
cgit v1.2.3-24-g4f1b