From 4c84b1a04348e317ef2b9e014e4bd06bfc6d8cf2 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sun, 2 Apr 2017 21:42:25 +0200 Subject: Move database path to Settings Signed-off-by: Florian Pritz --- lib/App/BorgRestore.pm | 3 +-- lib/App/BorgRestore/Settings.pm | 4 ++++ 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/App/BorgRestore.pm b/lib/App/BorgRestore.pm index 218be49..90b7d61 100644 --- a/lib/App/BorgRestore.pm +++ b/lib/App/BorgRestore.pm @@ -83,8 +83,7 @@ sub new { my $self = {}; bless $self, $class; - my $db_path = App::BorgRestore::Settings::get_cache_path('archives.db'); - # TODO: make db_path configurable, probably settings too + my $db_path = App::BorgRestore::Settings::get_db_path(); $self->{borg} = $deps->{borg} // App::BorgRestore::Borg->new(); $self->{db} = $deps->{db} // App::BorgRestore::DB->new($db_path); diff --git a/lib/App/BorgRestore/Settings.pm b/lib/App/BorgRestore/Settings.pm index 93312b8..f793b8f 100644 --- a/lib/App/BorgRestore/Settings.pm +++ b/lib/App/BorgRestore/Settings.pm @@ -42,6 +42,10 @@ sub get_cache_path { return get_cache_dir()."/$item"; } +sub get_db_path { + return get_cache_path('archives.db'); +} + 1; -- cgit v1.2.3-24-g4f1b