Gerald,
That's a cool script... I've never quite gotten that interface working in
batch. The only thing I would worry about is what if TSM tries to open
the library while the script has it open? Will it go offline? I guess
having it in a script would be less exposure than an interactive run (of
lbtest) since it runs at CPU speed.
BTW, our L700 (we have two actually, one here in NJ and one in CA) is
really an HP 20/700, so it doesn't need the dongle for the web interface to
work. Not sure if there are any functional differences, as I've never used
the real StorageTek web page. We went to StorageTek when we wanted to
upgrade from DLT to LTO and HP could/would not do it. So it's not purple,
but beige.
Regards,
Robin Sharpe
Berlex Labs
Gerald Michalak
<[EMAIL PROTECTED]
COM> To
Sent by: "ADSM: ADSM-L@VM.MARIST.EDU
Dist Stor cc
Manager"
<[EMAIL PROTECTED] Subject
.EDU> Re: Detect whether L700 tape
library unavailable
08/17/2006 03:37
PM
Please respond to
"ADSM: Dist Stor
Manager"
<[EMAIL PROTECTED]
.EDU>
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
