#!/bin/bash

#
# delete is run when you delete non persistent disk on a system datastore.
# Terminating VM for example
#
# Format:
#   delete <host:remote_system_ds/disk.i|host:remote_system_ds/> vmid ds_id
#
# Example:
#   delete slcv2-vmc7:/var/lib/one/datastore/192/171/disk.0 171 191
#   - remote_system_ds is the path for the system datastore in the host
#
#
#
# Parameters:
#

# DST - destination path
#   Disk:
#     HOST:/opennebula/path/DST_DS_ID/VM_ID/disk.DISK_ID
#   Directory:
#     HOST:/opennebula/path/DST_DS_ID/VM_ID
DST=$1

VM_ID=$2

# DS_ID
#   Disk:      image datastore id where source image is placed.
#   Directory: system datastore id where actual disk is placed.
DS_ID=$3

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

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

DRIVER_PATH=$(dirname $0)

source $TMCOMMON
source ${DRIVER_PATH}/../../etc/datastore/ceph/ceph.conf
source ${DRIVER_PATH}/../../datastore/libfs.sh
source ${DRIVER_PATH}/../../efs_utils

efs_log_var "DST"
efs_log_var "VM_ID"
efs_log_var "DS_ID"

#-------------------------------------------------------------------------------
# Process destination
#-------------------------------------------------------------------------------

DST_PATH=`arg_path $DST`
DST_HOST=`arg_host $DST`

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

#-------------------------------------------------------------------------------
# Delete and exit if directory
#-------------------------------------------------------------------------------

if [ `is_disk $DST_PATH` -eq 0 ]; then

    unset i j XPATH_ELEMENTS

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

    SRC="${XPATH_ELEMENTS[j++]}"
    CLONE="${XPATH_ELEMENTS[j++]}"
    BRIDGE_LIST="${XPATH_ELEMENTS[j++]}"
    POOL_NAME="${XPATH_ELEMENTS[j++]:-$POOL_NAME}"

    efs_log "*** DIRECTORY PART ***"
    efs_log_var "SRC"
    efs_log_var "CLONE"
    efs_log_var "POOL_NAME"

    unset i j XPATH_ELEMENTS
    while IFS= read -r -d '' element; do
        XPATH_ELEMENTS[i++]="$element"
    done < <(onevm show -x $VM_ID | $XPATH \
                        /VM/TEMPLATE/CONTEXT/AXC_VMTYPE)

    AXC_VMTYPE="${XPATH_ELEMENTS[j++]:-efs}"

    case "$AXC_VMTYPE" in
      aa|acr|anc|cf|efs|rb|sp|ve)
        ;;
      *)
        AXC_VMTYPE="efs"
        ;;
    esac

    DST_STORAGE=`get_destination_host $DS_ID`
    ssh_exec_and_log "$DST_STORAGE" "sudo zfs destroy ${POOL_NAME}/one/${AXC_VMTYPE}/system/${VM_ID} 2>/dev/null || exit 0" \
                 "Error deleting ${POOL_NAME}/one/${AXC_VMTYPE}/system/${VM_ID} in $DST_STORAGE"

#    # DST_HOST is a VMC
#    # clean directory with deploy xml and context iso there
#    log "Deleting $DST_PATH"
#    ssh_exec_and_log "$DST_HOST" "rm -rf $DST_PATH" "Error deleting $DST_PATH"
    exit 0
fi

#-------------------------------------------------------------------------------
# Get Image information
#-------------------------------------------------------------------------------

DISK_ID=$(echo "$DST_PATH" | $AWK -F. '{print $NF}')

# Reads the disk parameters -- taken from image datastore
unset i j XPATH_ELEMENTS
while IFS= read -r -d '' element; do
    XPATH_ELEMENTS[i++]="$element"
done < <(onevm show -x $VM_ID | $XPATH \
                    /VM/TEMPLATE/CONTEXT/AXC_VMTYPE \
                    /VM/TEMPLATE/DISK[DISK_ID=$DISK_ID]/SOURCE \
                    /VM/TEMPLATE/DISK[DISK_ID=$DISK_ID]/CLONE)

AXC_VMTYPE="${XPATH_ELEMENTS[j++]:-efs}"
SRC="${XPATH_ELEMENTS[j++]}"
CLONE="${XPATH_ELEMENTS[j++]}"

case "$AXC_VMTYPE" in
  aa|acr|anc|cf|efs|rb|sp|ve)
    ;;
  *)
    AXC_VMTYPE="efs"
    ;;
esac


SRC_IMGNUM=$(echo $SRC|awk -F: '{print $NF}')
DST_DS_ID=$(echo $DST | sed s#//*#/#g | awk -F/ '{print $(NF-2)}')

# Reads the disk parameters -- taken from the actual system datastore
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/ISCSI_BASE_IQN \
                    /DATASTORE/TEMPLATE/ISCSI_LUN \
                    /DATASTORE/TEMPLATE/POOL_NAME)

BRIDGE_LIST="${XPATH_ELEMENTS[j++]}"
ISCSI_BASE_IQN="${XPATH_ELEMENTS[j++]:-$ISCSI_BASE_IQN}"
ISCSI_LUN="${XPATH_ELEMENTS[j++]:-$ISCSI_LUN}"
POOL_NAME="${XPATH_ELEMENTS[j++]:-$POOL_NAME}"

DST_HOST=`get_destination_host $DST_DS_ID`

efs_log "*** DISK PART ***"
efs_log_var "SRC"
efs_log_var "SRC_IMGNUM"
efs_log_var "CLONE"
efs_log_var "POOL_NAME"
efs_log_var "DISK_ID"
efs_log_var "DST_HOST"

if [ "$CLONE" = "NO" ]; then
    efs_log "No need to delete no cloned images in TM"
    exit 0
fi

#if [ -n "$SRC" ]; then
#    # cloned, so the name will be "<pool>/one/system/<vmid>/<diskid>"
#else
#    # volatile
#fi

if [ -z "$SRC" ]; then
    # volatile disk
    SRC="${ISCSI_BASE_IQN}:sys"
fi


DELETE_CMD=$(cat <<EOF
    set -e -o pipefail
    sudo ctldel ${SRC}-${VM_ID}-${DISK_ID} ${ISCSI_LUN}
    sleep 1
    sudo service ctld reload
    sleep 15
    TS=\$(date +%Y%m%d%H%M%S)
#    sudo zfs rename -p ${POOL_NAME}/one/${AXC_VMTYPE}/system/${VM_ID}/${DISK_ID} ${POOL_NAME}/one/to-del/system/${VM_ID}/${DISK_ID}
    sudo zfs rename -p ${POOL_NAME}/one/${AXC_VMTYPE}/system/${VM_ID}/${DISK_ID} ${POOL_NAME}/one/to-del/\${TS}-${VM_ID}-system/${DISK_ID}
    sleep 5
EOF
)

efs_log_var "DELETE_CMD"
ssh_exec_and_log $DST_HOST "$DELETE_CMD" \
                 "Error delete $VM_ID/$DISK_ID on $DST_HOST"

exit 0
