From b58b0956318d2882b386316f43d9a03bfe3b308d Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Sun, 28 Jul 2013 19:39:48 +0200
Subject: [PATCH] Don't fail if the second node is unavailable, just act as the
 local libvirt is the only one

---
 virt-backup | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/virt-backup b/virt-backup
index 385e094..267d8db 100644
--- a/virt-backup
+++ b/virt-backup
@@ -176,8 +176,11 @@ $libvirt1 = Sys::Virt->new( uri => $connect[0] ) ||
     die "Error connecting to libvirt on URI: $connect[0]";
 
 if (defined $connect[1]){
-    $libvirt2 = Sys::Virt->new( uri => $connect[1] ) ||
-        die "Error connecting to libvirt on URI: $connect[1]";
+    $libvirt2 = '';
+    eval { $libvirt2 = Sys::Virt->new( uri => $connect[1] ); };
+    if ($@ && $opts{debug}){
+        print "Error connecting to libvirt on URI: $connect[1], lets hope is out of order\n";
+    }
 }
 
 our $libvirt = $libvirt1;
@@ -192,7 +195,7 @@ foreach our $vm (@vms){
 
     # If we've passed two connect URI, and our VM is not
     # running on the first one, check on the second one
-    if (!$dom->is_active && defined $connect[1]){
+    if (!$dom->is_active && $libvirt2 ne ''){
         $dom = $libvirt2->get_domain_by_name($vm) ||
             die "Error opening $vm object";
 
@@ -603,14 +606,14 @@ sub usage{
 sub save_vm_state{
     if ($dom->is_active()){
         print "$vm is running, saving state....\n" if ($opts{debug});
-        # if connect[1] is defined, you've passed several connection URI
+        # if $libvirt2 is defined, you've passed several connection URI
         # This means that you're running a dual hypervisor cluster
         # And depending on the one running the current VM
         # $backupdir might not be available
         # whereas /var/lib/libvirt/qemu/save/ might
         # if you've mounted here a shared file system
         # (NFS, GlusterFS, GFS2, OCFS etc...)
-        if (defined $connect[1]){
+        if ($libvirt2 ne ''){
             $dom->managed_save();
             move "/var/lib/libvirt/qemu/save/$vm.save", "$backupdir/$vm.state";
         }
@@ -628,14 +631,14 @@ sub save_vm_state{
 sub restore_vm{
     if (! $dom->is_active()){
         if (-e "$backupdir/$vm.state"){
-            # if connect[1] is defined, you've passed several connection URI
+            # if $libvirt2 is defined, you've passed several connection URI
             # This means that you're running a dual hypervisor cluster
             # And depending on the one running the current VM
             # $backupdir might not be available
             # whereas /var/lib/libvirt/qemu/save/ might
             # if you've mounted here a shared file system
             # (NFS, GlusterFS, GFS2, OCFS etc...)
-            if (defined $connect[1]){
+            if ($libvirt2){
                 copy "$backupdir/$vm.state", "/var/lib/libvirt/qemu/save/$vm.save";
                 start_vm();
             }