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

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;

system("sudo systemctl restart auto_repmon");
system("sudo killall -q -s 2 dmonitor");
system("sudo rm -f /var/nun/dmonitor.pid");
if ($? == -1) { 
	print "failed to execute: $!\n";
	exit;
}
system("sudo cp /var/www/html/connected_table.html.save /var/tmp/connected_table.html");
system("sudp touch /var/tmp/connected_table.html");
system("sudo cp /var/www/html/error_msg.html.save /var/tmp/error_msg.html");

$q = new CGI;
print $q->header(-charset=> "Shift_JIS",);
print <<'EOF';
<HTML lang="ja">
<HEAD>
</HEAD>
<BODY>
EOF

print $q->end_html;

