#!/usr/local/bin/perl -w

use strict;

my $volmgr_path = "/usr/openv/volmgr/bin";
my @recommended = `$volmgr_path/vmcheckxxx -rt tld -rn 0 -recommendcmd`;
chomp(@recommended);
for(@recommended) {
   next if $_ =~ /^\#/;
   print"$_\n";
   system "$_";
}
print"All done\n";

-----Original Message-----
From: Colin Haffenden <colinhaffenden AT hotmail DOT com>
To: veritas-bu AT mailman.eng.auburn DOT edu <veritas-bu AT mailman.eng.auburn 
DOT edu>
Date: Tuesday, June 05, 2001 6:09 AM
Subject: [Veritas-bu] Inventory Robot Script


>Hi,
>
>Does anybody know how to get the volume databse in NetBackup to update as
>soon as the tapes are entered into the libary?
>
>The problem I am having is that every week I have to go into NetBackup and
>update the inventory.
>
>I don't mind doing this but when I am away it doesn't get done so I end up
>using all my scratch tapes.
>
>
>Is there a script about that can do this?
>
>Thanks for any help in advance,
>
>Colin.
>_________________________________________________________________________
>Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
>
>_______________________________________________
>Veritas-bu maillist  -  Veritas-bu AT mailman.eng.auburn DOT edu
>http://mailman.eng.auburn.edu/mailman/listinfo/veritas-bu