#!/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 defgpdb
[ head -2   __ACD__.gd ]        
EOM $htmlbody =~ s/__ACD__/$acd/; print $htmlbody; # if (-f $path) { 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 &htencode("#--- Ncoord = " . $nc . "\n");
      print &htencode($line);
      $line = ; print &htencode($line);
      print "
\n"; $_ = $line; @pars = split; $xs = $pars[0] / 1000.; $ys = $pars[1] / 1000.; printf("\n", $xs); printf("\n", $ys); printf("\n"); printf("\n"); printf("\n"); printf("\n"); close(IN); } else { print "\nERROR:\n"; print " File open fail.\n"; printf("\n"); printf("\n"); printf("\n"); printf("\n"); printf("\n"); printf("\n"); printf("\n"); } } else { print "\nERROR:\n"; print " File not found.\n"; printf("\n"); printf("\n"); printf("\n"); printf("\n"); printf("\n"); printf("\n"); printf("\n"); } # print "
\n\n\n"; exit(0);