OK, a few of you nice people expressed an interest in my perl script, so
here it is attached.
First, the disclaimer: I won't guarantee it will work for you, although I
don't think there is anything specific to my installation. For the record,
my installation consists of TSM 3.7.3 on AIX 4.3.3 on an F50 with 4 cpus
and 1GB RAM, with an ATL P3000 library with 8 DLT7000 drives.
The script does not issue any commands that will change your server in any
way; it does issue several select commands to collect the volume
information. You may need to change the line in the "adsm" subroutine that
issues the command... it specifies "-id=admin -pa=admin". You need to code
an admin id and password that exist on your TSM server.
You will need Perl version 5 to run the script. It may work on version 4,
but I haven't tested it.
There are two ways to use the script. The first way is to install the
script in the cgi-bin directory of a web server machine. That machine must
also be a TSM client so it can issue TSM admin commands. In my shop, it is
on the TSM server itself, which also runs Apache web server. You also need
to install the "qadsm2.css" file in the "htdocs" directory of the same
machine. The script will work without qadsm2.css, but the table may not be
nicely formatted. Using this method, (make sure the script is
executable... you may need to issue "chmod +x qtapet.pl"), just point your
browser (preferably IE 5 or higher) to "http://yournode/qtapet.pl";. If you
have a lot of tapes, it may take a while to load. We have almost 1000
tapes, and it takes about 10 seconds to load.
The second method is to run the script on the command line, but redirect
the output (>) to a file. For example, "qtapet.pl > tapes.html". You can
then open the file tapes.html in a browser on the local machine, or store
the file in the htdocs directory of a webserver. Note that this method
will not use the css formatting (unless you also install the qadsm2.css
file on the web server where you save the html file).
In either case, you will probably notice there are many links on the
resulting HTML page... they will not work for you. They refer to some
other perl scripts I have that drill down for more info. I may make those
available someday, if there is any interest. This script is really just a
small part of a much larger set of scripts I've developed over the last 18
months.
Anyway, let me know how it goes. I haven't given these out to any other
sites yet, so I expect there may be some minor problems, but I will make an
attempt to correct them, as time allows.
(See attached file: qtapet.pl)(See attached file: qadsm2.css)
Good Luck!
Robin Sharpe
Berlex Laboratories
qtapet.pl
qadsm2.css
