#!/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");
system("sudo rm -f /var/run/dmonitor.pid");
if ($? == -1) { 
	print "failed to execute: $!\n";
	exit;
}
unless (-f '/var/www/html/ConnectCall') {
        system ("sudo echo -n 'XX0XX   ' > /var/www/html/ConnectCall");
        system ("sudo chown www-data:www-data /var/www/html/ConnectCall");
}
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;
$useragent = $ENV{"HTTP_USER_AGENT"};
$browser   = get_browser_name();
sub get_browser_name
{
	local $name;

	$_ = $ENV{"HTTP_USER_AGENT"};

	if    (/Opera/i)		{ $name = "Opera";}
	elsif (/Surf/i)                 { $name = "Surf"; }
	elsif (/MSIE 6/i)		{ $name = "Internet Explorer Ver. 6"; }
	elsif (/Mozilla\/2/i)		{ $name = "Netscape Navigator Ver. 2"; }
	elsif (/Mozilla\/3/i)		{ $name = "Netscape Navigator Ver. 3"; }
	elsif (/Mozilla\/4/i	)	{ $name = "Netscape Navigator Ver. 4"; }
	elsif (/Mozilla\/5|Netscape6/i)	{ $name = "Netscape Navigator Ver. 6"; }
	elsif (/Netscape\/7/i)		{ $name = "Netscape Navigator Ver. 7"; }
	else                            	{ $name = "分かりません"; }

	return $name;
}

$q = new CGI;
print $q->header(-charset=> "UTF-8",);
print <<'EOF';
<html>
<title>Multi Forward running Repeater</title>
<head>
<meta http-equiv="content-type" content="text/html;charset=UTF-8">
<script type="text/javascript"><!--
var subWin;
function ActiveRepUp() {
    subWin = window.open(
	"/cgi-bin/repActive",
	"Active",
	"width=500,height=500,top=200,left=1000");
	subWin.blur();
	window.focus();
	window.blur();
	subWin.focus();
}
function scan_jump() {
EOF
print 'top.list.location.href = "http://' . $result .  '/repScan.html";';
print <<'EOF';
	top.cmd1.location.href = "/cgi-bin/kill_dmon";
}
// --></script>

</head>
<body  style="background-color:#c0c0c0;">
<center>
<a href=/cgi-bin/repMon target=list>レピータ一覧</a>&nbsp;&nbsp;&nbsp;
EOF
if ($browser eq 'Surf')
{
print '<a href=/cgi-bin/repActive target=log_view>使用中レピータ一覧</a>&nbsp;&nbsp;&nbsp;';
print '<a href="http://log.d-star.info/usr/log_view.html" target=log_view>運用ログ</a>&nbsp;&nbsp;&nbsp;';
} else {
print '<a href="javascript:void(0);" onclick="ActiveRepUp();" target=Active>使用中レピータ一覧</a>&nbsp;&nbsp;&nbsp;';
}
print '<a href="#" onclick="scan_jump(); return false;">スキャン</a>&nbsp;&nbsp;&nbsp;';
print '<a href=http://' . $result . '/tool.html target=list>システム　ツール</a>&nbsp;&nbsp;&nbsp;';
print '<a href=http://log.d-star.info/dmonitor_news.html target=_blank>ニュース</a>&nbsp;&nbsp;&nbsp;';
print "閉じる（戻るボタンで閉じてください） Multi Forward Monitor (dmonitor) V01.42 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Rig:";
open(RigFILE, "< /var/www/rig.type") or die("Error: $!");
$RigType = <RigFILE>;
close (RifFILE);
$RigType = substr ($RigType, 0, 4);
print $RigType;
print <<'EOF';
</center></body>
</html>
EOF
