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

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;

system("sudo systemctl stop auto_repmon");
system("sudo killall -q -s 9 repeater_scan");
system("sudo killall -q -s 2 dmonitor");
system ("sudo cp /dev/null /var/tmp/update.log");
system ("sudo /var/www/cgi-bin/full_update");

$q = new CGI;

print $q->header(-charset=> "UTF-8",);
print <<'EOF';
<HTML lang="ja">
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<META http-equiv="Content-Style-Type" content="text/css">
<TITLE>Dmonitor Tool Interface</TITLE>
</HEAD>
<body style="background-color:#ffffcc;">
<ul>
<li><a href=/cgi-bin/Reboot>再起動</a></li>
<li><a href=/cgi-bin/Shutdown>シャットダウン</a></li>
<li><a href=/cgi-bin/repUpd target="list">レピータリスト更新</a></li>
EOF
open(DmonFILE, "< /var/www/dmonitor.conf") or die("Error: $!");
$RigType = <DmonFILE>;
close (DmonFILE);
print "<li><a href=/cgi-bin/DmonitorSet target=cmd1>dminitor設定（現在のリグの設定:" . $RigType . "）</a></li>\n";
if ( substr ($RigType, 0, 4) eq 'DVAP' ) {
print "<li><a href=/cgi-bin/DvapSet target=cmd1>DVAP設定</a></li>\n";
}
if ( substr ($RigType, 0, 6) eq 'DVMEGA' ) {
print "<li><a href=/cgi-bin/DvmegaSet target=cmd1>DVMEGA設定</a></li>\n";
}
if ( substr ($RigType, 0, 4) eq 'NODE' ) {
print "<li><a href=/cgi-bin/NodeSet target=cmd1>NODE Adapter設定</a></li>\n";
}
print <<'EOF';
<li><a href=/cgi-bin/Update>dmonitor アップデート</a></li>
<li><a href=/cgi-bin/Full_Update>フル アップデート</a></li>
<li><a href=/cgi-bin/log_delete>ログファイル削除</a></li>
<li><a href=/cgi-bin/FileExpand>ファイルシステム拡張</a></li>
<li><a href=/cgi-bin/system_info target=_blank>システム稼働情報</a></li>

</ul>
EOF
print $q->end_html;

