#!/usr/local/bin/perl
# apply.cgi
# Apply changes to the heartbeat process

require './heartbeat-lib.pl';
&ReadParse();
&error_setup($text{'apply_err'});
if ($config{'apply_cmd'}) {
	$out = &backquote_logged("$config{'apply_cmd'} 2>&1 </dev/null");
	if ($?) {
		&error($out);
		}
	}
else {
	kill(HUP, $in{'pid'}) || &error($text{'apply_epid'});
	}
&redirect("");

