#!/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($!);	}