#!/bin/bash

# -------------------------------------------------------------------------- #
# Copyright 2002-2019, OpenNebula Project (OpenNebula.org), C12G Labs        #
#                                                                            #
# 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.                                             #
#--------------------------------------------------------------------------- #

# snap_create host:parent_image snap_id vmid ds_id

SRC=$1
SNAP_ID=$2
VM_ID=$3
DS_ID=$4

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

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/vmm/kvm/kvmrc

source ${DRIVER_PATH}/../../datastore/libfs.sh
source ${DRIVER_PATH}/../../efs_utils


efs_log_var "SRC"
efs_log_var "SNAP_ID"
efs_log_var "VM_ID"
efs_log_var "DS_ID"

#-------------------------------------------------------------------------------
# Set dst path and dir
#-------------------------------------------------------------------------------

SRC_HOST=`arg_host $SRC`
SRC_PATH=`arg_path $SRC`

efs_log_var "SRC_HOST"
efs_log_var "SRC_PATH"

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

DISK_ID=$(echo "$SRC_PATH" | $AWK -F. '{print $NF}')
DST_DS_ID=$(echo "$SRC_PATH" | sed s#//*#/#g | awk -F/ '{print $(NF-2)}')

efs_log_var "DISK_ID"
efs_log_var "DST_DS_ID"

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

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/DEPLOY_ID \
                    /VM/TEMPLATE/DISK[DISK_ID=$DISK_ID]/SOURCE \
                    /VM/TEMPLATE/DISK[DISK_ID=$DISK_ID]/CLONE )

AXC_VMTYPE="${XPATH_ELEMENTS[j++]:-efs}"
DEPLOY_ID="${XPATH_ELEMENTS[j++]}"
ISCSI_SRC="${XPATH_ELEMENTS[j++]}"
CLONE="${XPATH_ELEMENTS[j++]}"
IMG_ID=$(echo $ISCSI_SRC | awk -F':' '{ print $2 }')

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

efs_log_var "AXC_VMTYPE"
efs_log_var "DEPLOY_ID"
efs_log_var "ISCSI_SRC"
efs_log_var "CLONE"
efs_log_var "IMG_ID"


#-------------------------------------------------------------------------------
# Get DST Datastore information
#-------------------------------------------------------------------------------

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)

DST_BRIDGE_LIST="${XPATH_ELEMENTS[j++]}"
DST_POOL_NAME="${XPATH_ELEMENTS[j++]}"
BRIDGE_LIST="${DST_BRIDGE_LIST}"
DST_HOST=`get_destination_host $DST_DS_ID`


DATASET="none"

if [ "$CLONE" = "NO" ]; then
    DATASET="${DST_POOL_NAME}/one/${IMG_ID}"
else
    DATASET="${DST_POOL_NAME}/one/${AXC_VMTYPE}/system/${VM_ID}/${DISK_ID}"
fi

efs_log_var "DATASET"
#exit 1


#-------------------------------------------------------------------------------
# Delete snapshots (stored in the current volume)
#-------------------------------------------------------------------------------

SNAP_DELETE_CMD=$(cat <<EOF
    set -e -o pipefail
    sudo zfs destroy ${DATASET}@${SNAP_ID}

#    if virsh -c $LIBVIRT_URI domfsfreeze $DEPLOY_ID ; then
#        trap "virsh -c $LIBVIRT_URI domfsthaw $DEPLOY_ID" EXIT TERM INT HUP
#    fi

EOF
)

efs_log_var "$SNAP_DELETE_CMD"

ssh_exec_and_log_stdin "$DST_HOST" "$SNAP_DELETE_CMD" \
                 "Error deleting snapshot $DST_HOST:${DATASET}@${SNAP_ID}"

exit 0
