diff options
author | Florian Pritz <bluewind@xinu.at> | 2017-05-28 20:42:57 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2017-05-28 20:42:57 +0200 |
commit | 636b361a019ab4e4b4f3960d2aeca33b7be7a8cb (patch) | |
tree | 568742918b653b5d0b084bd3be0ff53b4f08ca72 /lib/App/BorgRestore/Helper.pm | |
parent | 511041a2b76cea1f82686e221f28ce916e73ab4f (diff) | |
download | App-BorgRestore-636b361a019ab4e4b4f3960d2aeca33b7be7a8cb.tar.gz App-BorgRestore-636b361a019ab4e4b4f3960d2aeca33b7be7a8cb.tar.xz |
Add --adhoc
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'lib/App/BorgRestore/Helper.pm')
-rw-r--r-- | lib/App/BorgRestore/Helper.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/App/BorgRestore/Helper.pm b/lib/App/BorgRestore/Helper.pm index 976ef54..ec76926 100644 --- a/lib/App/BorgRestore/Helper.pm +++ b/lib/App/BorgRestore/Helper.pm @@ -19,6 +19,15 @@ fun format_timestamp($timestamp) { return POSIX::strftime "%a. %F %H:%M:%S %z", localtime $timestamp; } +# XXX: this also exists in BorgRestore::_handle_added_archives() +fun parse_borg_time($string) { + if ($string =~ m/^.{4} (?<year>....)-(?<month>..)-(?<day>..) (?<hour>..):(?<minute>..):(?<second>..)$/) { + my $time = POSIX::mktime($+{second},$+{minute},$+{hour},$+{day},$+{month}-1,$+{year}-1900); + return $time; + } + return; +} + 1; __END__ |