#
# Bacula interface to virtual autoloader using disk storage
#
+# Written by Kern Sibbald
+#
+# Copyright (C) 2000-2007 Free Software Foundation Europe e.V.
+#
+# The main author of Bacula is Kern Sibbald, with contributions from
+# many others, a complete list can be found in the file AUTHORS.
+# This program is Free Software; you can redistribute it and/or
+# modify it under the terms of version two of the GNU General Public
+# License as published by the Free Software Foundation, which is
+# listed in the file LICENSE.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+# 02110-1301, USA.
+#
+# Bacula® is a registered trademark of John Walker.
+# The licensor of Bacula is the Free Software Foundation Europe
+# (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich,
+# Switzerland, email:ftf@fsfeurope.org.
+#
+#
# $Id$
#
# If you set in your Device resource
#
-# Changer Command = "path-to-this-script/disk-changer" %c %o %S %a %d
+# Changer Command = "path-to-this-script/disk-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
#
dbgfile="$wd/disk-changer.log"
debug() {
- if test -e $dbgfile; then
+ if test -f $dbgfile; then
echo "`date +\"%Y%m%d-%H:%M:%S\"` $*" >> $dbgfile
fi
}
#
get_dir() {
bn=`basename $device`
- dir=`echo "$device" | sed -e s%/$bn%%g -`
+ dir=`echo "$device" | sed -e s%/$bn%%g`
+ if [ ! -d $dir ]; then
+ echo "ERROR: Autochanger directory \"$dir\" does not exist.\n"
+ echo " You must create it.\n"
+ exit 1
+ fi
}
unload)
debug "Doing disk -f $ctl unload $slot $device $drive"
get_dir
- echo "0" >$dir/loaded${drive}
- unlink $device 2>/dev/null >/dev/null
- rm -f $device
+ ld=`cat $dir/loaded${drive}`
+ if [ $slot -eq $ld ]; then
+ echo "0" >$dir/loaded${drive}
+ unlink $device 2>/dev/null >/dev/null
+ rm -f $device
+ else
+ echo "Storage Element $slot is Already Full"
+ exit 1
+ fi
;;
load)
debug "Doing disk $ctl load $slot $device $drive"
get_dir
- echo "0" >$dir/loaded${drive}
- unlink $device 2>/dev/null >/dev/null
- rm -f $device
- ln -s $dir/slot${slot} $device
- rtn=$?
- if [ $rtn -eq 0 ]; then
- echo $slot >$dir/loaded${drive}
+ if [ -f $dir/loaded${drive} ]; then
+ ld=`cat $dir/loaded${drive}`
+ else
+ ld=0
+ fi
+ if [ $ld -eq 0 ]; then
+ echo "0" >$dir/loaded${drive}
+ unlink $device 2>/dev/null >/dev/null
+ rm -f $device
+ ln -s $dir/slot${slot} $device
+ rtn=$?
+ if [ $rtn -eq 0 ]; then
+ echo $slot >$dir/loaded${drive}
+ fi
+ exit $rtn
+ else
+ echo "Drive ${drive} Full (Storage element ${ld} loaded)"
+ exit 1
fi
- exit $rtn
;;
list)