#!/usr/local/bin/perl

require "/afs/unc/proj/wwwc-f95/lib/cgi-lib.pl";

print "200 ok\n";
print "content-type: text/plain\n\n";


 if (&ReadParse(*input)) {
     $1 = $input{'procid'};
     print "Process $1 to be killed.\n";
      } else {
        print "Error in submitting procid for process $1 \n";
 }

$B = `kill -9 $1`;
#$C =  `ps -auxw | grep $1`;
#if (length($C)>0) {
#} else {
#}
#print "C=$C\n";
print "Verify process killed.\n";


