wip: properly store timeout in constant

UPC · May 2, 2024 · b6c6943 · b6c6943
1 parent 08a8c12
commit b6c6943
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/lib/Ravada/VM.pm b/lib/Ravada/VM.pm
@@ -46,6 +46,8 @@ our $MIN_DISK_MB = 1024 * 1024;
 our $CACHE_TIMEOUT = 60;
 our $FIELD_TIMEOUT = '_data_timeout';
 
+our $TIMEOUT_DOWN_CACHE = 120;
+
 our %VM; # cache Virtual Manager Connection
 our %SSH;
 
@@ -343,9 +345,13 @@ sub _connect {
     return $result;
 }
 
+sub timeout_down_cache($self) {
+    return $TIMEOUT_DOWN_CACHE;
+}
+
 sub _around_connect($orig, $self) {
 
-    if ($self->_data('cached_down') && time-$self->_data('cached_down')<120) {
+    if ($self->_data('cached_down') && time-$self->_data('cached_down')< $self->timeout_down_cache()) {
             return;
     }
     my $result = $self->$orig();

diff --git a/lib/Ravada/VM/KVM.pm b/lib/Ravada/VM/KVM.pm
@@ -109,7 +109,7 @@ sub _connect {
     } else {
         confess "Error: You can't connect to remote VMs in readonly mode"
             if $self->readonly;
-        if ($self->_data('cached_down') && time-$self->_data('cached_down')<120) {
+        if ($self->_data('cached_down') && time-$self->_data('cached_down')<$self->timeout_down_cache()) {
             return;
         }
         my $transport = 'ssh';