Extract of my perl script doing this:

sub CheckoutCPDLT
{
        system ("dsmadmc -id=$login -pa=$passwd -outfile=$tmp1 q vol
stgpool=cplto acc=reado,readw");
        print "\n";
        open(LDSM,"$tmp1") || exec @dsm_command;
        $nbcpdlt=0;
        while ($lline=<LDSM>)
        {
                #print $line;
                if ($lline =~ /CPLTO/)
                {
                        #print "$lline\n";
                        ($volname,$stgpool)= split(/ /,$lline);
                        $username =~ s/\s*//;
                        chop($username);
                        $nbcpdlt = $nbcpdlt + 1;
                        print "Check OUT CPDLT : Volume -$volname-\n";
                        $cmd = "dsmadmc -id=$login -pa=$passwd checkout libv
stkl700 $volname checklabel=no remove=bulk";
                        #print "$cmd\n";
                        system ($cmd);
                        $cmd = "dsmadmc -id=$login -pa=$passwd update vol
$volname acc=offsite";
                        system ($cmd);
                        if ( ($nbcpdlt % 20) == 0 )
                        {
                        system ("echo Please checkout tapes from the
cabinet");
                        system ("pause");
                        }

                        
                }
        } 
        close(LDSM);
        system ("del $tmp1");
}

Salutations / Best Regards 
g GE Medical Systems 
___________________________________________ 
Eric Boireau Global Systems 
Server Architect / Technology & Infrastructure Team

GE Medical Systems S.A 
283, rue de la Minière 
78533 BUC Cedex France 
Tél: (33) 1 30 70 39 32, DC: 8*644 3932 
Fax: (33) 1 30 70 39 30, DC: 8*644 3930 
mailto:Eric.Boireau AT med.ge DOT com 


-----Original Message-----
From: Ben Chuang [mailto:bchuang AT CHUANG DOT ORG] 
Sent: Monday, March 24, 2003 10:40 PM
To: ADSM-L AT VM.MARIST DOT EDU
Subject: STK 9310 Eject Script


I'm looking to see if anybody has written a script that they could share
that fixes the issue with having to reply to automatic ejects when using a
STK 9310 with TSM. Every time tapes are ejected, TSM expects a reply so it
knows that the tapes have actually been removed. This is fine for manual
checkouts, but I'd like to automate the replies when automatically ejecting
tapes. Rather than reinvent the wheel, I figured I see if anybody had
written a script that they could share with me.

I contacted Tivoli about this "feature" and they say that they have no plans
on changing the way this works.