renice_proc.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 14 行

#!/usr/local/bin/perl
# renice_proc.cgi
# Change the nice level of a process

require './proc-lib.pl';
&ReadParse();
&switch_acl_uid();
&error_setup(&text('renice_err', $in{pid}));
if ($error = &renice_proc($in{pid}, $in{nice})) {
	&error($error);
	}
&redirect("edit_proc.cgi?$in{pid}");