📄 kill_proc.cgi
字号:
#!/usr/local/bin/perl# kill_proc.cgi# Send a signal to a processrequire './proc-lib.pl';&ReadParse();&switch_acl_uid();&error_setup(&text('kill_err', $in{signal}, $in{pid}));if (kill($in{signal}, $in{pid})) { sleep(1); if (&process_info($in{pid})) { # still around.. return to process info &redirect("edit_proc.cgi?$in{pid}"); } else { # gone case .. return to list &redirect("index.cgi"); } }else { # failed to send signal &error($!); }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -