tapeunload.pl

通用SCSI设备备份/读写程序

#!/usr/bin/perl
##########################  tapeunload   ###########################
# This script uses mtx 1.2.9pre2 to unload a tape 
# based on its volume tag.  You can
# specify a slot into which the tape should go, but if you don`t, it puts the
# tape into the slot from which it was taken.  This slot number
# is returned 
# both from the standard output and as the exit value.
# A negative exit value indicates an error.
# If volume tags are missing from any full slot or drive, 
# bar codes are rescanned automatically.
# Note: This script assumes that the tape is ready to be removed from
# the drive.  That means you may have to unload the tape from the drive
# with  "mt offline" before the tape can be moved to a storage slot.
# 

# usage: 
# tapeunload TAPE_LABEL_1  
# Removes tape with label TAPE_LABEL_1 from a drive and puts it
# back into its storage slot. Or, 
# tapeunload TAPE_LABEL_1 40 
# Removes tape with label TAPE_LABEL_1 from a drive and puts it
# into its storage slot 40. 
#

# Set this variable to your mtx binary and proper scsi library device.
$MTXBIN="/usr/local/bin/mtx -f /dev/sga" ;  

# Additions and corrections are welcome.
# This software comes with absolutely no warranty and every other imaginable
# disclaimer.
#   --  Frank Samuelson [e-mail]

##################################################################

@wt= &mdo("status");  #slurp in the list of slots

# Check to be certain that every full slot has a volume tag
# Rescanning probably will not help.  I haven`t seen any bar code
# readers that read tapes that are in the drives.  But you never know...
for ($i=0; $i< $#wt; $i++) {  # look through every line
    if ( $wt[$i] =~ /Full/  && $wt[$i] !~ /VolumeTag/ ) {
        # if the element is full, but there is no volume tag, do inventory
        @wt= &mdo("inventory status");
        break;
    }
}

#try to find our tape
$drivein=-1;
for ($i=0; $i< $#wt; $i++) {  # look through every line
                              # for a full tape drive 
    if ($wt[$i] =~ / *Data Transfer Element (d*):Full (Storage Element
(d*) Loaded):VolumeTag = (.*)/ ){
        if ($ARGV[0] eq  $3) { # We found our tape
            $drivein=$1;          # set the drive number
            $slottogo=$2;       # set the slot number
            break;             # stop reading the rest of the file.
        }
    }
}

if ( $drivein>=0) {         # we found the tape you wanted.
    if ($#ARGV==1) {         #If an alternative slot was requested, set it.
        $slottogo=$ARGV[1];  # and let mtx handle the errors.
    }
    
    # Now we unload the tape.
    @dump=&mdo(" unload $slottogo $drivein ");
    print "$slottogo";
    exit($slottogo);
    # The end.

    
} else {
    print STDERR " Ug. Tape $ARGV[0] is not in a tape drive.";
    print STDERR @wt;
    exit(-4);
}


sub mdo             # a subroutine to call mtx ;
{
#    print STDERR "$_[0]";
    if (!open(FD,"$MTXBIN $_[0] |")) {    #call mtx function 
        print STDERR " ERRKK.  Could not start mtx ";
        exit (-9);
    }

    @twt= <FD>;        # slurp in the output

    if (! close(FD)) {        # if mtx exited with a nonzero value...
        print STDERR " Mtx gave an error. Tapeload is exiting... ";
        exit (-10);
    }

    @twt;
}