From 406b25785ed4e2f5872f1a6ede29b612bf3ce2c1 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Wed, 5 Apr 2017 18:05:40 +0200 Subject: Add debug output to Borg package Signed-off-by: Florian Pritz --- lib/App/BorgRestore/Borg.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lib/App/BorgRestore') diff --git a/lib/App/BorgRestore/Borg.pm b/lib/App/BorgRestore/Borg.pm index 38c12ae..402dba3 100644 --- a/lib/App/BorgRestore/Borg.pm +++ b/lib/App/BorgRestore/Borg.pm @@ -4,6 +4,7 @@ use warnings; use strict; use IPC::Run qw(run start new_chunker); +use Log::Any qw($log); sub new { my $class = shift; @@ -21,6 +22,7 @@ sub borg_list { my $self = shift; my @archives; + $log->debug("Getting archive list"); run [qw(borg list), $self->{borg_repo}], '>', \my $output or die "borg list returned $?"; for (split/^/, $output) { @@ -38,6 +40,7 @@ sub restore { my $archive_name = shift; my $path = shift; + $log->debugf("Restoring '%s' from archive %s, stripping %d components of the path", $path, $archive_name, $components_to_strip); system(qw(borg extract -v --strip-components), $components_to_strip, $self->{borg_repo}."::".$archive_name, $path); } @@ -46,6 +49,7 @@ sub list_archive { my $archive = shift; my $cb = shift; + $log->debugf("Fetching file list for archive %s", $archive); open (my $fh, '-|', 'borg', qw/list --list-format/, '{isomtime} {path}{NEWLINE}', $self->{borg_repo}."::".$archive); while (<$fh>) { $cb->($_); -- cgit v1.2.3-24-g4f1b