Initial commit

Temp SD Config/bacula-sd.conf

@@ -0,0 +1,76 @@
+Storage {                             # definition of myself
+  Name = temp-iron-sd
+  SDPort = 9103                  # Director's port
+  WorkingDirectory = "/var/lib/bacula"
+  Pid Directory = "/run/bacula"
+  Plugin Directory = "/usr/lib/bacula"
+  Maximum Concurrent Jobs = 20
+  SDAddress = 10.85.3.39
+}
+ 
+Director { # Director who is allowed to contact us
+  Name     = bacula-dir
+  Password = "iamnotacrook"
+}
+
+Autochanger {
+  Name = "Iron-Autochanger"
+  Device = LTO-3
+  Changer Device = /dev/sg3
+  Changer Command = "/etc/bacula/scripts/mtx-changer %c %o %S %a %d"
+}
+
+Device {
+	Name = LTO-3
+	Media Type = LTO-3
+	Archive Device = /dev/nst0
+	AutomaticMount = yes;               # when device opened, read it
+	AlwaysOpen = yes;
+	RemovableMedia = yes;
+	RandomAccess = no;
+	Maximum File Size = 4GB
+	#Changer Command = "/opt/bacula/scripts/mtx-changer %c %o %S %a %d"
+	Changer Command = "/etc/bacula/scripts/mtx-changer %c %o %S %a %d"
+	Changer Device = /dev/sg3
+	AutoChanger = yes
+	# Enable the Alert command only if you have the mtx package loaded
+		Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+	# If you have smartctl, enable this, it has more info than tapeinfo 
+	# Alert Command = "sh -c 'smartctl -H -l error %c'"  
+}
+
+
+#
+# A Linux or Solaris LTO-3 tape drive
+#
+#Device {
+#  Name = LTO-3
+#  Media Type = LTO-3
+#  Archive Device = /dev/nst0
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes;
+#  RemovableMedia = yes;
+#  RandomAccess = no;
+#  Maximum File Size = 4GB
+# Changer Command = "/etc/bacula/scripts/mtx-changer %c %o %S %a %d"
+# Changer Device = /dev/sg0
+# AutoChanger = yes
+#  #
+#  # New alert command in Bacula 9.0.0
+#  #  Note: you must have the sg3_utils (rpms) or the
+#  #        sg3-utils (deb) installed on your system.
+#  #        and you must set the correct control device that
+#  #        corresponds to the Archive Device
+#  Control Device = /dev/sg??  # must be SCSI ctl for /dev/nst0
+#  Alert Command = "/etc/bacula/scripts/tapealert %l"
+#
+#  # Enable the Alert command only if you have the mtx package loaded
+## Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+## If you have smartctl, enable this, it has more info than tapeinfo
+## Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+ 
+Messages {
+  Name     = Standard
+  director = bacula-dir = all
+}

Temp SD Config/bacula-sd.conf.sample

