#!/bin/bash

# -------------------------------------------------------------------------- #
# Copyright 2002-2019, OpenNebula Project, OpenNebula Systems                #
#                                                                            #
# Licensed under the Apache License, Version 2.0 (the "License"); you may    #
# not use this file except in compliance with the License. You may obtain    #
# a copy of the License at                                                   #
#                                                                            #
# http://www.apache.org/licenses/LICENSE-2.0                                 #
#                                                                            #
# Unless required by applicable law or agreed to in writing, software        #
# distributed under the License is distributed on an "AS IS" BASIS,          #
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   #
# See the License for the specific language governing permissions and        #
# limitations under the License.                                             #
#--------------------------------------------------------------------------- #

# PREMIGRATE SOURCE DST remote_system_dir vmid dsid template
#  - SOURCE is the host where the VM is running
#  - DST is the host where the VM is to be migrated
#  - remote_system_dir is the path for the VM home in the system datastore
#  - vmid is the id of the VM
#  - dsid is the target datastore
#  - template is the template of the VM in XML and base64 encoded

SRC_HOST=$1
DST_HOST=$2

DST_PATH=$3

VMID=$4
DSID=$5

TEMPLATE_64=$(cat)

#--------------------------------------------------------------------------------

if [ -z "${ONE_LOCATION}" ]; then
    TMCOMMON=/var/lib/one/remotes/tm/tm_common.sh
else
    TMCOMMON=$ONE_LOCATION/var/remotes/tm/tm_common.sh
fi

source $TMCOMMON
DRIVER_PATH=$(dirname $0)

source ${DRIVER_PATH}/../../efs_utils

efs_log_var "SRC_HOST"
efs_log_var "DST_HOST"
efs_log_var "DST_PATH"
efs_log_var "VMID"
efs_log_var "DSID"
efs_log_var "TEMPLATE_64"


XPATH="${DRIVER_PATH}/../../datastore/xpath.rb --stdin"

unset i j XPATH_ELEMENTS

while IFS= read -r -d '' element; do
        XPATH_ELEMENTS[i++]="$element"
done < <(echo ${TEMPLATE_64}| base64 -d | $XPATH  \
                    /VM/TEMPLATE/CONTEXT/AXC_VMTYPE \
                    /VM/HISTORY_RECORDS/HISTORY/SEQ )

AXC_VMTYPE="${XPATH_ELEMENTS[j++]:-efs}"
CURRENT_SEQ="${XPATH_ELEMENTS[j++]}"
SIZE="${XPATH_ELEMENTS[j++]}"
ORIGINAL_SIZE="${XPATH_ELEMENTS[j++]}"
DST_DS_ID=${DSID}
efs_log_var "CURRENT_SEQ"

PREVIOUS_SEQ=$(( ${CURRENT_SEQ}-1 ))

unset i j XPATH_ELEMENTS

while IFS= read -r -d '' element; do
        XPATH_ELEMENTS[i++]="$element"
done < <(onevm show -x $VMID| $XPATH  \
                    /VM/TEMPLATE/CONTEXT/AXC_VMTYPE \
                    /VM/TEMPLATE/GRAPHICS/TYPE \
                    /VM/TEMPLATE/GRAPHICS/PASSWD \
                    /VM/HISTORY_RECORDS/HISTORY[SEQ=${PREVIOUS_SEQ}]/DS_ID )

#                    /VM/TEMPLATE/DISK[DISK_ID=0]/SOURCE \

AXC_VMTYPE="${XPATH_ELEMENTS[j++]:-efs}"
GRAPHICS_TYPE="${XPATH_ELEMENTS[j++]}"
GRAPHICS_PASSWD="${XPATH_ELEMENTS[j++]}"
#SRC_DISK_SOURCE="${XPATH_ELEMENTS[j++]}"
SRC_DS_ID="${XPATH_ELEMENTS[j++]}"
#SIZE="${XPATH_ELEMENTS[j++]}"
#ORIGINAL_SIZE="${XPATH_ELEMENTS[j++]}"

efs_log_var "PREVIOUS_SEQ"
efs_log_var "SRC_DS_ID"
efs_log_var "GRAPHICS_TYPE"
efs_log_var "GRAPHICS_PASSWD"
#efs_log_var "SRC_DISK_SOURCE"

#--------------------------------------------------------------------------------

#if [ "$SRC_HOST" == "$DST_HOST" ]; then
#    log "Not moving $SRC_HOST to $DST_HOST, they are the same host"
#    exit 0
#fi

#--------------------------------------------------------------------------------

if [ -n "$6" ]; then
    log "Called from tm/$6 but I've nothing to do"
    exit 0
fi

#--------------------------------------------------------------------------------

DST_PATH_DIRNAME=`dirname $DST_PATH`
DST_PATH_BASENAME=`basename $DST_PATH`

