#!/usr/bin/perl # use File::Temp qw/tempfile/; { do "acqPATHs.pl"; $str = $ENV{"QUERY_STRING"}; ($dir, $fnm, $spec, $ncc, $np, $mp, $axs, $ayw, $axn, $aye, $ams) = split(/\+/, $str); if ($mp eq "1") { $ams = "-1"; } if ($dir ne "") { $dir .= "/"; } $path = "$DATAPATH/$dir$fnm"; # $err = 0; if (-f $path) { if (open(IN, "bin/darea $ncc $spec $path |")) { $_ = ; if (/^OK/) { $_ = ; ($ixs, $iys, $xsz, $ysz) = split; $sz = ($xsz > $ysz) ? $xsz/360: $ysz/360; $fs = 1; while ($sz > 50) { $fs *= 10; $sz /= 10; } if ($sz <= 10) { $sd = $fs*10; } elsif ($sz <= 20) { $sd = $fs*20; } elsif ($sz <= 25) { $sd = $fs*25; } else { $sd = $fs*50; } $xm = $ixs + $xsz/2; $xm = int($xm/$sd) * $sd; $xl = $xm - $sd*200; $ym = $iys + $ysz/2; $ym = int($ym/$sd) * $sd; $yl = $ym - $sd*200; close(IN); #----------------------------------------------------------------------------- # Remove temporary file "$HTMLPATH/fout/AMXS.*.png" older than 1H. @files = glob("$HTMLPATH/fout/AMXS.*.png"); $now = time(); foreach $f(@files) { if (($now-(stat($f))[9]) > 3600) { unlink $f; } } #----------------------------------------------------------------------------- # Generate a temporary file "$HTMLPATH/fout/AMXS.XXXXXX.png". #----------------------------------------------------------------------------- ($fh, $file) = tempfile("AMXS.XXXXXX", SUFFIX=>'.png', DIR=>"$HTMLPATH/fout"); binmode($fh); $name = substr($file,length("$HTMLPATH/fout/")); #----------------------------------------------------------------------------- # ######################################################## # # Generate PNG image (stdout) from Grid-data ($path) # # # ( mktpng ncc frm spec infile [outfile] ) # # # ( (ncc) nc[:iorg:korg] (frm) llx:lly:msz # # # ( (spec) ift:igr[:llu:p1:p2] # # ######################################################## if (open(IN, "bin/mktpng $ncc $xl:$yl:$sd $spec $path |")) { binmode(IN); $len = sysread(IN,$buf,80); if (substr($buf,1,3) ne "PNG") { $err = 1; $msg = "***** $buf"; } else { while ($len) { $lout = syswrite($fh,$buf,$len); if (defined($lout)) { $len = sysread(IN,$buf,1024); unless (defined($len)) { $len = 0; $err = 1; $msg = "SYSREAD fail"; } } else { $len = 0; $err = 1; $msg = "SYSWRITE fail"; } } } close(IN); } else { $err = 1; $msg = "setgpr.cgi: mktpng start fail."; } close($fh); } else { close(IN); $err = 1; $msg = $_; } } else { $err = 1; $msg = "setgpr.cgi: darea start fail."; } } else { $err = 1; $msg = "setgpr.cgi: $path not found."; } if ($err == 1) { print "Content-type: text/html; charset=iso-8859-1\n\n"; #### $htmlbody =< AMXS setgpr
ERROR:        
__MESG__
EOM #### $htmlbody =~ s/__MESG__/$msg/; print $htmlbody; } else { print "Content-type: text/html; charset=iso-8859-1\n\n"; #### $htmlbody =< AMXS setgpr
(Using Canvas API) Drag mouse along the desired diagonal, then the parameters are set automatically.   If acceptable, click "OK" button.
The parameters can be adjusted by arrow or by dragging corner/side of the area.


EOM #### for ($i=1; $i<7; $i++) { $pstr = "___" . $i . "___"; $rstr = sprintf("P%02d", $np++); $htmlbody =~ s/$pstr/$rstr/g; } $htmlbody =~ s/__KRNG__/$mp/; $htmlbody =~ s/__TFN__/$name/g; $htmlbody =~ s/__NCC__/$ncc/; $htmlbody =~ s/__LLX__/$xl/; $htmlbody =~ s/__LLY__/$yl/; $htmlbody =~ s/__MSZ__/$sd/; $htmlbody =~ s/__GPXS__/$axs/; $htmlbody =~ s/__GPYW__/$ayw/; $htmlbody =~ s/__GPXN__/$axn/; $htmlbody =~ s/__GPYE__/$aye/; $htmlbody =~ s/__GPMS__/$ams/; print $htmlbody; } }