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

# This script generates a report containing details of images on 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`;
$vmbin="/usr/openv/volmgr/bin";
$nbbin="/usr/openv/netbackup/bin";
$nbadmin="/usr/openv/netbackup/bin/admincmd";
$robot=$ARGV[0];

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

# Print report heading
print REPORT "          DETAILED IMAGE REPORT OF MEDIA ON $robot\n";
print REPORT "               $today2\n";
print REPORT "Backed Up       Expires     Files     KB     C  Sched Type   Class\n";
print REPORT "    Keyword  Copy  Frag  Kilobytes  Robot  Slot  MediaID  FileNum  Offset\n"; 
print REPORT "-------------------------------------------------------------------------\n";

# Print listing of all images on tapes stored in robot 
@images=`$nbbin/bpclimagelist -U -server $robot | tail +3`; 
for (@images)
{
   print REPORT "\n$_";
   @fields=split; 
   ($date,$sched,$class)=($fields[0],$fields[6],$fields[8]);
   @frags=`$nbadmin/bpimmedia -l -t $sched -class $class -d $date -e $date`;
   for (@frags)
   {
      if (/^IMAGE/)
      {
         @fields=split /\s+/, $_, 5;
         $bkup_id=$fields[3];
      }

      if (/^FRAG/)
      {
        @fields=split /\s+/, $_, 14;
        ($copy,$frag,$size,$media_id,$filenum,$offset)=($fields[1],$fields[2],$fields[3],$fields[8],$fields[7],$fields[11]);
        $keyword=`$nbadmin/bpimagelist -L -server $robot -backupid $bkup_id | grep Keyword | cut -d" " -f12,13`;
        chop($keyword);
        chop($slot=`$vmbin/vmquery -m $media_id | grep slot | cut -d" " -f14`); 
        print REPORT "   $keyword $copy $frag $size $robot $slot $media_id $filenum $offset\n";
      }
   }
}

close(REPORT);

exit;