#!/usr/bin/perl # do "acqPATHs.pl"; $str = $ENV{"QUERY_STRING"}; ($Pid, $Prog, $Qidno, $Count) = split(/\+/, $str); print "Content-type: text/html; charset=iso-8859-1\n\n"; # if (kill(9,$Pid)) { #------- Execution Aborted ------- $htmlbody =< AMXS execution ($Pid) aborted
Prog.(__PID__) __PROG__ (QID: __QIDNO__) Aborted (__COUNT__s) EOM #------- } else { #------- Execution Abort Fail ------- $htmlbody =< AMXS abort FAIL
ERROR: Prog.(__PID__) __PROG__ (QID: __QIDNO__) Abort Fail (__COUNT__s) EOM #------- } $htmlbody =~ s/__PID__/$Pid/g; $htmlbody =~ s/__PROG__/$Prog/g; $htmlbody =~ s/__QIDNO__/$Qidno/g; $htmlbody =~ s/__COUNT__/$Count/g; print $htmlbody; exit(0);