#!/usr/bin/perl
##
##

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;
$q = new CGI;
print $q->header(-charset=> "Shift_JIS",);
system("sudo killall -q -s 9 repeater_scan");
system("sudo killall -q -s 2 dmonitor");
if ($? == -1) { 
	print "failed to execute: $!\n";
	exit;
}
print <<'EOF';
<HTML lang="ja">
<HEAD>
<meta http-equiv="refresh" content="0; URL='./repeater_mon'" />
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>Repeater Scan Killall Interface</TITLE>

</HEAD>
<BODY>
EOF

print $q->end_html;