@@ -0,0 +1,335 @@
+#
+# Default Bacula Storage Daemon Configuration file
+#
+#  For Bacula release 9.4.2 (04 February 2019) -- ubuntu 20.04
+#
+# You may need to change the name of your tape drive
+#   on the "Archive Device" directive in the Device
+#   resource.  If you change the Name and/or the
+#   "Media Type" in the Device resource, please ensure
+#   that dird.conf has corresponding changes.
+#
+#
+# Copyright (C) 2000-2017 Kern Sibbald
+# License: BSD 2-Clause; see file LICENSE-FOSS
+#
+
+Storage {                             # definition of myself
+  Name = temp-iron-sd
+  SDPort = 9103                  # Director's port
+  WorkingDirectory = "/var/lib/bacula"
+  Pid Directory = "/run/bacula"
+  Plugin Directory = "/usr/lib/bacula"
+  Maximum Concurrent Jobs = 20
+  SDAddress = 127.0.0.1
+}
+
+#
+# List Directors who are permitted to contact Storage daemon
+#
+Director {
+  Name = temp-iron-dir
+  Password = "dA5Tbqzqo4hPGJAEFvy7zD7wGdQZe6HVn"
+}
+
+#
+# Restricted Director, used by tray-monitor to get the
+#   status of the storage daemon
+#
+Director {
+  Name = temp-iron-mon
+  Password = "4MvmdJSLRuIGy90YEe2LZNKDg-M42S8I6"
+  Monitor = yes
+}
+
+#
+# Note, for a list of additional Device templates please
+#  see the directory <bacula-source>/examples/devices
+# Or follow the following link:
+#  http://www.bacula.org/git/cgit.cgi/bacula/tree/bacula/examples/devices?h=Branch-7.4
+#
+
+#
+# Devices supported by this Storage daemon
+# To connect, the Director's bacula-dir.conf must have the
+#  same Name and MediaType.
+#
+
+#
+# Define a Virtual autochanger
+#
+Autochanger {
+  Name = FileChgr1
+  Device = FileChgr1-Dev1, FileChgr1-Dev2
+  Changer Command = ""
+  Changer Device = /dev/null
+}
+
+Device {
+  Name = FileChgr1-Dev1
+  Media Type = File1
+  Archive Device = /nonexistant/path/to/file/archive/dir
+  LabelMedia = yes;                   # lets Bacula label unlabeled media
+  Random Access = Yes;
+  AutomaticMount = yes;               # when device opened, read it
+  RemovableMedia = no;
+  AlwaysOpen = no;
+  Maximum Concurrent Jobs = 5
+}
+
+Device {
+  Name = FileChgr1-Dev2
+  Media Type = File1
+  Archive Device = /nonexistant/path/to/file/archive/dir
+  LabelMedia = yes;                   # lets Bacula label unlabeled media
+  Random Access = Yes;
+  AutomaticMount = yes;               # when device opened, read it
+  RemovableMedia = no;
+  AlwaysOpen = no;
+  Maximum Concurrent Jobs = 5
+}
+
+#
+# Define a second Virtual autochanger
+#
+Autochanger {
+  Name = FileChgr2
+  Device = FileChgr2-Dev1, FileChgr2-Dev2
+  Changer Command = ""
+  Changer Device = /dev/null
+}
+
+Device {
+  Name = FileChgr2-Dev1
+  Media Type = File2
+  Archive Device = /nonexistant/path/to/file/archive/dir
+  LabelMedia = yes;                   # lets Bacula label unlabeled media
+  Random Access = Yes;
+  AutomaticMount = yes;               # when device opened, read it
+  RemovableMedia = no;
+  AlwaysOpen = no;
+  Maximum Concurrent Jobs = 5
+}
+
+Device {
+  Name = FileChgr2-Dev2
+  Media Type = File2
+  Archive Device = /nonexistant/path/to/file/archive/dir
+  LabelMedia = yes;                   # lets Bacula label unlabeled media
+  Random Access = Yes;
+  AutomaticMount = yes;               # when device opened, read it
+  RemovableMedia = no;
+  AlwaysOpen = no;
+  Maximum Concurrent Jobs = 5
+}
+
+
+
+#
+# An autochanger device with two drives
+#
+#Autochanger {
+#  Name = Autochanger
+#  Device = Drive-1
+#  Device = Drive-2
+#  Changer Command = "/etc/bacula/scripts/mtx-changer %c %o %S %a %d"
+#  Changer Device = /dev/sg0
+#}
+
+#Device {
+#  Name = Drive-1                      #
+#  Drive Index = 0
+#  Media Type = DLT-8000
+#  Archive Device = /dev/nst0
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes;
+#  RemovableMedia = yes;
+#  RandomAccess = no;
+#  AutoChanger = yes
+#  #
+#  # New alert command in Bacula 9.0.0
+#  #  Note: you must have the sg3_utils (rpms) or the
+#  #        sg3-utils (deb) installed on your system.
+#  #        and you must set the correct control device that
+#  #        corresponds to the Archive Device
+#  Control Device = /dev/sg?? # must be SCSI ctl for /dev/nst0
+#  Alert Command = "/etc/bacula/scripts/tapealert %l"
+#
+#  #
+#  # Enable the Alert command only if you have the mtx package loaded
+#  # Note, apparently on some systems, tapeinfo resets the SCSI controller
+#  #  thus if you turn this on, make sure it does not reset your SCSI
+#  #  controller.  I have never had any problems, and smartctl does
+#  #  not seem to cause such problems.
+#  #
+#  Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+#  If you have smartctl, enable this, it has more info than tapeinfo
+#  Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+
+#Device {
+#  Name = Drive-2                      #
+#  Drive Index = 1
+#  Media Type = DLT-8000
+#  Archive Device = /dev/nst1
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes;
+#  RemovableMedia = yes;
+#  RandomAccess = no;
+#  AutoChanger = yes
+#  # Enable the Alert command only if you have the mtx package loaded
+#  Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+#  If you have smartctl, enable this, it has more info than tapeinfo
+#  Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+
+#
+# A Linux or Solaris LTO-2 tape drive
+#
+#Device {
+#  Name = LTO-2
+#  Media Type = LTO-2
+#  Archive Device = /dev/nst0
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes;
+#  RemovableMedia = yes;
+#  RandomAccess = no;
+#  Maximum File Size = 3GB
+## Changer Command = "/etc/bacula/scripts/mtx-changer %c %o %S %a %d"
+## Changer Device = /dev/sg0
+## AutoChanger = yes
+#  # Enable the Alert command only if you have the mtx package loaded
+## Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+## If you have smartctl, enable this, it has more info than tapeinfo
+## Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+
+#
+# A Linux or Solaris LTO-3 tape drive
+#
+#Device {
+#  Name = LTO-3
+#  Media Type = LTO-3
+#  Archive Device = /dev/nst0
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes;
+#  RemovableMedia = yes;
+#  RandomAccess = no;
+#  Maximum File Size = 4GB
+# Changer Command = "/etc/bacula/scripts/mtx-changer %c %o %S %a %d"
+# Changer Device = /dev/sg0
+# AutoChanger = yes
+#  #
+#  # New alert command in Bacula 9.0.0
+#  #  Note: you must have the sg3_utils (rpms) or the
+#  #        sg3-utils (deb) installed on your system.
+#  #        and you must set the correct control device that
+#  #        corresponds to the Archive Device
+#  Control Device = /dev/sg??  # must be SCSI ctl for /dev/nst0
+#  Alert Command = "/etc/bacula/scripts/tapealert %l"
+#
+#  # Enable the Alert command only if you have the mtx package loaded
+## Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+## If you have smartctl, enable this, it has more info than tapeinfo
+## Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+
+#
+# A Linux or Solaris LTO-4 tape drive
+#
+#Device {
+#  Name = LTO-4
+#  Media Type = LTO-4
+#  Archive Device = /dev/nst0
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes;
+#  RemovableMedia = yes;
+#  RandomAccess = no;
+#  Maximum File Size = 5GB
+# Changer Command = "/etc/bacula/scripts/mtx-changer %c %o %S %a %d"
+# Changer Device = /dev/sg0
+# AutoChanger = yes
+#  #
+#  # New alert command in Bacula 9.0.0
+#  #  Note: you must have the sg3_utils (rpms) or the
+#  #        sg3-utils (deb) installed on your system.
+#  #        and you must set the correct control device that
+#  #        corresponds to the Archive Device
+#  Control Device = /dev/sg??  # must be SCSI ctl for /dev/nst0
+#  Alert Command = "/etc/bacula/scripts/tapealert %l"
+#
+#  # Enable the Alert command only if you have the mtx package loaded
+## Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+## If you have smartctl, enable this, it has more info than tapeinfo
+## Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+
+#
+# An HP-UX tape drive
+#
+#Device {
+#  Name = Drive-1                      #
+#  Drive Index = 0
+#  Media Type = DLT-8000
+#  Archive Device = /dev/rmt/1mnb
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes;
+#  RemovableMedia = yes;
+#  RandomAccess = no;
+#  AutoChanger = no
+#  Two EOF = yes
+#  Hardware End of Medium = no
+#  Fast Forward Space File = no
+#  #
+#  # New alert command in Bacula 9.0.0
+#  #  Note: you must have the sg3_utils (rpms) or the
+#  #        sg3-utils (deb) installed on your system.
+#  #        and you must set the correct control device that
+#  #        corresponds to the Archive Device
+#  Control Device = /dev/sg??  # must be SCSI ctl for /dev/rmt/1mnb
+#  Alert Command = "/etc/bacula/scripts/tapealert %l"
+#
+#  #
+#  # Enable the Alert command only if you have the mtx package loaded
+#  Alert Command = "sh -c 'tapeinfo -f %c |grep TapeAlert|cat'"
+#  If you have smartctl, enable this, it has more info than tapeinfo
+#  Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+
+#
+# A FreeBSD tape drive
+#
+#Device {
+#  Name = DDS-4
+#  Description = "DDS-4 for FreeBSD"
+#  Media Type = DDS-4
+#  Archive Device = /dev/nsa1
+#  AutomaticMount = yes;               # when device opened, read it
+#  AlwaysOpen = yes
+#  Offline On Unmount = no
+#  Hardware End of Medium = no
+#  BSF at EOM = yes
+#  Backward Space Record = no
+#  Fast Forward Space File = no
+#  TWO EOF = yes
+#  #
+#  # New alert command in Bacula 9.0.0
+#  #  Note: you must have the sg3_utils (rpms) or the
+#  #        sg3-utils (deb) installed on your system.
+#  #        and you must set the correct control device that
+#  #        corresponds to the Archive Device
+#  Control Device = /dev/sg??  # must be SCSI ctl for /dev/nsa1
+#  Alert Command = "/etc/bacula/scripts/tapealert %l"
+#
+#  If you have smartctl, enable this, it has more info than tapeinfo
+#  Alert Command = "sh -c 'smartctl -H -l error %c'"
+#}
+
+#
+# Send all messages to the Director,
+# mount messages also are sent to the email address
+#
+Messages {
+  Name = Standard
+  director = temp-iron-dir = all
+}

