diff options
| -rw-r--r-- | lib/App/BorgRestore/Borg.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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->($_); |