#!/opt/openv/perl/bin/perl  -w

use strict;
use NBUX;
use Data::Dumper;
my %images = bpimagelist();
my %status;
my $id;

foreach my $key (sort keys %images) {


  my  $client = $images{$key}->{'client'};
  my $sched_type =  $images{$key}->{'schedule_type'};
  my $sched_name =  $images{$key}->{'sched_label'};
  my $policy =  $images{$key}->{'policy'};
  my $kb = $images{$key}->{'kbytes'};

  if (grep "copy\_[0-9]\_frag\_[0-9]\_id",  $images{$key}) {
  $id = $images{$key}->{$_};
  }

if ( ! exists ( $status{$client}{'policy'}{$policy} )) {
push  @{$status{$client}{'policy'}} , $policy ;
  }

if ( ! exists( $status{$client}{'tapes'}{$id} )) {
push @{$status{$client}{'tapes'}} , $id ;
  }
}

print Dumper(\%status);