To the extent that we had a number of major weekend backup failures, and I wrote a script to check and correct for it using PERL on windows.
1) Ensure that the path to netbackup and volume manager binaries are defined
2) I use blat.exe, co-located with the script to send a warning email
3) Schedule the script to run every 30minutes to an hour during the backup window
#!perl -w
#use strict;
# This script uses NetBackup command line tools to check the following:
# 1) That the SCRATCH pool is defined, sending an email if this changes.
# Define some variables
my $ADMIN = 'XXXXXXXXX@YYYYY.COM';
my $SUBJECT = "SCRATCH Pool Issue";
my $EMM_HOST = "MASTER-SERVER-NAME";
my $SCRATCH_POOL = "SCRATCH";
my $FOUND_SCRATCH = 0;
# Is the SCRATCH pool still active?
open VMPOOL, "vmpool -h $EMM_HOST -list_scratch|" or die "Cannot read from VMPOOL: $!";
while (<VMPOOL>) {
# Clean up raw data (line feeds, leading and trailing spaces)
chomp ;
s/^\s+// ;
s/\s+$// ;
# If line begins with the name of the pool, the scratch pool is configured
$FOUND_SCRATCH = 1 if $_ =~ /^($SCRATCH_POOL)/ ;
}
close VMPOOL;
# Did we find the scratch pool?
$SUBJECT = "NetBackup: SCRATCH Pool Issue";
if ($FOUND_SCRATCH == 0) {
# Attempt to set the scratch pool
system "vmpool -h $EMM_HOST -set_scratch $SCRATCH_POOL";
# Email the admin team and let them know
open(MAIL,"|blat.exe - -to \"$ADMIN\" -s \"$SUBJECT\"");
print MAIL "An issue was deteced with the SCRATCH pool. I have attempted to fix it. Please check as soon as possible.\n\n\tPerl Script on Master Server.";
close MAIL;
}
