Add --migrate feature: near-live migrate between clusters

README.md

@@ -142,6 +142,10 @@ The use case is that you might want to keep a cold-standby copy of a certain VM
 
 Another usecase could be that you want to migrate a VM from one cluster to another with the least downtime possible. Real live migration that you are used to inside one cluster is hard to achive cross-cluster, but you can easily make an initial migration while the VM is still running on the source cluster (fully transferring the block devices), shut it down on source, run the mirror process again (which is much faster now because it only needs to transfer the diff since the initial snapshot) and start it up on the target cluster. This way the migration basically takes one boot plus a few seconds for transferring the incremental snapshot.
 
+## Near-live Migration 
+
+To minimize downtime and achive a near-live Migration from one Cluster to another it's recommended to do an initial Sync of a VM from the source to the destination cluster. After that, run the job again, and add the --migrate switch. This causes the source VM to be shut down prior snapshot + transfer, and be restarted on the destination cluster as soon as the incremental transfer is complete. Using --migrate will always try to start the VM on the destination cluster.
+
 ## Things to check
 
 From Proxmox VE Hosts you want to backup you need to be able to ssh passwordless to all other Cluster hosts, that may hold VM's or Containers. This goes for the source and for the destination Cluster.

crossover

@@ -16,7 +16,7 @@ declare opt_influx_summary_metrics='crossover_jobs'
 # Cross Pool Migration and incremental replication Tool for Proxmox VMs using Ceph.
 # Author: Bastian Mäuser <bma@netz.org>        
 
-declare -r VERSION=0.6
+declare -r VERSION=0.7
 declare -r NAME=$(basename "$0")
 declare -r PROGNAME=${NAME%.*}
 
@@ -66,6 +66,7 @@ declare -i opt_keepslock=0
 declare -i opt_keepdlock=0
 declare -i opt_overwrite=0
 declare -i opt_online=0
+declare -i opt_migrate=0
 declare opt_keep_local='0s'
 declare opt_keep_remote='0s'
 
@@ -116,8 +117,9 @@ Options:
     --influxtoken        Influx API token with write permission
     --influxbucket       Influx Bucket to write to (e.g. --influxbucket=telegraf/autogen)
     --jobname            Descriptive name for the job, used in Statistics
-Switches:    
+Switches:
     --online             Allow online Copy
+    --migrate            Stop VM on Source Cluster before final Transfer and restart on destination Cluster
     --nolock             Don't lock source VM on Transfer (mainly for test purposes)
     --keep-slock         Keep source VM locked on Transfer
     --keep-dlock         Keep VM locked after transfer on Destination
@@ -137,7 +139,7 @@ function parse_opts(){
     local args
     args=$(getopt \
            --options '' \
-           --longoptions=vmid:,prefixid:,excludevmids:,destination:,pool:,keeplocal:,keepremote:,rewrite:,influxurl:,influxorg:,influxtoken:,influxbucket:,jobname:,online,nolock,keep-slock,keep-dlock,overwrite,dry-run,debug \
+           --longoptions=vmid:,prefixid:,excludevmids:,destination:,pool:,keeplocal:,keepremote:,rewrite:,influxurl:,influxorg:,influxtoken:,influxbucket:,jobname:,online,migrate,nolock,keep-slock,keep-dlock,overwrite,dry-run,debug \
            --name "$PROGNAME" \
            -- "$@") \
            || end_process 128
@@ -159,8 +161,8 @@ function parse_opts(){
         --influxtoken) opt_influx_token=$2; shift 2;;
         --influxbucket) opt_influx_bucket=$2; shift 2;;
         --jobname) opt_influx_jobname=$2; shift 2;;
-
-        --online) opt_online=1; shift 2;;
+        --online) opt_online=1; shift ;;
+        --migrate) opt_migrate=1; shift ;;
         --dry-run) opt_dry_run=1; shift;;
         --debug) opt_debug=1; shift;;
         --nolock) opt_lock=0; shift;;
