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
Back to
Seekers of Perl Wisdom