#!/usr/local/bin/perl# renice_proc.cgi# Change the nice level of a processrequire './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}");