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

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;

#system("sudo cp /var/www/html/connected_table.html.save /var/tmp/connected_table.html");
#system ("sudo cp /dev/null /var/tmp/update.log");
system("sudo systemctl restart auto_repmon");
system("sudo killall -q -s 9 repeater_scan");
#system("sudo killall -q -s 2 dmonitor");
if ($? == -1) { 
	print "failed to execute: $!\n";
	exit;
}

open my $rs , "hostname -I 2>&1 |";
my @ip = <$rs>;
close $rs;
my $result = join '' , @ip;
my $num = index ($result, ' ');
$result = substr($result, 0, $num);
$result =~ s/\s+//g;
$result =~ s/[[:cntrl:]]//g;

$q = new CGI;
print $q->header(-charset=> "UTF-8",);
print <<'EOF';
<HTML lang="ja">
<HEAD>
EOF
print '<meta http-equiv="refresh" content="0; URL=http://' . $result . '/repMon.html" />';
print <<'EOF';
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<META http-equiv="Content-Style-Type" content="text/css"
</HEAD>
EOF
print $q->end_html;

