From ff87476fe745ecafcafe779241469b5617831c27 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 4 Dec 2017 12:01:01 +0100 Subject: Warn if sqlite cache is full Signed-off-by: Florian Pritz --- lib/App/BorgRestore.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib/App/BorgRestore.pm') diff --git a/lib/App/BorgRestore.pm b/lib/App/BorgRestore.pm index b26c88d..828838c 100644 --- a/lib/App/BorgRestore.pm +++ b/lib/App/BorgRestore.pm @@ -438,6 +438,7 @@ method _handle_removed_archives($borg_archives) { $self->{db}->remove_archive($archive); $self->{db}->commit; $self->{db}->vacuum; + $self->{db}->verify_cache_fill_rate_ok(); } my $end = Time::HiRes::gettimeofday(); @@ -476,6 +477,7 @@ method _handle_added_archives($borg_archives) { $self->_save_node($archive_id, undef, $lookuptable); $self->{db}->commit; $self->{db}->vacuum; + $self->{db}->verify_cache_fill_rate_ok(); my $end = Time::HiRes::gettimeofday(); $log->debugf("Adding archive finished after: %.5fs (parsing borg output took %.5fs)", $end - $start, $borg_time - $start); @@ -519,6 +521,7 @@ method update_cache() { $self->_handle_added_archives($borg_archives); $log->debugf("DB contains information for %d archives in %d rows", scalar(@{$self->{db}->get_archive_names()}), $self->{db}->get_archive_row_count()); + $self->{db}->verify_cache_fill_rate_ok(); } -- cgit v1.2.3-24-g4f1b