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

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;
$q = new CGI;
print $q->header(-charset=> "UTF-8",);
$call = sprintf ("<b>Connected to %s&nbsp;&nbsp;%s</b>", $q->param('callsign'), $q->param('rep_name'));
$calls = sprintf ("%s", $q->param('callsign'));
$calls=~ s/\s+/+/g;
$rep = sprintf("%s", $q->param('rep_name'));
$zone = sprintf("%s", $q->param('zr_call'));
open(CallFILE, "< /var/www/html/ConnectCall") or die("Error: $!");
$ConnectCall = <CallFILE>;
close(CallFILE);
if (substr($ConnectCall, 0, 5) eq "XX0XX" or substr($ConnectCall, 0, 1) eq " " or substr($ConnectCall, 0, 1) eq ""){
print <<'EOF';
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta name="expires" content="0">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>Monitor Interface</TITLE>
</HEAD>
<BODY>
<h3>dmonitor connection status V01.42</h3>
<font color=red>
接続コールサインが設定されていません<br>
最上部のメニューから<br>
「システム　ツール」 -> 「接続コールサイン設定」<br>
で設定してください
</font>
</body></html>
EOF
print $q->end_html;
exit;
}

$cmd = sprintf ("sudo /usr/bin/dmonitor '%s' %s %s %s %s",$ConnectCall, $q->param('ip_addr'),$q->param('port'),$q->param('callsign'), $q->param('zr_call'));

print <<'EOF';
<!doctype html>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta name="expires" content="0">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>Monitor Interface</TITLE>

</HEAD>
<BODY>
<h3>dmonitor connection status V01.42</h3>
EOF
system ("sudo killall -q -s 9 repeater_scan");
system ("sudo killall -q -s 2 dmonitor");
system ("sudo rm -f /var/run/dmonitor.pid");
system ("sudo rig_port_check");
system ("sudo cp /dev/null /var/tmp/update.log");
system ("sudo cp /var/www/html/error_msg.html.save /var/tmp/error_msg.html");
system ($cmd);
print $call;
open(BuffSize, "< /var/www/buff_hold.txt") or die("Error: $!");
$BufferSize = <BuffSize>;
close(BuffSize);
print "<br>";
print "<a href=/cgi-bin/kill_dmon>接続解除</a>";
print "&nbsp;&nbsp;<a href=/cgi-bin/add_buffer?callsign=" . $calls . "&rep_name=" . $rep . "&zr_call=" . $zone . ">バッファ拡張</a>";
print "&nbsp;&nbsp;<a href=/cgi-bin/sub_buffer?callsign=" . $calls . "&rep_name=" . $rep . "&zr_call=" . $zone . ">バッファ縮小</a>";
print "&nbsp;&nbsp;バッファの値:" . $BufferSize ;

print $q->end_html;