Temp SD Config/common_default_passwords

@@ -0,0 +1,12 @@
+# 
+# This file has been autogenerated during package installation and
+# holds defaults for new Bacula packages installed on this system.  It
+# is used only when you install a new Bacula package, and can be
+# safely removed at any time.
+
+DIRPASSWD=3C28A3DhJVCEoPqm8T6c5D9mmyjlZdaSf
+DIRMPASSWD=e-8O6VmwLjMITumbNEZEEiXSkiAjjf6bu
+SDPASSWD=dA5Tbqzqo4hPGJAEFvy7zD7wGdQZe6HVn
+SDMPASSWD=4MvmdJSLRuIGy90YEe2LZNKDg-M42S8I6
+FDPASSWD=aMyJeb4FOPQvCCK7CZdMB0dGm0oxWS26k
+FDMPASSWD=0-uGad5qtutFyTPlzsjmdyLDiVaR9ZuBR

Temp SD Config/scripts/btraceback.gdb

@@ -0,0 +1,33 @@
+print fail_time
+print my_name
+print exename
+print exepath
+print assert_msg
+print db_engine_name
+print version
+print host_os
+print distname
+print distver
+print host_name
+print dist_name
+show env TestName
+bt
+thread apply all bt
+f 0
+info locals
+f 1
+info locals
+f 2
+info locals
+f 3
+info locals
+f 4
+info locals
+f 5 
+info locals
+f 6
+info locals
+f 7
+info locals
+detach
+quit

Temp SD Config/scripts/disk-changer

