#!/usr/bin/ksh
###############################################################################
#
#       Module:         tape_nbu_delete.sh
#       Author:         Peter R. Schmidt
#       Description:    Delete a tape from the Veritas pool of usable tapes
#
#       Change Log
#
#         Date    Name               Description.................
#       09/25/00  Peter R. Schmidt   Start Program 
#
###############################################################################

PATH=$PATH:/usr/openv/volmgr/bin
export PATH

while true
do
	echo
	echo "enter tape id to delete"
	read TAPEID
	
	CNT=`vmquery -m $TAPEID 2>&1 | grep "volume does not exist in database" | wc -l`
	
	if [ $CNT = 1 ]
	then
		echo
		echo "Error: that tape id is not in the Veritas media database."
		echo "Please enter a valid tape id."
		continue
	fi

	break
done

POOL=`vmquery -m $TAPEID | grep "volume pool:" | cut -d"(" -f2 | cut -d")" -f1`

if test "x$POOL" = "x"
then
	echo "Error: problem encountered trying to get pool number."
	exit 1
fi

vmquery -deassignbyid $TAPEID $POOL 0

if [ $? != 0 ]
then
	echo "Error: problem encountered trying to un-assign media"
	exit 1
fi

vmdelete -m $TAPEID

if [ $? != 0 ]
then
	echo "Error: problem encountered trying to delete media"
	exit 1
fi

echo
echo "Completed"