[#493] Ping the VM and reconnect

UPC · Nov 28, 2017 · 11cd08f · 11cd08f
1 parent 0c17e3f
commit 11cd08f
Show file tree

Hide file tree

Showing 4 changed files with 19 additions and 2 deletions.
diff --git a/lib/Ravada/Front.pm b/lib/Ravada/Front.pm
@@ -485,8 +485,13 @@ sub open_vm {
     my $type = shift or confess "I need vm type";
     my $class = "Ravada::VM::$type";
 
-    if ($VM{$type}) {
-        return $VM{$type} 
+    if (my $vm = $VM{$type}) {
+        if (!$vm->ping) {
+            $vm->disconnect();
+            $vm->connect();
+        } else {
+            return $vm;
+        }
     }
 
     my $proto = {};

diff --git a/lib/Ravada/VM.pm b/lib/Ravada/VM.pm
@@ -44,6 +44,7 @@ requires 'connect';
 requires 'disconnect';
 requires 'import_domain';
 
+requires 'ping';
 ############################################################
 
 has 'host' => (

diff --git a/lib/Ravada/VM/KVM.pm b/lib/Ravada/VM/KVM.pm
@@ -1793,4 +1793,11 @@ sub import_domain {
     return $domain;
 }
 
+sub ping($self) {
+    return 0 if !$self->vm;
+    eval { $self->vm->list_defined_networks };
+    return 1 if !$@;
+    return 0;
+}
+
 1;
diff --git a/lib/Ravada/VM/Void.pm b/lib/Ravada/VM/Void.pm
@@ -148,6 +148,10 @@ sub import_domain {
     confess "Not implemented";
 }
 
+sub refresh_storage {}
+
+sub ping { return 1 }
+
 #########################################################################3
 
 1;