http://www.perlmonks.org?node_id=644927

ultibuzz has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monk's,

i've written a simple cgi script so i can kill processes on a linux server.
the problem is the process don't get killed at all.
script is owned by the running oser of the process and this user is allowed to kill processes.

a hint, or a slam with a tree woud be nice ;)

 
below is the kill function,that is triggered when u hit a button.

sub exec_restart { my $pids = param('pids'); my @pid = split(";",$pids); kill -9,@pid; print header; print qq(<HTML> <HEAD> <TITLE>CONSOLE 0.1</TITLE> </HEAD> <BODY> <p><div align="center">killed... $pids</div></p> </BODY> </HTML>); }

kind regards ultibuzz