#!/usr/bin/perl # do "acqPATHs.pl"; $str = $ENV{"QUERY_STRING"}; ($Prog, $Qidno) = split(/\+/, $str); print "Content-type: text/html; charset=iso-8859-1\n\n"; # $htmlbody =< AMXS complete
Prog. __PROG__ (QID: __QIDNO__) completed.

Confirm output from the program execution in above frame,
then press  OK  button (at the bottom in above frame) to continue.

EOM #------- $htmlbody =~ s/__PROG__/$Prog/; $htmlbody =~ s/__QIDNO__/$Qidno/; print $htmlbody; # unless (unlink("$HTMLPATH/fout/out.$Qidno")) { print "out.$Qidno file remove fail
\n"; } unless (unlink("$HTMLPATH/fout/pin.$Qidno")) { print STDERR "pin.$Qidno file remove fail\n"; } # print "\n\n"; exit(0);