SRC_PATH_DIRNAME=`dirname $DST_PATH_DIRNAME`
SRC_PATH_DIRNAME="${SRC_PATH_DIRNAME}/${SRC_DS_ID}"

SRC_FILES="$SRC_PATH_DIRNAME/$DST_PATH_BASENAME"
DST_FILES="$DST_PATH_DIRNAME/$DST_PATH_BASENAME"

efs_log_var "SRC_FILES"
efs_log_var "DST_FILES"

if [ "x$SRC_HOST" != "x$DST_HOST" ]; then
  ssh_make_path "$DST_HOST" "$DST_PATH"

  log "Moving $SRC_HOST:$DST_PATH to $DST_HOST:$DST_PATH"

  ssh_exec_and_log "$DST_HOST" "rm -rf '$DST_PATH'" \
    "Error removing target path to prevent overwrite errors"
fi
#  SRC_FILES="$SRC_PATH_DIRNAME/$DST_PATH_BASENAME"
#  DST_FILES="$DST_PATH_DIRNAME/$DST_PATH_BASENAME"

#  efs_log_var "SRC_FILES"
#  efs_log_var "DST_FILES"


TAR_SSH=$(cat <<EOF
set -e -o pipefail
mkdir -p $DST_PATH_DIRNAME
if [ "x${SRC_DS_ID}" != "x${DST_DS_ID}" ]; then
  rm -rf $DST_PATH_DIRNAME/$DST_PATH_BASENAME
  cp -a $SRC_PATH_DIRNAME/$DST_PATH_BASENAME $DST_PATH_DIRNAME/
fi
if [ "x$SRC_HOST" != "x$DST_HOST" ]; then
  $TAR -C $SRC_PATH_DIRNAME --sparse -cf - $DST_PATH_BASENAME | $SSH $DST_HOST '$TAR -C $DST_PATH_DIRNAME --sparse -xf -'
fi
EOF
)

ssh_exec_and_log "$SRC_HOST" "$TAR_SSH" "Error copying disk directory to target host"
#fi

if [ "x${SRC_DS_ID}" != "x${DST_DS_ID}" ]
then

# ------------------------------
# Migrate zfs storage
# ------------------------------

unset i j XPATH_ELEMENTS

while IFS= read -r -d '' element; do
        XPATH_ELEMENTS[i++]="$element"
done < <(onedatastore show -x $DST_DS_ID | $XPATH \
                    /DATASTORE/TEMPLATE/BRIDGE_LIST\
                    /DATASTORE/TEMPLATE/POOL_NAME\
                    /DATASTORE/TEMPLATE/ISCSI_HOST\
                    /DATASTORE/TEMPLATE/ISCSI_LUN)

DST_BRIDGE_LIST="${XPATH_ELEMENTS[j++]}"
DST_POOL_NAME="${XPATH_ELEMENTS[j++]}"
DST_ISCSI_HOST="${XPATH_ELEMENTS[j++]}"
DST_ISCSI_LUN="${XPATH_ELEMENTS[j++]}"

BRIDGE_LIST=${DST_BRIDGE_LIST}


unset i j XPATH_ELEMENTS

while IFS= read -r -d '' element; do
        XPATH_ELEMENTS[i++]="$element"
done < <(onedatastore show -x $SRC_DS_ID | $XPATH \
                    /DATASTORE/TEMPLATE/BRIDGE_LIST\
                    /DATASTORE/TEMPLATE/POOL_NAME\
                    /DATASTORE/TEMPLATE/ISCSI_HOST\
                    /DATASTORE/TEMPLATE/ISCSI_LUN)

SRC_BRIDGE_LIST="${XPATH_ELEMENTS[j++]}"
SRC_POOL_NAME="${XPATH_ELEMENTS[j++]}"
SRC_ISCSI_HOST="${XPATH_ELEMENTS[j++]}"
SRC_ISCSI_LUN="${XPATH_ELEMENTS[j++]}"

BRIDGE_LIST=${DST_BRIDGE_LIST}

SRC_DATASET="${SRC_POOL_NAME}/one/${AXC_VMTYPE}/system/${VMID}"
DST_DATASET="${DST_POOL_NAME}/one/${AXC_VMTYPE}/system"

#ONEZMIGRATOR="/usr/home/oneadmin/onemigrator"
ONEZMIGRATOR="/usr/local/bin/zmigrator"

DISK_IDS=$(/usr/local/bin/onediskids ${VMID})
SRC_DISK_SOURCE_STR=$(/usr/local/bin/onediskids ${VMID} SOURCE)
#DISK_ID="0"