@@ -0,0 +1,397 @@
+#!/bin/sh
+#
+# Bacula interface to virtual autoloader using disk storage
+#
+#  Written by Kern Sibbald
+#
+#   Bacula(R) - The Network Backup Solution
+#
+#   Copyright (C) 2000-2016 Kern Sibbald
+#
+#   The original author of Bacula is Kern Sibbald, with contributions
+#   from many others, a complete list can be found in the file AUTHORS.
+#
+#   You may use this file and others of this release according to the
+#   license defined in the LICENSE file, which includes the Affero General
+#   Public License, v3.0 ("AGPLv3") and some additional permissions and
+#   terms pursuant to its AGPLv3 Section 7.
+#
+#   This notice must be preserved when any source code is 
+#   conveyed and/or propagated.
+#
+#   Bacula(R) is a registered trademark of Kern Sibbald.
+#  If you set in your Device resource
+#
+#  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
+#    in come cases, not all are used. Note, the Volume name is not always
+#    included.
+#
+#  disk-changer "changer-device" "command" "slot" "archive-device" "drive-index" "volume"
+#		    $1		    $2	     $3        $4		$5	   $6
+#
+# By default the autochanger has 10 Volumes and 1 Drive.
+#
+# Note: For this script to work, you *must" specify
+#    Device Type = File 
+# in each of the Devices associated with your AutoChanger resource.
+#
+# changer-device is the name of a file that overrides the default
+#   volumes and drives.  It may have:
+#	 maxslot=n   where n is one based (default 10)
+#	 maxdrive=m  where m is zero based (default 1 -- i.e. 2 drives)
+#  
+#   This code can also simulate barcodes. You simply put
+#   a list of the slots and barcodes in the "base" directory/barcodes.
+#   See below for the base directory definition.  Example of a 
+#   barcodes file:
+#      /var/bacula/barcodes
+#      1:Vol001
+#      2:Vol002
+#      ...
+# 
+# archive-device is the name of the base directory where you want the
+#  Volumes stored appended with /drive0 for the first drive; /drive1
+#  for the second drive, ... For example, you might use
+#  /var/bacula/drive0  Note: you must not have a trailing slash, and
+#  the string (e.g. /drive0) must be unique, and it must not match
+#  any other part of the directory name. These restrictions could be
+#  easily removed by any clever script jockey.
+#
+#  Full example: disk-changer /var/bacula/conf load 1 /var/bacula/drive0 0 TestVol001
+#
+# The Volumes will be created with names slot1, slot2, slot3, ... maxslot in the
+#  base directory. In the above example the base directory is /var/bacula.
+#  However, as with tapes, their Bacula Volume names will be stored inside the
+#  Volume label. In addition to the Volumes (e.g. /var/bacula/slot1, 
+#  /var/bacula/slot3, ...) this script will create a /var/bacula/loadedn
+#  file to keep track of what Slot is loaded. You should not change this file.
+#
+# Modified 8 June 2010 to accept Volume names from the calling program as arg 6.
+#  In this case, rather than storing the data in slotn, it is stored in the
+#  Volume name.  Note: for this to work, Volume names may not include spaces.
+#
+
+wd=/var/lib/bacula
+
+#
+# log whats done
+#
+# to turn on logging, uncomment the following line
+#touch $wd/disk-changer.log
+#
+dbgfile="$wd/disk-changer.log"
+debug() {
+    if test -f $dbgfile; then
+	echo "`date +\"%Y%m%d-%H:%M:%S\"` $*" >> $dbgfile
+    fi
+}
+
+
+#
+# Create a temporary file
+#
+make_temp_file() {
+  TMPFILE=`mktemp -t mtx.XXXXXXXXXX`
+  if test x${TMPFILE} = x; then
+     TMPFILE="$wd/disk-changer.$$"
+     if test -f ${TMPFILE}; then
+	echo "Temp file security problem on: ${TMPFILE}"
+	exit 1
+     fi
+  fi
+}
+
+# check parameter count on commandline
+#
+check_parm_count() {
+    pCount=$1
+    pCountNeed=$2
+    if test $pCount -lt $pCountNeed; then
+	echo "usage: disk-changer ctl-device command [slot archive-device drive-index]"
+	echo "	Insufficient number of arguments 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
+}
+
+#
+# Strip off the final name in order to get the Directory ($dir)
+#  that we are dealing with.
+#
+get_dir() {
+   bn=`basename $device`
+   dir=`echo "$device" | sed -e s%/$bn%%g`
+   if [ ! -d $dir ]; then
+      echo "ERROR: Autochanger directory \"$dir\" does not exist."
+      echo "	   You must create it."
+      exit 1
+   fi
+}
+
+#
+# Get the Volume name from the call line, or directly from
+#  the volslotn information.
+#
+get_vol() {
+   havevol=0
+   debug "vol=$volume"
+   if test "x$volume" != x && test "x$volume" != "x*NONE*" ; then
+      debug "touching $dir/$volume"
+      touch $dir/$volume
+      echo "$volume" >$dir/volslot${slot}
+      havevol=1
+   elif [ -f $dir/volslot${slot} ]; then
+      volume=`cat $dir/volslot${slot}`
+      havevol=1
+   fi
+}
+
+
+# Setup arguments
+ctl=$1
+cmd="$2"
+slot=$3
+device=$4
+drive=$5
+volume=$6
+
+# set defaults
+maxdrive=1
+maxslot=10
+
+# Pull in conf file
+if [ -f $ctl ]; then 
+   . $ctl
+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
+	if [ $slot -gt $maxslot ]; then
+	   echo "Slot ($slot) out of range (1-$maxslot)"
+	   debug "Error: Slot ($slot) out of range (1-$maxslot)"
+	   exit 1
+	fi
+	;;
+    *)
+	check_parm_count $# 5
+	if [ $drive -gt $maxdrive ]; then
+	   echo "Drive ($drive) out of range (0-$maxdrive)"
+	   debug "Error: Drive ($drive) out of range (0-$maxdrive)"
+	   exit 1
+	fi
+	if [ $slot -gt $maxslot ]; then
+	   echo "Slot ($slot) out of range (1-$maxslot)"
+	   debug "Error: Slot ($slot) out of range (1-$maxslot)"
+	   exit 1
+	fi
+	;;
+esac
+
+
+debug "Parms: $ctl $cmd $slot $device $drive $volume $havevol"
+
+case $cmd in 
+   unload)
+      debug "Doing disk -f $ctl unload $slot $device $drive $volume"
+      get_dir
+      if [ -f $dir/loaded${drive} ]; then
+	 ld=`cat $dir/loaded${drive}`
+      else 
+	 echo "Storage Element $slot is Already Full"
+	 debug "Unload error: $dir/loaded${drive} is already unloaded"
+	 exit 1
+      fi
+      if [ $slot -eq $ld ]; then
+	 echo "0" >$dir/loaded${drive}
+	 unlink $device 2>/dev/null >/dev/null
+	 unlink ${device}.add 2>/dev/null >/dev/null
+	 rm -f ${device} ${device}.add
+      else
+	 echo "Storage Element $slot is Already Full"
+	 debug "Unload error: $dir/loaded${drive} slot=$ld is already unloaded"
+	 exit 1
+      fi
+      ;;
+
+   load)
+      debug "Doing disk $ctl load $slot $device $drive $volume"
+      get_dir
+      i=0
+      # Check if slot already in a drive
+      while [ $i -le $maxdrive ]; do
+	 if [ -f $dir/loaded${i} ]; then
+	    ld=`cat $dir/loaded${i}`
+	 else	 
+	    ld=0
+	 fi
+	 if [ $ld -eq $slot ]; then
+	    echo "Drive ${i} Full (Storage element ${ld} loaded)"
+	    debug "Load error: Cannot load Slot=${ld} in drive=$drive. Already in drive=${i}"
+	    exit 1
+	 fi
+	 i=`expr $i + 1`
+      done
+      # Check if we have a Volume name
+      get_vol
+      if [ $havevol -eq 0 ]; then
+	 # check if slot exists
+	 if [ ! -f $dir/slot${slot} ] ; then
+	    echo "source Element Address $slot is Empty"
+	    debug "Load error: source Element Address $slot is Empty"
+	    exit 1
+	 fi
+      fi
+      if [ -f $dir/loaded${drive} ]; then
+	 ld=`cat $dir/loaded${drive}`
+      else
+	 ld=0
+      fi
+      if [ $ld -ne 0 ]; then
+	 echo "Drive ${drive} Full (Storage element ${ld} loaded)"
+	 echo "Load error: Drive ${drive} Full (Storage element ${ld} loaded)"
+	 exit 1
+      fi
+      echo "0" >$dir/loaded${drive}
+      unlink $device 2>/dev/null >/dev/null
+      unlink ${device}.add 2>/dev/null >/dev/null
+      rm -f ${device} ${device}.add
+      if [ $havevol -ne 0 ]; then
+	 ln -s $dir/$volume $device
+	 ln -s $dir/${volume}.add ${device}.add
+	 rtn=$?
+      else
+	 ln -s $dir/slot${slot} $device
+	 ln -s $dir/slot${slot}.add ${device}.add
+	 rtn=$?
+      fi
+      if [ $rtn -eq 0 ]; then
+	 echo $slot >$dir/loaded${drive}
+      fi
+      exit $rtn
+      ;;
+
+   list) 
+      debug "Doing disk -f $ctl -- to list volumes"
+      get_dir 
+      if [ -f $dir/barcodes ]; then
+	 cat $dir/barcodes
+      else
+	 i=1
+	 while [ $i -le $maxslot ]; do
+	    slot=$i
+	    volume=
+	    get_vol
+	    if [ $havevol -eq 0 ]; then
+	       echo "$i:"
+	    else
+	       echo "$i:$volume"
+	    fi
+	    i=`expr $i + 1`
+	 done
+      fi
+      exit 0
+      ;;
+
+   listall) 
+      # ***FIXME*** must add new Volume stuff
+      make_temp_file
+      debug "Doing disk -f $ctl -- to list volumes"
+      get_dir 
+      if [ ! -f $dir/barcodes ]; then
+	  exit 0
+      fi
+
+      # we print drive content seen by autochanger
+      # and we also remove loaded media from the barcode list
+      i=0
+      while [ $i -le $maxdrive ]; do
+	 if [ -f $dir/loaded${i} ]; then
+	     ld=`cat $dir/loaded${i}`
+	     v=`awk -F: "/^$ld:/"' { print $2 }' $dir/barcodes`
+	     echo "D:$i:F:$ld:$v"
+	     echo "^$ld:" >> $TMPFILE
+	 fi
+	 i=`expr $i + 1`
+      done
+
+      # Empty slots are not in barcodes file
+      # When we detect a gap, we print missing rows as empty
+      # At the end, we fill the gap between the last entry and maxslot
+      grep -v -f $TMPFILE $dir/barcodes | sort -n | \
+      perl -ne 'BEGIN { $cur=1 } 
+       if (/(\d+):(.+)?/) {
+	 if ($cur == $1) { 
+	   print "S:$1:F:$2\n" 
+	 } else { 
+	   while ($cur < $1) {
+	      print "S:$cur:E\n";
+	      $cur++;
+	   }
+	 }
+	 $cur++;
+       } 
+       END { while ($cur < '"$maxslot"') { print "S:$cur:E\n"; $cur++; } } '
+
+      rm -f $TMPFILE
+      exit 0
+      ;;
+   transfer)
+      #  ***FIXME*** must add new Volume stuff
+      get_dir
+      make_temp_file
+      slotdest=$device
+      if [ -f $dir/slot{$slotdest} ]; then
+	 echo "destination Element Address $slot is Full"
+	 exit 1
+      fi
+      if [ ! -f $dir/slot${slot} ] ; then
+	 echo "source Element Address $slot is Empty"
+	 exit 1
+      fi
+
+      echo "Transfering $slot to $slotdest"
+      mv $dir/slot${slot} $dir/slot{$slotdest}
+      mv $dir/slot${slot}.add $dir/slot{$slotdest}.add
+
+      if [ -f $dir/barcodes ]; then
+	 sed "s/^$slot:/$slotdest:/" >	$TMPFILE
+	 sort -n $TMPFILE > $dir/barcodes
+      fi
+      exit 0
+      ;;
+   loaded)
+      debug "Doing disk -f $ctl $drive -- to find what is loaded"
+      get_dir
+      if [ -f $dir/loaded${drive} ]; then
+	 a=`cat $dir/loaded${drive}`
+      else
+	 a="0"
+      fi
+      debug "Loaded: drive=$drive is $a"
+      echo $a
+      exit
+      ;;
+
+   slots)
+      debug "Doing disk -f $ctl -- to get count of slots"
+      echo $maxslot
+      ;;
+esac

