On Thu, Jun 07, 2001 at 05:52:25PM +0200, Chibois, Herve wrote:
> I'm working on a DBI::TSM driver, maybe one day ...
> rv
>
I wrote a module which, while not really DBI, has a very similar
interface. It uses the client, so it can run anywhere. Sorry, no
manual, and it's really a quick hack; but it can still be useful
to somebody else to improve on.
You use it like this (copied from some batch jobs I run):
use TSM;
$tsm = new TSM::Admin( 'user', 'pass', { debug => 0 });
$sth = $tsm->select( "select * from dbvolumes");
while ($h = $sth->fetchrow_hashref()) {
if ($h->{COPY2_NAME} eq '') {
print "\t".$h->{COPY1_NAME}." has no mirror!\n";
}
etc etc; it's very similar to DBI.
There is an attempt to return error codes in a slightly more
useful way.
Give it a try!
Bye,
Andrea
--
Andrea Campi mailto:[EMAIL PROTECTED]
I.NET S.p.A. http://www.inet.it
Direzione Tecnica - R&D phone: +39 02 32863 ext 1
v. Darwin, 85 - I-20019 fax: +39 02 32863 ext 7701
Settimo Milanese (MI), Italy
TSM.pm
