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

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;

$q = new CGI;
print $q->header(-charset=> "UTF-8",);
open(DmonFILE, "< /var/www/dmonitor.conf") or die("Error: $!");
$RigType = <DmonFILE>;
$LcdType = <DmonFILE>;
$Call = <DmonFILE>;
close (DmonFILE);
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">
<script>
function Store() {
if ( DmonitorSet.call.value.substr(0,1) == ' ' )
{
alert ("接続コールサインの最初が空白です");
} else {
document.DmonitorSet.action="/cgi-bin/DmonitorStore";
document.DmonitorSet.target="_top";
document.DmonitorSet.method="post";
document.DmonitorSet.submit();
}
}
</script>
<TITLE>dmonitor Registoration</TITLE>
</HEAD>
<BODY>
<font size=+1><b>dmonitor設定</b></font>
<form name="DmonitorSet">
<br>接続リグ
<select name='rig'>
EOF
if ( substr ($RigType, 0, 4) eq 'ICOM' ) { 
print "<option value='ICOM' selected>ICOM</option>\n";
print "<option value='DVAP'>DVAP</option>\n";
print "<option value='DVMEGA'>DVMEGA</option>\n";
print "<option value='NODE'>NODE Adapter</option>\n";
} elsif ( substr ($RigType, 0, 4) eq 'DVAP' ) {
print "<option value='ICOM'>ICOM</option>\n";
print "<option value='DVAP' selected>DVAP</option>\n";
print "<option value='DVMEGA'>DVMEGA</option>\n";
print "<option value='NODE'>NODE Adapter</option>\n";
} elsif ( substr ($RigType, 0, 6) eq 'DVMEGA' ) {
print "<option value='ICOM'>ICOM</option>\n";
print "<option value='DVAP'>DVAP</option>\n";
print "<option value='DVMEGA' selected>DVMEGA</option>\n";
print "<option value='NODE'>NODE Adapter</option>\n";
} elsif ( substr ($RigType, 0, 4) eq 'NODE' ) {
print "<option value='ICOM'>ICOM</option>\n";
print "<option value='DVAP'>DVAP</option>\n";
print "<option value='DVMEGA'>DVMEGA</option>\n";
print "<option value='NODE' selected>NODE Adapter</option>\n";
}
print "</select>\n";
print "<br>LCD\n";
print "<select name='lcd'>\n";
if ( substr ($LcdType, 0, 4) eq 'NONE' ) {
print "<option value='NONE' selected>NONE</option>\n";
print "<option value='G20x4'>20x4 (gpio)</option>\n";
print "<option value='G16x2'>16x2 (gpio)</option>\n";
} elsif ( substr ($LcdType, 0, 5) eq 'G20x4' ) {
print "<option value='NONE'>NONE</option>\n";
print "<option value='G20x4' selected>20x4 (gpio)</option>\n";
print "<option value='G16x2'>16x2 (gpio)</option>\n";
} elsif ( substr ($LcdType, 0, 5) eq 'G16x2' ) {
print "<option value='NONE'>NONE</option>\n";
print "<option value='G20x4'>20x4 (gpio)</option>\n";
print "<option value='G16x2' selected>16x2 (gpio)</option>\n";
}
print "</select><br>\n";
print '接続コールサイン<input type="text" name="call" size="8" maxlength="8" value="' . $Call . '"><br><br>';
print <<'EOF';
<button type="button" onclick="Store()">登録</button><br>
登録をクリックしますと設定を保存後、ラズベリーパイが再起動されます。
</form>
EOF
print $q->end_html;

