diff options
| -rw-r--r-- | lib/App/BorgRestore.pm | 11 | ||||
| -rw-r--r-- | lib/App/BorgRestore/Helper.pm | 7 | ||||
| -rwxr-xr-x | script/borg-restore.pl | 2 |
3 files changed, 10 insertions, 10 deletions
diff --git a/lib/App/BorgRestore.pm b/lib/App/BorgRestore.pm index c300a0b..218be49 100644 --- a/lib/App/BorgRestore.pm +++ b/lib/App/BorgRestore.pm @@ -179,11 +179,11 @@ sub select_archive_timespec { my $target_timestamp = time - $seconds; - $log->debugf("Searching for newest archive that contains a copy before %s", $self->format_timestamp($target_timestamp)); + $log->debugf("Searching for newest archive that contains a copy before %s", App::BorgRestore::Helper::format_timestamp($target_timestamp)); for my $archive (reverse @$archives) { if ($archive->{modification_time} < $target_timestamp) { - $log->debugf("Found archive with timestamp %s", $self->format_timestamp($archive->{modification_time})); + $log->debugf("Found archive with timestamp %s", App::BorgRestore::Helper::format_timestamp($archive->{modification_time})); return $archive; } } @@ -191,13 +191,6 @@ sub select_archive_timespec { die "Failed to find archive matching time specification\n"; } -sub format_timestamp { - my $self = shift; - my $timestamp = shift; - - return POSIX::strftime "%a. %F %H:%M:%S %z", localtime $timestamp; -} - sub _timespec_to_seconds { my $self = shift; my $timespec = shift; diff --git a/lib/App/BorgRestore/Helper.pm b/lib/App/BorgRestore/Helper.pm index 8403ec3..8bc4ceb 100644 --- a/lib/App/BorgRestore/Helper.pm +++ b/lib/App/BorgRestore/Helper.pm @@ -3,6 +3,7 @@ use v5.10; use strict; use warnings; +use POSIX (); sub untaint { my $data = shift; @@ -17,6 +18,12 @@ sub untaint_archive_name { return untaint($archive, qr([a-zA-Z0-9-:+\.]+)); } +sub format_timestamp { + my $timestamp = shift; + + return POSIX::strftime "%a. %F %H:%M:%S %z", localtime $timestamp; +} + 1; __END__ diff --git a/script/borg-restore.pl b/script/borg-restore.pl index 1f66fbd..1365e2e 100755 --- a/script/borg-restore.pl +++ b/script/borg-restore.pl @@ -187,7 +187,7 @@ sub user_select_archive { my $counter = 0; for my $archive (@$archives) { - printf "\e[0;33m%3d: \e[1;33m%s\e[0m %s\n", $counter++, $app->format_timestamp($archive->{modification_time}), $archive->{archive}; + printf "\e[0;33m%3d: \e[1;33m%s\e[0m %s\n", $counter++, App::BorgRestore::Helper::format_timestamp($archive->{modification_time}), $archive->{archive}; } printf "\e[0;34m%s: \e[0m", "Enter ID to restore (Enter to skip)"; |