From df777475af4694cfc5489ccb29a75a7789a29df6 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 27 Feb 2017 10:33:55 +0100 Subject: Extract borg related methods into dedicated package Signed-off-by: Florian Pritz --- lib/App/BorgRestore/Borg.pm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 lib/App/BorgRestore/Borg.pm (limited to 'lib/App/BorgRestore/Borg.pm') diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm new file mode 100644 index 0000000..426f809 --- /dev/null +++ b/lib/App/BorgRestore/Borg.pm @@ -0,0 +1,39 @@ +package App::BorgRestore::Borg; +use v5.10; +use warnings; +use strict; + +use IPC::Run qw(run start); + +sub borg_list { + my @archives; + + run [qw(borg list)], '>', \my $output or die "borg list returned $?"; + + for (split/^/, $output) { + if (m/^([^\s]+)\s/) { + push @archives, $1; + } + } + + return \@archives; +} + +sub restore { + my $components_to_strip = shift; + my $archive_name = shift; + my $path = shift; + + system(qw(borg extract -v --strip-components), $components_to_strip, "::".$archive_name, $path); +} + +sub list_archive { + my $archive = shift; + my $fh = shift; + + return start [qw(borg list --list-format), '{isomtime} {path}{NEWLINE}', "::".$archive], ">pipe", $fh; +} + +1; + +__END__ -- cgit v1.2.3-24-g4f1b