#! /usr/bin/perl -w

## brings up thumbnail images and quality info for 96m mags


$j = $ARGV[0];

$date = `date +%Y.%m.%d`;
$end = `time_index -d in=$date`;
$tai = `time_index -t day=$j`;
$tai2 = substr($tai,0,10);
chomp($end);
while ( $j <= $end ) {
  print "\nDay $j\n";
  $image = "/synoptic/mag_images/fd_M." . $tai2 . ".gif";
  $qfile = "/soidata/info/mdi_log/lev1.5/fd_M_96m_01d/00" . $j . ".record.rdb";
  if ( -e $qfile ) {
    `column QUALITY < $qfile > /tmp/jeneen.quality`; 
  } else {
    unlink "/tmp/jeneen.quality";
    unlink "/tmp/jeneen.quality2";
    print "No Data Found\n";
    $j++;
    next;
  }
#  system ("xv -geometry +10+10 -wait 20 $image &");
  open ( IN, "/tmp/jeneen.quality" );
  $i = 0;
  while ( <IN> ) {
    if ( $_ =~ "0x" ) {
      chomp($_);
      $j{$i} = $_;
      $i++;
    }
  }
  close IN;
  $input = "0";
  while ( $input =~ /[\d+ a]/ ) {
    print "Enter the image number [0-14]\n";
#    print "'a' for all quality info\n";
    print "'n' for the next day\n";
    print "'r' to redisplay the image\n";
    print "'q' to quit:  ";
    chomp($input = <STDIN>);
    system("clear");
    if ( $input =~ /\d+/ ) {
      $quality = $j{$input};
      `decode $quality > /tmp/jeneen.quality2`;
      print "\nDay $j Image #$input:\n";
      system ("cat /tmp/jeneen.quality2");
      print "\n";
    } elsif ( $input eq "a" ) {
      print "Day $j\n";
      $k = 0;
      while ( $k <= 14 ) {
        print "#$k\n ";
        $quality = $j{$k};
        system ("dq $quality > /tmp/jeneen.quality2");
        system ("cat /tmp/jeneen.quality2");
        $k++;
      }
      print "\n";
    } elsif ( $input eq "n" ) {
      $j++;
    } elsif ( $input eq "r" ) {
#      system ("xv -geometry +10+10 -wait 60 $image &");
    } elsif ( $input eq "q" ) {
      exit;
    }
  }
  $l = 0;
  while ($l <= 14 ) {
    $j{$l} = "";
    $l++
  }
}