kill_proc_list.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# kill_proc_list.cgi
# Send a signal to a list of process

require './proc-lib.pl';
&ReadParse();
&switch_acl_uid();

$| = 1;
&header($text{'kill_title'}, "");
print "<hr>\n";
foreach $p (split(/\s+/, $in{pidlist})) {
	print "$text{'pid'} <tt>$p</tt> ... \n";
	if (kill($in{signal}, $p)) {
		print "SIG$in{signal} $text{'kill_sent'}<br>\n";
		}
	else { print "$!<br>\n"; }
	}
print "<p><hr>\n";
&footer("index_search.cgi?$in{'args'}", $text{'search_return'});