The L700 does have an optional "personality" module which allows the
library to be connected to the network. You can then open a browser to this
address and see the whole library, slots, drives, i/o ports, errors.
We have it on all our L700 libraries.
Also, I've created a Perl script which uses the lbtest command to get the
list of tapes in the i/o slots. ( see below ) It may not be pretty but it
works.
I use this list in scripts to checkin offsite tapes and load/label new
scratch tapes.
Gerald Michalak
TSM - Certified V5 Administrator
==============================
lib_cap_inv.pl
==============================
#!/usr/bin/perl
# lib_cap_inv.pl
#
open (LIBV, "/usr/tivoli/tsm/devices/bin/lbtest -f lbtest.in -d /dev/lb0 -o
/tmp/lbinv.out |") || die(" * * * Library Busy !!!! ");
close (LIBV);
`rm -f /adsm_restore/lib_cap_inv`;
open (INV,"/tmp/lbinv.out");
open (CAPINV,">>/adsm_restore/lib_cap_inv");
while (<INV>)
{
$line=$_;
chop($line);
($type,$dummy,$dummy,$dummy,$slot,$stat ) = split(" ",$line);
if ( $type eq "Import" and $stat eq "FULL)" )
{
$line=<INV>;
$line=<INV>;
$line=<INV>;
chop($line);
($dummy,$dummy,$f1,$f2,$f3 ) = split(" ",$line);
print CAPINV "$f1 \n";
print " slot=".$slot." f1=".$f1." f2=".$f2." f3=".$f3."\n"
;
}
}
close (INV);
close (CAPINV);
exit;
======================
lbtest.in
======================
command open $D
command return_elem_count
command return_lib_inventory_all
command close
