#!/usr/local/bin/perl

# This script generates a report containing details of full tapes in a  
# specific robot.

die "Usage: full_tape_details <robot name>\n" if ($#ARGV == -1);

# Set variables
$today1=`date +%m%d%y`;
$today2=`date`;
$nbbin="/usr/openv/netbackup/bin/admincmd";
$vmbin="/usr/openv/volmgr/bin";
$robot=$ARGV[0];
$robot_num=`$nbbin/bpstulist | grep $robot | cut -d" " -f5 | sort -u`;

open(AVAIL_MEDIA,"/usr/openv/netbackup/reports/avail_media");
open(REPORT,">/usr/openv/netbackup/reports/${robot}_full_details.$today1");

# Store media id, slot number and status of all full tapes in robot
while (<AVAIL_MEDIA>)
{
   next if !/^[A-Z,0-9]{6}/; 
   @fields=split;
   if ($fields[2] eq "TLD" && $fields[8] eq "FULL" && $fields[3] == $robot_num)
   {
     $media_info{$fields[0]}=[ $fields[4], $fields[8] ];
   }
}

# Print report heading
print REPORT "          DETAILED REPORT OF FULL MEDIA ON $robot\n";
print REPORT "               $today2\n";
print REPORT "Media Id    Slot Number   Volume Pool      Status      Expiration Date\n";
print REPORT "   ImageID  Class  Schedule  Copy  Fragment  Kilobytes  BackupDate  Keyword\n";
print REPORT "---------------------------------------------------------------------------\n";

# Print the following information for each full tape in robot:
# Media id, slot location in robot, volume pool, status and expiration date
foreach $media (keys %media_info)
{
   chop($pool=`$vmbin/vmquery -m $media | grep "volume pool" | cut -d" " -f13`);
   chop($expire=`$nbbin/bpmedialist -L -ev $media | grep expiration | cut -d" " -f3,4`);
   printf REPORT "%-15s%-11s%-17s%-12s%s\n",$media,$media_info{$media}[0],$pool,$media_info{$media}[1],$expire;

   # For each image on tape list: backup id, copy #, fragment #, kilobytes 
   # of data, backup class, backup type, # of files and keyword (if applicable) 
   @images=`$nbbin/bpimmedia -l -mediaid $media`;
   for (@images) 
   { 
      if (/^IMAGE/) 
      { 
         @fields=split /\s+/, $_, 8;
         ($id,$class,$type)=($fields[3],$fields[4],$fields[6]);
      }

      if (/^FRAG/)
      {
         @fields=split /\s+/, $_, 14;
         next if ($fields[8] ne $media);
         ($copy,$frag,$size,$time)=($fields[1],$fields[2],$fields[3],$fields[12]);
         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($time);
         chop($keyword=`$nbbin/bpimagelist -L -server $robot -backupid $id | grep Keyword | cut -d" " -f12,13`);
         print REPORT "   $id $class $type $copy $frag $size $mon/$mday/$year $keyword\n";
      }
   }
}

close(AVAIL_MEDIA);
close(REPORT);

exit;