X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=bacula%2Fscripts%2Fmtx-changer.in;h=ca5c5481ff1c71504e869c2e49e58a1587459a07;hb=9088cfd03ff08b98e6850ec75e9e0d12c4efca48;hp=3760cae748cabe9ab6d82a183e4245c15f636e00;hpb=b064d71a5cd1ac87cc1af710a8e5772377865064;p=bacula%2Fbacula diff --git a/bacula/scripts/mtx-changer.in b/bacula/scripts/mtx-changer.in index 3760cae748..ca5c5481ff 100644 --- a/bacula/scripts/mtx-changer.in +++ b/bacula/scripts/mtx-changer.in @@ -2,19 +2,38 @@ # # Bacula interface to mtx autoloader # -# $Id$ -# # If you set in your Device resource # -# Changer Command = "path-to-this-script/mtx-changer" %c %o %S %a %d +# Changer Command = "path-to-this-script/mtx-changer %c %o %S %a %d" # you will have the following input to this script: # +# So Bacula will always call with all the following arguments, even though +# in come cases, not all are used. +# # mtx-changer "changer-device" "command" "slot" "archive-device" "drive-index" # $1 $2 $3 $4 $5 # # for example: # # mtx-changer /dev/sg0 load 1 /dev/nst0 0 (on a Linux system) +# +# will request to load the first cartidge into drive 0, where +# the SCSI control channel is /dev/sg0, and the read/write device +# is /dev/nst0. +# +# The commands are: +# Command Function +# unload unload a given slot +# load load a given slot +# loaded which slot is loaded? +# list list Volume names (requires barcode reader) +# slots how many slots total? +# listall list all info +# transfer +# +# Slots are numbered from 1 ... +# Drives are numbered from 0 ... +# # # If you need to an offline, refer to the drive as $4 # e.g. mt -f $4 offline @@ -27,91 +46,213 @@ # exit code, Bacula will assume the request failed. # -MTX=@MTX@ - -if test $# -lt 2 ; then - echo "usage: mtx-changer ctl-device command slot archive-device drive" - echo " Insufficient number of arguments arguments given." - echo " Mimimum usage is first two arguments ..." +# source our conf file +if test ! -f @scriptdir@/mtx-changer.conf ; then + echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" + echo "ERROR: @scriptdir@/mtx-changer.conf file not found!!!!" + echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" exit 1 fi +. @scriptdir@/mtx-changer.conf -# Setup arguments -ctl=$1 -cmd="$2" -slot=$3 -device=$4 -# If drive not given, default to 0 -if test $# = 5 ; then - drive=$5 -else - drive=0 +MTX=@MTX@ + +if test ${debug_log} -ne 0 ; then + touch @working_dir@/mtx.log fi +dbgfile="@working_dir@/mtx.log" +debug() { + if test -f $dbgfile; then + echo "`date +\"%Y%m%d-%H:%M:%S\"` $*" >> $dbgfile + fi +} + # -# Check for special cases where only 2 arguments are needed, -# all others are a minimum of 3 -case $cmd in - loaded) - ;; - unload) - ;; - list) - ;; - slots) - ;; - *) - if test $# -lt 3; then - echo "usage: mtx-changer ctl-device command slot archive-device drive" - echo " Insufficient number of arguments arguments given." - echo " Mimimum usage is first three arguments ..." +# Create a temporary file +# +make_temp_file() { + TMPFILE=`mktemp @working_dir@/mtx.XXXXXXXXXX` + if test x${TMPFILE} = x; then + TMPFILE="@working_dir@/mtx.$$" + if test -f ${TMPFILE}; then + echo "ERROR: Temp file security problem on: ${TMPFILE}" exit 1 fi - ;; + fi +} + +# +# The purpose of this function to wait a maximum +# time for the drive. It will +# return as soon as the drive is ready, or after +# waiting a maximum of 300 seconds. +# Note, this is very system dependent, so if you are +# not running on Linux, you will probably need to +# re-write it, or at least change the grep target. +# We've attempted to get the appropriate OS grep targets +# in the code at the top of this script. +# +wait_for_drive() { + i=0 + while [ $i -le 300 ]; do # Wait max 300 seconds + if mt -f $1 status 2>&1 | grep "${ready}" >/dev/null 2>&1; then + break + fi + debug "Device $1 - not ready, retrying..." + sleep 1 + i=`expr $i + 1` + done +} + +# check parameter count on commandline +# +check_parm_count() { + pCount=$1 + pCountNeed=$2 + if test $pCount -lt $pCountNeed; then + echo "ERROR: usage: mtx-changer ctl-device command [slot archive-device drive-index]" + echo " Insufficient number of arguments given." + if test $pCount -lt 2; then + echo " Mimimum usage is first two arguments ..." + else + echo " Command expected $pCountNeed arguments" + fi + exit 1 + fi +} + +# Check for special cases where only 2 arguments are needed, +# all others are a minimum of 5 +# +case $2 in + list|listall) + check_parm_count $# 2 + ;; + slots) + check_parm_count $# 2 + ;; + transfer) + check_parm_count $# 4 + ;; + *) + check_parm_count $# 5 + ;; esac +# Setup arguments +ctl=$1 +cmd="$2" +slot=$3 +device=$4 +drive=$5 + +debug "Parms: $ctl $cmd $slot $device $drive" + case $cmd in unload) -# echo "Doing mtx -f $ctl unload $slot $drive" -# -# enable the following line if you need to eject the cartridge -# mt -f $device offline - if test x$slot = x; then - ${MTX} -f $ctl unload - else - ${MTX} -f $ctl unload $slot $drive + debug "Doing mtx -f $ctl unload $slot $drive" + + if test ${offline} -eq 1 ; then + mt -f $device offline + fi + if test ${offline_sleep} -ne 0 ; then + sleep ${offline_sleep} fi + ${MTX} -f $ctl unload $slot $drive ;; load) -# echo "Doing mtx -f $ctl load $slot $drive" + debug "Doing mtx -f $ctl load $slot $drive" ${MTX} -f $ctl load $slot $drive rtn=$? -# -# Increase the sleep time if you have a slow device - sleep 15 + if test ${load_sleep} -ne 0 ; then + sleep ${load_sleep} + fi + wait_for_drive $device exit $rtn ;; list) -# echo "Requested list" - ${MTX} -f $ctl status | grep " *Storage Element [0-9]*:.*Full" | awk "{print \$3 \$4}" | sed "s/Full *\(:VolumeTag=\)*//" -# Comment out the previous line and add a line here -# to print "fake" barcodes. + debug "Doing mtx -f $ctl -- to list volumes" + make_temp_file + if test ${inventory} -ne 0 ; then + ${MTX} -f $ctl inventory + fi + ${MTX} -f $ctl status >${TMPFILE} + rtn=$? + if test ${vxa_packetloader} -ne 0 ; then + cat ${TMPFILE} | grep " *Storage Element [0-9]*:.*Full" | sed "s/ Storage Element //" | sed "s/Full :VolumeTag=//" + else + cat ${TMPFILE} | grep " Storage Element [0-9]*:.*Full" | awk "{print \$3 \$4}" | sed "s/Full *\(:VolumeTag=\)*//" + fi + cat ${TMPFILE} | grep "^Data Transfer Element [0-9]*:Full (Storage Element [0-9]" | awk '{printf "%s:%s\n",$7,$10}' + rm -f ${TMPFILE} >/dev/null 2>&1 + exit $rtn + ;; + + listall) +# Drive content: D:Drive num:F:Slot loaded:Volume Name +# D:0:F:2:vol2 or D:Drive num:E +# D:1:F:42:vol42 +# D:3:E +# +# Slot content: +# S:1:F:vol1 S:Slot num:F:Volume Name +# S:2:E or S:Slot num:E +# S:3:F:vol4 +# +# Import/Export tray slots: +# I:10:F:vol10 I:Slot num:F:Volume Name +# I:11:E or I:Slot num:E +# I:12:F:vol40 + + debug "Doing mtx -f $ctl -- to list all" + make_temp_file + if test ${inventory} -ne 0 ; then + ${MTX} -f $ctl inventory + fi + ${MTX} -f $ctl status >${TMPFILE} + rtn=$? + # can be converted to awk+sed+cut, see below + perl -ne ' +/Data Transfer Element (\d+):Empty/ && print "D:$1:E\n"; +/Data Transfer Element (\d+):Full \(Storage Element (\d+) Loaded\)(:VolumeTag =\s*(.+))?/ && print "D:$1:F:$2:$4\n"; +/Storage Element (\d+):Empty/ && print "S:$1:E\n"; +/Storage Element (\d+):Full( :VolumeTag=(.+))?/ && print "S:$1:F:$3\n"; +/Storage Element (\d+) IMPORT.EXPORT:Empty/ && print "I:$1:E\n"; +/Storage Element (\d+) IMPORT.EXPORT:Full( :VolumeTag=(.+))?/ && print "I:$1:F:$3\n";' ${TMPFILE} + # If perl isn't installed, you can use by those commands +#cat ${TMPFILE} | grep "Data Transfer Element" | awk "{print \"D:\"\$4 \$7 \$9 \$10}" | sed "s/=/:/" | sed "s/Full/F:/" | sed "s/Empty/E/" +#cat ${TMPFILE} | grep -v "Data Transfer Element" | grep "Storage Element" | grep -v "IMPORT/EXPORT" | awk "{print \"S:\"\$3 \$4 \$5}" | sed "s/IMPORT\/EXPORT//" | sed "s/Full *:VolumeTag=/F:/" | sed "s/Empty/E/" +#cat ${TMPFILE} | grep -v "Data Transfer Element" | grep "Storage Element" | grep "IMPORT/EXPORT" | awk "{print \"I:\"\$3 \$4 \$5}" | sed "s/IMPORT\/EXPORT//" | sed "s/Full *:VolumeTag=/F:/" | sed "s/Empty/E/" + + rm -f ${TMPFILE} >/dev/null 2>&1 + exit $rtn + ;; + + transfer) + slotdest=$device + debug "Doing transfer from $slot to $slotdest" + ${MTX} -f $ctl transfer $slot $slotdest + rtn=$? + exit $rtn ;; loaded) - ${MTX} -f $ctl status >/tmp/mtx.$$ + debug "Doing mtx -f $ctl $drive -- to find what is loaded" + make_temp_file + ${MTX} -f $ctl status >${TMPFILE} rtn=$? - cat /tmp/mtx.$$ | grep "^Data Transfer Element $drive:Full" | awk "{print \$7}" - cat /tmp/mtx.$$ | grep "^Data Transfer Element $drive:Empty" | awk "{print 0}" - rm -f /tmp/mtx.$$ + cat ${TMPFILE} | grep "^Data Transfer Element $drive:Full" | awk "{print \$7}" + cat ${TMPFILE} | grep "^Data Transfer Element $drive:Empty" | awk "{print 0}" + rm -f ${TMPFILE} >/dev/null 2>&1 exit $rtn ;; slots) -# echo "Request slots" + debug "Doing mtx -f $ctl -- to get count of slots" ${MTX} -f $ctl status | grep " *Storage Changer" | awk "{print \$5}" ;; esac