Temp SD Config/scripts/isworm

@@ -0,0 +1,84 @@
+#!/bin/sh
+#
+# Copyright (C) 2000-2018 Kern Sibbald
+# License: BSD 2-Clause; see file LICENSE-FOSS
+#
+# Bacula interface to get worm status of tape
+#
+#  isworm %l (control device name)
+#
+# Typical output:
+# sdparm --page=0x1D -f /dev/sg0
+#    /dev/st0: HP        Ultrium 5-SCSI    I5AW  [tape]
+# Medium configuration (SSC) mode page:
+#   WORMM       1  [cha: n, def:  1, sav:  1]
+#   WMLR        1  [cha: n, def:  1, sav:  1]
+#   WMFR        2  [cha: n, def:  2, sav:  2]
+#
+# Where WORMM is worm mode
+#       WMLR is worm mode label restrictions
+#          0 - No blocks can be overwritten
+#          1 - Some types of format labels may not be overwritten
+#          2 - All format labels can be overwritten
+#       WMFR is worm mode filemark restrictions
+#          0-1  - Reserved
+#          2    - Any number of filemarks immediately preceding EOD can be
+#                 overwritten except file mark closest to BOP (beginning of
+#                 partition).
+#          3    - Any number of filemarks immediately preceding the EOD
+#                 can be overwritten
+#          4-FF - Reserved
+#
+
+if [ x$1 = x ] ; then
+   echo "First argument missing. Must be device control name."
+   exit 1
+fi
+
+sdparm=`which sdparm`
+if [ x${sdparm} = x ] ; then
+   echo "sdparm program not found, but is required."
+   exit 0
+fi
+
+#
+# This should be the correct way to determine if the tape is WORM
+#   but it does not work for mhvtl.  Comment out the next 5 lines
+#   and the code that follows will detect correctly on mhtvl.
+#
+worm=`$sdparm --page=0x1D -f $1 |grep " *WORMM"|cut -b12-16|sed "s:^ *::"`
+if [ $? = 0 ] ; then
+   echo $worm
+   exit 0
+fi
+
+tapeinfo=`which tapeinfo`
+if [ x${tapeinfo} = x ] ; then
+   echo "tapeinfo program not found, but is required."
+   exit 1
+fi
+
+#
+# Unfortunately IBM and HP handle the Medium Type differently,
+#  so we detect the vendor and get the appropriate Worm flag.
+#
+vendor=`$tapeinfo -f $1|grep "^Vendor ID:"|cut -b13-15`
+if [ x$vendor = xHP ] ; then
+   worm=`$tapeinfo -f $1|grep "^Medium Type: 0x"|cut -b16-16`
+   echo $worm
+   exit 0
+fi
+
+if [ x$vendor = xIBM ] ; then
+   worm=`$tapeinfo -f $1|grep "^Medium Type: 0x"|cut -b17-17`
+   if [ x$worm = xc ]; then
+      echo "1"
+      exit 0
+   fi
+   if [ x$worm = xC ]; then
+      echo "1"
+      exit 0
+   fi
+fi
+echo "0"
+exit 0

