#!/usr/bin/perl # sub htencode { local($htencd) = shift; $htencd =~ s/&/&/g; $htencd =~ s/"/"/g; $htencd =~ s//>/g; $htencd; } do "acqPATHs.pl"; $str = $ENV{"QUERY_STRING"}; ($dir, $fnm, $np, $mp) = split(/\+/, $str); if ($dir ne "") { $dir .= "/"; } $path = "$DATAPATH/$dir$fnm"; print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS defgp
[ header inf.   __DFN__ ]        
EOM $htmlbody =~ s/__DFN__/$dir$fnm/; if ($mp == 0) { $mp = $np; } $rstr = sprintf("P%02d", $mp); $htmlbody =~ s/___0___/$rstr/; for ($i=1; $i<7; $i++) { $pstr = "___" . $i . "___"; $rstr = sprintf("P%02d", $np++); $htmlbody =~ s/$pstr/$rstr/; } print $htmlbody; # if (-f $path) { if (open(IN, "< $path")) { $line = ; while ($line =~ /^#/) { $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"; $_ = $line; @pars = split; $xs = $pars[0] / 1000.; $ys = $pars[1] / 1000.; printf("\n"); 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"); 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"); printf("\n"); } # print "\n\n\n"; exit(0);