#!/usr/bin/perl # sub htencode { local($htencd) = shift; $htencd =~ s/&/&/g; $htencd =~ s/"/"/g; $htencd =~ s//>/g; $htencd; } do "acqPATHs.pl"; $acd = $ENV{"QUERY_STRING"}; if ($acd =~ /^[a-e]$/) { $path = "$AMDBPATH/reg/$acd.gd"; } else { $path = "$AMDBPATH/grd/$acd.gd"; } print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS headdb
[ head -2   __ACD__.gd ]        
EOM $htmlbody =~ s/__ACD__/$acd/; print $htmlbody; # if (open(IN, "head -2 $path 2>&1 |")) { print "
\n";
    $line = ;
      $nc1 = substr($line,8,4); $nc2 = substr($line,12,4);
      if ($nc2 eq "    ") {
        $nc = $nc1+0;
        if (($nc<0) || ($nc>=400)) { $nc = -1; }
        elsif ($nc<200) { $nc += 800; }
        else { $nc -= 200; }
      } else { $nc = $nc2+0; }
      print "
\n"; print &htencode("#--- Ncoord = " . $nc . "\n");
    print &htencode($line);
    $line = ; print &htencode($line);
    print "
\n";
    close(IN);
  } else {
    print "\nERROR:\n";
    print " File open fail.\n";
  }
#
  print "\n\n\n";
  exit(0);