Temp SD Config/scripts/mtx-changer

@@ -0,0 +1,353 @@
+#!/bin/sh
+#
+#   Bacula(R) - The Network Backup Solution
+#
+#   Copyright (C) 2000-2016 Kern Sibbald
+#
+#   The original author of Bacula is Kern Sibbald, with contributions
+#   from many others, a complete list can be found in the file AUTHORS.
+#
+#   You may use this file and others of this release according to the
+#   license defined in the LICENSE file, which includes the Affero General
+#   Public License, v3.0 ("AGPLv3") and some additional permissions and
+#   terms pursuant to its AGPLv3 Section 7.
+#
+#   This notice must be preserved when any source code is 
+#   conveyed and/or propagated.
+#
+#   Bacula(R) is a registered trademark of Kern Sibbald.
+#
+#  If you set in your Device resource
+#
+#  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
+#
+#  Many changers need an offline after the unload. Also many
+#   changers need a sleep 60 after the mtx load.
+#
+#  N.B. If you change the script, take care to return either 
+#   the mtx exit code or a 0. If the script exits with a non-zero
+#   exit code, Bacula will assume the request failed.
+#
+
+# myversion must be the same as version in mtx-changer.conf
+myversion=2
+
+# source our conf file
+if test ! -f /etc/bacula/scripts/mtx-changer.conf ; then
+  echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
+  echo "ERROR: /etc/bacula/scripts/mtx-changer.conf file not found!!!!"
+  echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
+  exit 1
+fi
+. /etc/bacula/scripts/mtx-changer.conf
+
+if test "${version}" != "${myversion}" ; then
+  echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
+  echo "ERROR: /etc/bacula/scripts/mtx-changer.conf has wrong version. Wanted ${myversion}, got ${version} !!!"
+  echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
+  exit 1
+fi
+
+MTX=/usr/sbin/mtx
+
+if test ${debug_log} -ne 0 ; then
+  touch /var/lib/bacula/mtx.log
+fi
+dbgfile="/var/lib/bacula/mtx.log"
+debug() {
+    if test -f $dbgfile -a ${debug_level} -ge $1; then
+	echo "`date +%m%d-%H:%M:%S.%N|cut -c1-16` ${chgr_id} $2" >> $dbgfile
+    fi
+}
+
+
+#
+# Create a temporary file
+#
+make_temp_file() {
+  TMPFILE=`mktemp /var/lib/bacula/mtx.XXXXXXXXXX`
+  if test x${TMPFILE} = x; then
+     TMPFILE="/var/lib/bacula/mtx.$$"
+     if test -f ${TMPFILE}; then
+	echo "ERROR: Temp file security problem on: ${TMPFILE}"
+	exit 1
+     fi
+  fi
+}
+
+#
+#  Create a temporary file for stderr
+#
+#  Note, this file is used because sometime mtx emits
+#  unexpected error messages followed by the output
+#  expected during success.
+#  So we separate STDOUT and STDERR in
+#  certain of the mtx commands. The contents of STDERR
+#  is then printed after the STDOUT produced by mtx
+#  thus we sometimes get better changer results. 
+#
+make_err_file() {
+  ERRFILE=`mktemp /var/lib/bacula/mtx.err.XXXXXXXXXX`
+  if test x${ERRFILE} = x; then
+     ERRFILE="/var/lib/bacula/mtx.err.$$"
+     if test -f ${ERRFILE}; then
+	echo "ERROR: Temp file security problem on: ${ERRFILE}"
+	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 $dbglvl "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 $dbglvl "Parms: $ctl $cmd $slot $device $drive"
+
+case $cmd in 
+   unload)
+
+      if test ${offline} -eq 1 ; then
+	mt -f $device offline
+      fi
+      if test ${offline_sleep} -ne 0 ; then
+	sleep ${offline_sleep}
+      fi
+      make_err_file
+      for i in 1 2 3 4 5 ; do
+	 debug $idbglvl "Doing mtx -f $ctl unload slot=$slot drv=$drive"
+	 ${MTX} -f $ctl unload $slot $drive 2>${ERRFILE}
+	 rtn=$?
+	 if test $rtn -eq 0 ; then
+	    break
+	 fi
+	 grep "Error Code=" ${ERRFILE} 2>/dev/null 1>/dev/null
+	 if test $? -ne 0 ; then
+	    break
+	 fi
+	 sleep $i
+      done
+      cat ${ERRFILE}
+      rm -f ${ERRFILE} >/dev/null 2>&1
+      if test $rtn -ne 0 ; then
+	 debug $idbglvl "FAIL: mtx -f $ctl unload slot=$slot drv=$drive"
+      fi
+      exit $rtn
+      ;;
+
+   load)
+      make_err_file
+      for i in 1 2 3 4 5 ; do
+	 debug $idbglvl "Doing mtx -f $ctl load slot=$slot drv=$drive"
+	 ${MTX} -f $ctl load $slot $drive 2>${ERRFILE}
+	 rtn=$?
+	 if test $rtn -eq 0 ; then
+	    break
+	 fi
+	 grep "Error Code=" ${ERRFILE} 2>/dev/null 1>/dev/null
+	 if test $? -ne 0 ; then
+	    break
+	 fi
+	 sleep $i
+      done
+      if test ${load_sleep} -ne 0 ; then
+	sleep ${load_sleep}
+      fi
+      wait_for_drive $device
+      cat ${ERRFILE}
+      rm -f ${ERRFILE} >/dev/null 2>&1
+      if test $rtn -ne 0 ; then
+	 debug $idbglvl "FAIL: mtx -f $ctl load slot=$slot drv=$drive"
+      fi
+      exit $rtn
+      ;;
+
+   list) 
+      make_temp_file
+      if test ${inventory} -ne 0 ; then
+	${MTX} -f $ctl inventory
+      fi
+      debug $dbglvl "Doing mtx -f $ctl list"
+      ${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
+      if test $rtn -ne 0 ; then
+	 debug $idbglvl "FAIL: mtx -f $ctl list"
+      fi
+      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
+ 
+      make_temp_file
+      if test ${inventory} -ne 0 ; then
+	${MTX} -f $ctl inventory
+      fi
+      debug $dbglvl "Doing mtx -f $ctl -- to list all"
+      ${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 $dbglvl "Doing transfer from $slot to $slotdest"
+      ${MTX} -f $ctl transfer $slot $slotdest
+      rtn=$?
+      if test $rtn -ne 0 ; then
+	 debug $idbglvl "FAIL: mtx -f $ctl transfer from=$slot to=$slotdest"
+      fi
+      exit $rtn
+      ;;
+
+   loaded)
+      make_temp_file
+      debug $idbglvl "Doing mtx -f $ctl $drive -- to find what is loaded"
+      ${MTX} -f $ctl status >${TMPFILE}
+      rtn=$?
+      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
+      if test $rtn -ne 0 ; then
+	 debug $idbglvl "FAIL: mtx -f $ctl loaded drv=$drive"
+      fi
+      exit $rtn
+      ;;
+
+   slots)
+      debug $dbglvl "Doing mtx -f $ctl -- to get count of slots"
+      ${MTX} -f $ctl status | grep " *Storage Changer" | awk "{print \$5}"
+      rtn=$?
+      if test $rtn -ne 0 ; then
+	 debug $idbglvl "FAIL: mtx -f $ctl slots"
+      fi
+      ;;
+esac

