proc/renice_proc.cgi

   1 #!/usr/local/bin/perl
   2 # renice_proc.cgi
   3 # Change the nice level of a process, and possibly the IO scheduling
   4
   5 require './proc-lib.pl';
   6 &ReadParse();
   7 &switch_acl_uid();
   8 &error_setup(&text('renice_err', $in{pid}));
   9 %pinfo = &process_info($in{pid});
  10
  11 # Set nice level
  12 &can_edit_process($pinfo{'user'}) || &error($text{'renice_ecannot'});
  13 if ($error = &renice_proc($in{'pid'}, $in{nice})) {
  14         &error($error);
  15         }
  16
  17 # Set IO scheduling
  18 if (defined($in{'sclass'})) {
  19         $error = &os_set_scheduling_class(
  20                 $in{'pid'}, $in{'sclass'}, $in{'sprio'});
  21         }
  22
  23 &webmin_log("renice", undef, undef, \%in);
  24 &redirect("edit_proc.cgi?$in{pid}");
  25