#!/bin/bash

# -------------------------------------------------------------------------- #
# Copyright 2002-2021, 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.                                             #
#--------------------------------------------------------------------------- #

# DELETE <host:remote_system_ds/disk.i|host:remote_system_ds/> vmid dsid
#   - host is the target host to deploy the VM
#   - remote_system_ds is the path for the system datastore in the host
#   - vmid is the id of the VM
#   - dsid is the target datastore (0 is the system datastore)

DST=$1

VMID=$2
DSID=$3

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

DRIVER_PATH=$(dirname $0)

. $TMCOMMON

#-------------------------------------------------------------------------------
# Return if deleting a disk, we will delete them when removing the
# remote_system_ds directory for the VM (remotely)
#-------------------------------------------------------------------------------
DST_PATH=`arg_path $DST`
DST_HOST=`arg_host $DST`
DST_DIR=`dirname $DST_PATH`

log "Deleting $DST_PATH"

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 $VMID | $XPATH  \
                        /VM/LCM_STATE )

LCM_STATE="${XPATH_ELEMENTS[j++]}"

delete_file=$(cat <<EOF
[ -e "$DST_PATH" ] || exit 0

times=10
function="rm -rf $DST_PATH"

count=1

ret=\$(\$function)
error=\$?

while [ \$count -lt \$times -a "\$error" != "0" ]; do
    sleep 1
    count=\$(( \$count + 1 ))
    ret=\$(\$function)
    error=\$?
done

[ "x\$error" = "x0" ]
EOF
)

SEARCH_SNAP_XML=$(cat <<EOF

SNAP_PATH=("${DST_DIR}/snap-"*.xml)
for path in "\${SNAP_PATH[@]}"; do
    if [ -e "\$path" ] && [[ "$LCM_STATE" =~ ^(34)$ ]]; then
        XML_PATH=(\$(xmllint --xpath '/domainsnapshot/domain/devices/disk/source/@file' "\$path" | grep -o 'file="[^"]*"' | sed 's/file="//;s/"//'))
        for disk_xml in "\${XML_PATH[@]}"; do
            if [ "\$disk_xml" == "$DST_PATH" ]; then
                exit 1
            fi
        done
    fi
done

EOF
)

ssh_exec_and_log $DST_HOST "$SEARCH_SNAP_XML" "Error remove disks, because $DST_PATH exists in snap.xml"


ssh_exec_and_log $DST_HOST "$delete_file" "Error deleting $DST_PATH"