Temp SD Config/scripts/mtx-changer.conf

@@ -0,0 +1,89 @@
+#
+# Copyright (C) 2000-2015 Kern Sibbald
+# License: BSD 2-Clause; see file LICENSE-FOSS
+#
+#
+# This file is sourced by the mtx-changer script every time it runs.
+#   You can put your site customization here, and when you do an
+#   upgrade, the process should not modify this file.  Thus you
+#   preserve your mtx-changer configuration.
+#
+
+# We update the version when an incompatible change 
+#   to mtx-changer or this conf file is made, such as
+#   adding a new required variable.
+version=2
+
+# Set to 1 if you want to do offline before unload
+offline=0
+
+# Set to amount of time in seconds to wait after an offline
+offline_sleep=0
+
+# Set to amount of time in seconds to wait after a load
+load_sleep=0
+
+# Set to 1 to do an inventory before a status. Not normally needed. 
+inventory=0
+
+# If you have a VXA PacketLoader, it might display a different 
+#  Storage Element line, so try setting the following to 1
+vxa_packetloader=0
+
+#
+# Debug logging
+#
+
+# If you have multiple SD's, set this differently for each one
+#  so you know which message comes from which one. This can
+#  be any string, and will appear in each debug message just
+#  after the time stamp.
+chgr_id=0
+
+# Set to 1 if you want debug info written to a log
+debug_log=0
+
+# Set to debug level you want to see 
+#     0 is off 
+#    10 is important events (load, unload, loaded)
+#   100 is everything
+# Note debug_log must be set to 1 for anything to be generated
+#
+debug_level=10  
+
+# Debug levels by importance
+#  Normally you do not need to change this
+dbglvl=100
+# More important messages
+idbglvl=10
+
+#
+# mt status output
+# SunOS     No Additional Sense
+# FreeBSD   Current Driver State: at rest.
+# Linux     ONLINE
+#  Note Debian has a different mt than the standard Linux version. 
+#    When no tape is in the drive it waits 2 minutes.  
+#    When a tape is in the drive, it prints user unfriendly output.
+#  Note, with Ubuntu Gusty (8.04), there are two versions of mt,
+#    so we attempt to figure out which one.
+#
+
+OS=`uname`
+case ${OS} in
+  SunOS)
+    ready="No Additional Sense"
+    ;;
+  FreeBSD)
+    ready="Current Driver State: at rest."
+    ;;
+  Linux)
+    ready="ONLINE"
+    if test -f /etc/debian_version ; then
+       mt --version|grep "mt-st" >/dev/null 2>&1
+       if test $? -eq 1 ; then
+          ready="drive status"
+       fi
+    fi
+  ;;
+esac

