proc/killtail.cgi

   1 #!/usr/local/bin/perl
   2
   3 require './proc-lib.pl';
   4 &ReadParse();
   5 $idfile = "$module_config_directory/$in{'id'}.tail";
   6 open(IDFILE, $idfile) || exit;
   7 chop($pid = <IDFILE>);
   8 close(IDFILE);
   9 $pid || exit;
  10 kill('HUP', $pid);
  11 sleep(2);
  12 kill('KILL', $pid);
  13 unlink($idfile);
  14 print "Content-type: text/plain\n\n";
  15 print "$pid\n";
  16