Borg: Extract version information for future use

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

1 files changed, 17 insertions, 0 deletions

diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm
index 31511de..9807700 100644
--- a/lib/App/BorgRestore/Borg.pm
+++ b/lib/App/BorgRestore/Borg.pm
@@ -28,9 +28,26 @@ method new($class: $borg_repo) {
 
 	$self->{borg_repo} = $borg_repo;
 
+	$self->{borg_version} = $self->borg_version();
+
 	return $self;
 }
 
+=head3 borg_version
+
+Return the version of borg.
+
+=cut
+
+method borg_version() {
+	run [qw(borg --version)], ">", \my $output or die $log->error("Failed to determined borg version")."\n";
+	if ($output =~ m/^.* ([0-9.a-z]+)$/) {
+		return $1;
+	}
+	die $log->error("Unable to extract borg version from borg --version output")."\n";
+}
+
+
 method borg_list() {
 	my @archives;