Temp SD Config/scripts/tapealert

@@ -0,0 +1,68 @@
+#!/bin/sh
+#
+# Copyright (C) 2000-2016 Kern Sibbald
+# License: BSD 2-Clause; see file LICENSE-FOSS
+#
+# Bacula interface to tapeinfo to get tape alerts
+#
+#  tapealert %l (control device name)
+#  
+#  Note: you must have in your SD Device resource:
+#   Alert Command = /full-path/tapealert %l
+#   Control Device = /dev/sg0n  (where this is the scsi control
+#      device for the device you are using).
+#
+
+# Note: to test
+#  1. uncomment out the DEBUG=1 line below
+#  2. Possibly remove or add TapeAlert[nn]: that you want to test.
+#       Note, the message following the : is not used.
+#  3. Run Bacula
+#  
+#DEBUG=1
+
+tapeinfo=`which tapeinfo`
+
+if [ x${tapeinfo} = x ] ; then
+   echo "tapeinfo program not found, but is required."
+   exit 1
+fi
+if [ x$1 = x ] ; then
+   echo "First argument missing. Must be device control name."
+   exit 1
+fi
+
+
+if [ x$DEBUG = x ] ; then
+$tapeinfo -f $1 |grep "^TapeAlert" - |cut -b1-13
+exit $?
+
+else
+
+# For testing only
+cat <<EOF |grep "^TapeAlert" - |cut -b1-13
+Product Type: Tape Drive
+Vendor ID: 'IBM     '
+Product ID: 'ULTRIUM-TD6     '
+Revision: 'G350'
+Attached Changer API: No
+SerialNumber: 'F3A2930090'
+TapeAlert[3]:    Hard Error: Uncorrectable read/write error.
+TapeAlert[5]:  Read Failure: Tape faulty or tape drive broken.
+TapeAlert[39]: Undefined.
+MinBlock: 1
+MaxBlock: 8388608
+SCSI ID: 9
+SCSI LUN: 0
+Ready: yes
+BufferedMode: yes
+Medium Type: 0x58
+Density Code: 0x58
+BlockSize: 0
+DataCompEnabled: yes
+DataCompCapable: yes
+DataDeCompEnabled: yes
+CompType: 0xff
+DeCompType: 0xff 
+EOF
+fi