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

use CGI;
$CGI::LIST_CONTEXT_WARN = 0;
$q = new CGI;
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;

$freq = $q->param('freq');
$rxLevel = $q->param('rxLevel');
$txDelay = $q->param('txDelay');
$txLevel = $q->param('txLevel');
$device = $q->param('device');
$txOffset = $q->param('txOffset');
$rxOffset = $q->param('rxOffset');
open(DvmegaFile, "> /var/www/dvmega.conf") or die("Error:$!");
print DvmegaFile "DVMEGA_FREQUENCY=" . $freq . "\n";
print DvmegaFile "DVMEGA_RX_LEVEL=" . $rxLevel . "\n";
print DvmegaFile "DVMEGA_TX_LEVEL=" . $txLevel . "\n";
print DvmegaFile "DVMEGA_TX_DELAY=" . $txDelay . "\n";
print DvmegaFile "DVMEGA_DEVICE=" . $device . "\n";
print DvmegaFile "DVMEGA_TX_OFFSET=" . $txOffset . "\n";
print DvmegaFile "DVMEGA_RX_OFFSET=" . $rxOffset . "\n";
close (DvmegaFile);
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">
EOF
print '<meta http-equiv="refresh" content="0; URL=http://' . $result . '/reboot_index.html" />';
print <<'EOF';
<TITLE>Connect Rig Registoration</TITLE>
</HEAD>
<BODY>
再起動中です。<br><br>
</BODY>
EOF
print $q->end_html;

