#! /usr/local/bin/perl 
#
#
## IPAC/ISOPHOT -- pht_objects 

  $hdr = "/proj/tools/solaris/import/bin/imheader";
  $here = `pwd`;
  chop ($here);
  @lines = `find . -print`;
  @lines = grep (/fit$|fits$/i, @lines);
  @pht = grep (/pper|p1er|p2er|pser/i, @lines);

  if (@pht > 0) {
     print (" ========================================================================================================================\n");
     print ("    Target_name  | AOT | P.I.     | Proposal | OSN | OLP      | Full path name of a detected ERD file \n");
     print (" ----------------|-----|----------|----------|-----|----------|----------------------------------------------------------\n");

    $n = 0;
    foreach $pht (@pht) {
    chop ($pht);
    $fname = $here . substr ($pht, 1);
    @imhdr = `$hdr $fname`;
    $dirname = `dirname $fname`;

    @pi  = grep (/OBSERVER\b/, @imhdr);
    @aot = grep (/EOHAAOTN\b/, @imhdr);
    @obj = grep (/OBJECT\b/,   @imhdr);
    @prop= grep (/EOHAPLID\b/, @imhdr);
    @osn = grep (/EOHAOSN\b/,  @imhdr);
    @olp = grep (/OLPVERS\b/,  @imhdr);

    if (@pi < 1) {
     $pi = "none found";
    } 
    elsif (@aot < 1) {
     @aot = "none found";
    }
    elsif (@obj < 1) {
     @obj = "none found";
    }
    elsif (@prop < 1) {
     @prop = "none found";
    }
    elsif (@osn < 1) {
     @osn = "none found";
    }
    elsif (@olp < 1) {
     @olp = "none found";
    }
    else {
     @words = split (/\'/, $pi[0]);
     $pi    = $words[1];
     @words = split (/\'/, $aot[0]);
     $aot   = $words[1];
     @words = split (/\'/, $obj[0]);
     $object= $words[1];
     @words = split (/\'/, $prop[0]);
     $prop  = $words[1];
     @words = split (/\'/, $osn[0]);
     $osn   = $words[1];
     @words = split (/\'/, $olp[0]);
     $olp   = $words[1];
    }
#    printf ("%17.15s|%5.3s|%10.8s|%10.8s|%5.3s|%10.8s|%s ", $object, $aot, $pi, $prop, $osn, $olp, $dirname);
     printf ("%17.15s|%5.3s|%10.8s|%10.8s|%5.3s|%10.8s|%s\n", $object, $aot, $pi, $prop, $osn, $olp, $fname);
     if ($n == 5) 
     {
	printf ("\n");
	$n = 0;
     }
     $n = $n + 1;
   }
  }