ADD_ISCSI_EXPORT=$(cat <<EOF
    set -e -o pipefail
    read -r -a SRC_DISK_SOURCES <<<  "${SRC_DISK_SOURCE_STR}"
    unset j
    for DISK_ID in ${DISK_IDS}
    do
        sudo ctladd \${SRC_DISK_SOURCES[j++]}-${VMID}-\${DISK_ID} ${DST_ISCSI_LUN} /dev/zvol/${DST_POOL_NAME}/one/${AXC_VMTYPE}/system/${VMID}/\${DISK_ID}
    done
    sleep 3
    sudo service ctld reload
    sleep 3
EOF
)

DEL_ISCSI_EXPORT=$(cat <<EOF
    set -e -o pipefail
    read -r -a SRC_DISK_SOURCES <<<  "${SRC_DISK_SOURCE_STR}"
    unset j
    if [ "x${SRC_BRIDGE_LIST}" != "x${DST_BRIDGE_LIST}" ]
    then
      for DISK_ID in ${DISK_IDS}
      do
          sudo ctldel \${SRC_DISK_SOURCES[j++]}-${VMID}-\${DISK_ID} ${SRC_ISCSI_LUN}
      done
      sleep 3
      sudo service ctld reload
      sleep 15
    fi
    TS=\$(date +%Y%m%d%H%M%S)
    for DISK_ID in ${DISK_IDS}
    do
        sudo zfs rename -p ${SRC_POOL_NAME}/one/${AXC_VMTYPE}/system/${VMID}/\${DISK_ID} ${SRC_POOL_NAME}/one/to-del/\${TS}-${VMID}-system/\${DISK_ID}
    done
    sudo zfs destroy ${SRC_POOL_NAME}/one/${AXC_VMTYPE}/system/${VMID}
    sleep 5
EOF
)

VM_RESTORE=$(cat <<EOF
    virsh restore /var/tmp/one-${VMID}.state --xml /var/tmp/one-${VMID}.xml
    if [ "x${GRAPHICS_TYPE}" == "xVNC" -a "x${GRAPHICS_PASSWD}" != "x" ]
    then
        virsh qemu-monitor-command one-${VMID} --hmp --cmd "change vnc :${VMID},password"
        virsh qemu-monitor-command one-${VMID} --hmp --cmd "change vnc password ${GRAPHICS_PASSWD}"
    fi
EOF
)

efs_log_var "SRC_DISK_SOURCE_STR"
efs_log_var "ADD_ISCSI_EXPORT"
efs_log_var "DEL_ISCSI_EXPORT"
efs_log_var "SRC_DATASET"
efs_log_var "DST_DATASET"
efs_log_var "SRC_BRIDGE_LIST"
efs_log_var "DST_BRIDGE_LIST"
efs_log_var "VM_RESTORE"

ssh_exec_and_log_stdin $SRC_BRIDGE_LIST "${ONEZMIGRATOR} -v -R -M -k -s --prep-run -p ${SRC_DATASET} ${DST_BRIDGE_LIST}:${DST_DATASET}" \
                                        "Unable to do initial migration ${SRC_DATASET} to ${DST_BRIDGE_LIST}:${DST_DATASET}"
ssh_exec_and_log_stdin $SRC_HOST "virsh save one-${VMID} /var/tmp/one-${VMID}.state; virsh save-image-dumpxml /var/tmp/one-${VMID}.state | sed -e 's/$SRC_ISCSI_HOST/$DST_ISCSI_HOST/g' | sed -e 's|$SRC_FILES|$DST_FILES|g' > /var/tmp/one-${VMID}.xml" \
                                 "Unable to dump one-${VMID} vm state"
ssh_exec_and_log_stdin $SRC_BRIDGE_LIST "${ONEZMIGRATOR} -v -R -M -k -s -p ${SRC_DATASET} ${DST_BRIDGE_LIST}:${DST_DATASET}" \
                                        "Unable to do final migration ${SRC_DATASET} to ${DST_BRIDGE_LIST}:${DST_DATASET}"
ssh_exec_and_log_stdin $DST_BRIDGE_LIST "${ADD_ISCSI_EXPORT}" \
                                        "Unable to add ctl config"
#ssh_exec_and_log_stdin $SRC_HOST "virsh restore /var/tmp/one-${VMID}.state --xml /var/tmp/one-${VMID}.xml" \
#                                 "Unable to restore one-${VMID} vm"
ssh_exec_and_log_stdin $SRC_HOST "${VM_RESTORE}" \
                                 "Unable to restore one-${VMID} vm"
ssh_exec_and_log_stdin $SRC_BRIDGE_LIST "${DEL_ISCSI_EXPORT}" \
                                        "Unable to delete ctl config"
for DISK_ID in ${DISK_IDS}
do
    onedb change-body vm --id ${VMID} "/VM/TEMPLATE/DISK[DISK_ID=$DISK_ID]/ISCSI_HOST" "${DST_ISCSI_HOST}"
done


# SRC_DS_ID != DST_DS_ID
fi

migrate_other "$@"

exit 0