@@ -202,6 +204,11 @@ function parse_opts(){
         fi
     fi
 
+    if [ $opt_keepdlock -eq 1 ] && [ $opt_migrate -eq 1 ]; then
+        log error "--keepdlock/--migrate: Invalid parameter Combination: you can't keep the destination locked in near-live migration mode"
+        end_process 255
+    fi
+
     if [ "$opt_vm_ids" = "all" ]; then
         local all=''
         local data=''
@@ -445,7 +452,7 @@ function mirror() {
         if [ $host_on_destination ]; then
             dststatus=$(ssh root@${dstpvnode[$dvmid]} qm status $dvmid|cut -d' ' -f 2)
             if [ $dststatus == "running" ]; then
-                log error "Destination VM is running. bailing out"
+                log error "VM is running on Destination. bailing out"
                 end_process 255
             fi
         fi
@@ -466,6 +473,12 @@ function mirror() {
             map_vmids_to_dsthost "$opt_destination"
         fi
 
+        #--move so we need to shutdown?
+        if [ $opt_migrate -eq 1 ]; then
+            log info "VM $vm_id - Shutting down VM on ${pvnode[$vm_id]}"
+            do_run "ssh root@"${pvnode[$vm_id]}" qm shutdown "$vm_id >/dev/null
+        fi
+
         #Lock on source + destination
         if [ $opt_lock -eq 1 ]; then
             do_run "ssh root@"${pvnode[$vm_id]}" qm set "$vm_id" --lock backup" >/dev/null
@@ -473,14 +486,16 @@ function mirror() {
             do_run "ssh root@"${dstpvnode[$dvmid]}" qm set "$dvmid" --lock backup" >/dev/null
             log info "VM $dvmid - locked $dvmid [rc:$?]"
         fi
-
-        vm_freeze "$vm_id" "${pvnode[$vm_id]}" >/dev/null
-        freezerc=$?
-        if [ $freezerc -gt 0 ]; then
-            log error "VM $vm_id - QEMU-Guest could not fsfreeze on guest."
-            (( perf_freeze_failed++ ))
-        else
-            (( perf_freeze_ok++ ))
+        #Freeze fs only if no migration running
+        if [ $opt_migrate -eq 0 ]; then
+            vm_freeze "$vm_id" "${pvnode[$vm_id]}" >/dev/null
+            freezerc=$?
+            if [ $freezerc -gt 0 ]; then
+                log error "VM $vm_id - QEMU-Guest could not fsfreeze on guest."
+                (( perf_freeze_failed++ ))
+            else
+                (( perf_freeze_ok++ ))
+            fi
         fi
         for disk in $(get_disks_from_config "$file_config"); do
             src_image_spec=$(get_image_spec "$disk")
@@ -493,16 +508,17 @@ function mirror() {
                 (( perf_ss_ok++ ))
             fi
         done
-        vm_unfreeze "$vm_id" "${pvnode[$vm_id]}" >/dev/null
-        unfreezerc=$?
-        if [ $unfreezerc -gt 0 ]; then
-            log error "VM $vm_id - QEMU-Guest could not fsunfreeze on guest."
+        if [ $opt_migrate -eq 0 ]; then
+            vm_unfreeze "$vm_id" "${pvnode[$vm_id]}" >/dev/null
+            unfreezerc=$?
+            if [ $unfreezerc -gt 0 ]; then
+                log error "VM $vm_id - QEMU-Guest could not fsunfreeze on guest."
+            fi
+            if [ ! $opt_keepslock -eq 1 ]; then
+                do_run "ssh root@${pvnode[$vm_id]} qm unlock $vm_id" >/dev/null
+                log info "VM $vm_id - unlocked source VM $vm_id [rc:$?]"
+            fi
         fi
-        if [ ! $opt_keepslock -eq 1 ]; then
-            do_run "ssh root@${pvnode[$vm_id]} qm unlock $vm_id" >/dev/null
-            log info "VM $vm_id - unlocked source VM $vm_id [rc:$?]"
-        fi
-
         for disk in $(get_disks_from_config "$file_config"); do
             (( diskcount++ ))
             log debug "VMID: $vm_id Disk: $disk DESTVMID: $dvmid"
@@ -601,6 +617,12 @@ function mirror() {
             ssh root@${dstpvnode[$dvmid]} qm unlock $dvmid
             log info "VM $dvmid - Unlocking destination VM $dvmid"
         fi
+        #--migrate so start on destination?
+        if [ $opt_migrate -eq 1 ]; then
+            log info "VM $dvmid - Starting VM on ${pvnode[$vm_id]}"
+            do_run "ssh root@"${dstpvnode[$dvmid]}" qm start "$dvmid >/dev/null
+        fi
+
     done
     endjob=$(date +%s)
     log info "Finnished mirror $(date "+%F %T")"