#!/bin/csh -f
#
# written by Kevin Inscoe (kevin@inscoe.org)
#
# November 1, 1998
#

#
# Define global variables
#

setenv DSMSERV_DIR /usr/lpp/adsmserv/bin
setenv DSMSERV_CONFIG /usr/lpp/adsmserv/bin/dsmserv.opt
setenv DSM_DIR /usr/lpp/adsm/bin
setenv DSMI_DIR /usr/lpp/adsm/bin

#
# set up logfile
#

set dtmp = `date '+%H%M%S'`
set tmp = /tmp/checkin_$dtmp.tmp

#
# Clear the screen
#

/usr/bin/clear

#
# Ask for tapeuser password
#

#/bin/printf "Enter the tapepool password: "
#set tu_pass = $<

#
# label platters
#

/bin/echo "Starting the dsmlabel program...please wait..."
/usr/lpp/adsmserv/bin/dsmlabel -library=/dev/lb0 -drive=/dev/rop0,1 -drive=/dev/rop1,2 -drive=/dev/rop2,3 -drive=/dev/rop3,4 -keep | /usr/bin/tee $tmp
#/usr/lpp/adsmserv/bin/dsmlabel -library=/dev/lb0 -drive=/dev/rop0,1 -drive=/dev/rop1,2 -drive=/dev/rop2,3 -keep | /usr/bin/tee $tmp
@ ret = $status

#
# Catalog and load it into ADSM and the jukebox
#

if ( $ret == 0 ) then
	/usr/bin/dsmadmc -id=tapepool -pa=dummy checkin libvol archlib0 search=yes status=scratch
else
	/bin/echo "*** ERROR *** - An error has occured - contact Open Systems Group and tell them the error was:"
	/bin/echo "dsmadmc return code =" $ret
	/bin/cat $tmp
endif

#
# exit
#

/bin/printf "Press enter to return"
set dummy = $<
if ( -f $tmp ) /bin/rm -f $tmp
exit