AMXS refresh

#!/usr/bin/perl # sub htencode { local($htencd) = shift; $htencd =~ s/&/&/g; $htencd =~ s/"/"/g; $htencd =~ s//>/g; $htencd; } use CGI; do "acqPATHs.pl"; $qform = CGI->new; $Prog = $qform->param("Prog"); $Qidno = $qform->param("Qidno"); $Action = $qform->param("Action"); $Count = $qform->param("Count"); $Pid = $qform->param("ProcID"); if ($Pid eq "0") { $SPID = 0; } else { if (kill(0,$Pid)) { $SPID = 1; } else { $SPID = 2; } } print "Content-type: text/html; charset=iso-8859-1\n\n"; # if ($SPID == 2) { # process completed ######## #------- Prog. execution completed ------- $htmlbody =< AMXS refresh Prog. __PROG__ (QID: __QIDNO__) completed. (__COUNT__s)

[ All outputs from __PROG__ (QID: __QIDNO__) ] EOM #------- $htmlbody =~ s/__PROG__/$Prog/g; $htmlbody =~ s/__QIDNO__/$Qidno/g; $htmlbody =~ s/__COUNT__/$Count/g; print $htmlbody; if (open(IN, "< $HTMLPATH/fout/out.$Qidno")) { print "

";
      while ($line=) { print &htencode($line); }
      close(IN);
      print "

\n"; } else { print "
ERROR:\n"; print "out.$Qidno (IN) file open fail

\n"; } print "\n\n\n"; ######## } else { ######## if ($Action eq "Refresh") { #======= Still running, Going to refresh inf. ======== if ($SPID == 0) { #------- Process ID not given yet $htmlbody =< AMXS refresh

Prog. __PROG__ (QID: __QIDNO__) running. (__COUNT__s)

[ Last 20 output lines from __PROG__ (QID: __QIDNO__) ] EOM #------- } else { #------- Process ID already given $htmlbody =< AMXS refresh Prog. __PROG__ (QID: __QIDNO__) running. (__COUNT__s)

[ Last 20 output lines from __PROG__ (QID: __QIDNO__) ] EOM #------- } #======= } else { #======= Aborted, Going to refresh inf. ======== $htmlbody =< AMXS aborting Prog. __PROG__ (QID: __QIDNO__) ABORT requested. (__COUNT__s)

[ Last 20 output lines from __PROG__ (QID: __QIDNO__) ] EOM #======= } $htmlbody =~ s/__PROG__/$Prog/g; $htmlbody =~ s/__QIDNO__/$Qidno/g; $htmlbody =~ s/__COUNT__/$Count/g; $htmlbody =~ s/__PID__/$Pid/g; print $htmlbody; if (open(IN, "tail -20 $HTMLPATH/fout/out.$Qidno 2>&1 |")) { print "

";
      while ($line=) { print &htencode($line); }
      close(IN);
      print "

\n"; } else { print "
ERROR:\n"; print "out.$Qidno (IN) file open fail\n"; } print "\n\n\n"; ######## } exit(0);