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

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;
$q = new CGI;
system ("sudo killall -q -s SIGUSR1 dmonitor");
$call = sprintf ("<b>Connected to %s&nbsp;&nbsp;%s</b>", $q->param('callsign'), $q->param('rep_name'));
print $q->header(-charset=> "UTF-8",);
$calls = sprintf ("%s", $q->param('callsign'));
$calls=~ s/\s+/+/g;
$rep = sprintf ("%s", $q->param('rep_name'));
$zone = sprintf ("%s", $q->param('zr_call'));
print <<'EOF';
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>Monitor Interface</TITLE>

</HEAD>
<BODY>
<h3>dmonitor connection status V01.42</h3>
EOF
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;
printf <<'EOF';
</body></html>
EOF

print $q->end_html;

