diff options
| -rw-r--r-- | lib/App/BorgRestore.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/App/BorgRestore.pm b/lib/App/BorgRestore.pm index e039011..2477fdf 100644 --- a/lib/App/BorgRestore.pm +++ b/lib/App/BorgRestore.pm @@ -34,6 +34,15 @@ App::BorgRestore - Restore paths from borg backups use App::BorgRestore; + my $app = App::BorgRestore->new(); + + # Update the cache (call after creating/removing backups) + $app->update_cache(); + + # Restore a path from a backup that is at least 5 days old. Optionally + # restore it to a different directory than the original. + $app->restore_simple($path, "5days", $optional_destination_directory); + =head1 DESCRIPTION App::BorgRestore is a restoration helper for borg. @@ -254,6 +263,22 @@ sub restore { $self->{borg}->restore($components_to_strip, $archive_name, $path); } +sub restore_simple { + my $self = shift; + my $path = shift; + my $timespec = shift; + my $destination = shift; + + my $abs_path = $self->resolve_relative_path($path); + my $backup_path = $self->map_path_to_backup_path($abs_path); + + $destination //= dirname($abs_path); + + my $archives = $self->find_archives($backup_path); + my $selected_archive = $self->select_archive_timespec($archives, $timespec); + $self->restore($backup_path, $selected_archive, $destination); +} + sub _add_path_to_hash { my $self = shift; my $hash = shift; |