sourcecode
JSchmitz
<code>
#!/usr/bin/perl -w
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/sbin:/usr/openv/netbackup/bin:/usr/openv/netbackup/bin/admincmd';
$ENV{'SHELL'} = '/bin/sh' if $ENV{'SHELL'} ne '';
$ENV{'IFS'} = '' if $ENV{'IFS'} ne '';
use Getopt::Std;
use POSIX 'uname';
(undef, $Hostname, undef, undef, undef) = uname;
($::opt_t) = (); #avoid warning message
getopts('t:');
$::SAFile = $::opt_t;
if (! "$SAFile" ) {
$FF = "24";
} else {
$FF = "$SAFile";
}
print "\nINFO: Processing NetBackup logs for last $FF hours...\n\n";
# List Netbackup Master and Media servers:
#
open(XYZ,"bpgetconfig |") || die "Cannot run bpgetconfig report\n";
print "NetBackup Master/Media server:\n";
while (<XYZ>) {
print " $_" if grep(/^SERVER |^SERVER=/, $_);
}
# List Netbackup Master and Media servers:
#
open(VVV,"< /usr/openv/netbackup/version") || die "Cannot list NetBackup version report\n";
print "NetBackup Version:\n";
while (<VVV>) {
print " $_";
}
close XYZ;
close VVV;
print "\n ImageID MediaID Fragment DriveIdx Written Speed_Written\n";
print "----------------------------------------------------------------------------------------------------\n\n";
open(FROM,"bperror -hoursago $FF | awk '/begin|wrote/ && ! /awk/ {print}'|") || die "Cannot open bperror data";
while (<FROM>) {
chomp;
if (grep(/begin/, $_)) {
undef $Line;
undef $ImageID;
undef @Image;
undef @Frag;
undef $DriveIndex;
undef $Fragment;
undef $MediaID;
@Keyspaces = split(/,/, $_);
@Image = split(/\s+/, $Keyspaces[0]);
$ImageID = $Image[$NF - 1];
@Drive = split(/\s+/, $Keyspaces[$NF - 1]);
$DriveIndex = $Drive[$NF - 1];
@Media = split(/\s+/, $Keyspaces[3]);
$MediaID = $Media[4];
@Frag = split(/\s+/, $Keyspaces[2]);
$Fragment = $Frag[$NF - 1];
$Line = sprintf ("%25s %8s %5s %5s", $ImageID, $MediaID, $Fragment, $DriveIndex);
}
if (grep(/wrote/, $_)) {
undef $ImageID2;
undef $KB_Written;
undef $Speed_Written;
@Kspaces = split(/,/, $_);
@Image2 = split(/\s+/, $Kspaces[0]);
$ImageID2 = $Image2[$NF - 1];
@Frag = split(/\s+/, $Kspaces[2]);
$Fragment2 = $Frag[$NF - 1];
if ("$ImageID2" == "$ImageID") {
if ("$Fragment2" == "$Fragment") {
@Written = split(/\s+/, $Kspaces[3]);
$KB_Written = "$Written[1] $Written[2]";
$Speed_Written = "$Written[$NF -2] $Written[$NF - 1]";
$Line2 = sprintf("%-20s %15s", $KB_Written, $Speed_Written);
print "$Line $Line2\n";
}
} else {
# print "\n ERROR: Missing \"begin writing\" line for $ImageID2\n";
;
}
}
}
close(FROM);
exit(0);
</code>
Shows you Netbackup Version, OS version - prints out the bp.conf settings and shows you have fast the tapes drives have written the last backups to tape.
Utility
JefferySchmitz@mac.com