You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
283 lines
9.7 KiB
283 lines
9.7 KiB
<!DOCTYPE html>
|
|
<?php
|
|
$cfg = array();
|
|
$defaults = array();
|
|
$fmodule = $furcall = '';
|
|
$cfgdir = '/usr/local/etc';
|
|
|
|
function ParseKVFile(string $filename, &$kvarray)
|
|
{
|
|
if ($lines = file($filename, FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES)) {
|
|
foreach ($lines as $line) {
|
|
$line = trim($line);
|
|
if ($line[0] == '#') continue;
|
|
if (! strpos($line, '=')) continue;
|
|
list( $key, $value ) = explode('=', $line);
|
|
if ("'" == $value[0])
|
|
list ( $value ) = explode("'", substr($value, 1));
|
|
else
|
|
list ( $value ) = explode(' ', $value);
|
|
$value = trim($value);
|
|
$kvarray[$key] = $value;
|
|
}
|
|
}
|
|
}
|
|
|
|
function GetCFGValue(string $key)
|
|
{
|
|
global $cfg, $defaults;
|
|
if (array_key_exists($key, $cfg))
|
|
return $cfg[$key];
|
|
if ('module_' == substr($key, 0, 7)) {
|
|
$mod = substr($key, 0, 8);
|
|
if (array_key_exists($mod, $cfg)) {
|
|
$key = $cfg[$mod].substr($key, 8);
|
|
if (array_key_exists($key, $defaults))
|
|
return $defaults[$key];
|
|
}
|
|
} else {
|
|
if (array_key_exists($key.'_d', $defaults))
|
|
return $defaults[$key.'_d'];
|
|
}
|
|
return '';
|
|
}
|
|
|
|
function GetIP(string $type)
|
|
{
|
|
if ('internal' == $type) {
|
|
$iplist = explode(' ', `hostname -I`);
|
|
foreach ($iplist as $ip) {
|
|
if (strpos($ip, '.')) break;
|
|
}
|
|
} else if ('ipv6' == $type)
|
|
$ip = trim(`dig @resolver1.ipv6-sandbox.opendns.com AAAA myip.opendns.com +short -6`);
|
|
else if ('ipv4' == $type)
|
|
$ip = trim(`dig @resolver4.opendns.com myip.opendns.com +short -4`);
|
|
else
|
|
$ip = '';
|
|
return $ip;
|
|
}
|
|
|
|
function SecToString(int $sec) {
|
|
if ($sec >= 86400)
|
|
return sprintf("%0.2f days", $sec/86400);
|
|
$hrs = intdiv($sec, 3600);
|
|
$sec %= 3600;
|
|
$min = intdiv($sec, 60);
|
|
$sec %= 60;
|
|
if ($hrs) return sprintf("%2d hr %2d min", $hrs, $min);
|
|
if ($min) return sprintf("%2d min %2d sec", $min, $sec);
|
|
return sprintf("%2d sec", $sec);
|
|
}
|
|
|
|
function MyAndSfxToQrz(string $my, string $sfx)
|
|
{
|
|
$my = trim($my);
|
|
$sfx = trim($sfx);
|
|
if (0 == strlen($my)) {
|
|
$my = 'Empty MYCall ';
|
|
} else {
|
|
if (strpos($my, ' '))
|
|
$link = strstr($my, ' ', true);
|
|
else
|
|
$link = $my;
|
|
if (strlen($sfx))
|
|
$my .= '/'.$sfx;
|
|
$len = strlen($my);
|
|
$my = '<a*target="_blank"*href="https://www.qrz.com/db/'.$link.'">'.$my.'</a>';
|
|
while ($len < 13) {
|
|
$my .= ' ';
|
|
$len += 1;
|
|
}
|
|
}
|
|
return $my;
|
|
}
|
|
//example URL: https://www.google.com/maps?q=+52.37745,+001.99960
|
|
function Maidenhead(string $maid, float $lat, float $lon)
|
|
{
|
|
$str = trim($maid);
|
|
if (6 > strlen($str))
|
|
return $maid;
|
|
if ($lat >= 0.0)
|
|
$slat = '+'.$lat;
|
|
else
|
|
$slat = $lat;
|
|
if ($lon >= 0.0)
|
|
$slon = '+'.$lon;
|
|
else
|
|
$slon = $lon;
|
|
$str = '<a*target="_blank"*href="https://www.google.com/maps?q='.$slat.','.$slon.'">'.$maid.'</a>';
|
|
return $str;
|
|
}
|
|
|
|
ParseKVFile($cfgdir.'/qn.cfg', $cfg);
|
|
ParseKVFile($cfgdir.'/defaults', $defaults);
|
|
?>
|
|
|
|
<html>
|
|
<head>
|
|
<title>QnetGateway Dashboard</title>
|
|
<meta http-equiv="refresh" content="<?php echo GetCFGValue('dash_refresh');?>">
|
|
</head>
|
|
<body>
|
|
<h2>QnetGateway <?php echo GetCFGValue('ircddb_login'); ?> Dashboard</h2>
|
|
|
|
<?php
|
|
$showorder = GetCFGValue('dash_show_order');
|
|
$showlist = explode(',', trim($showorder));
|
|
foreach($showlist as $section) {
|
|
switch ($section) {
|
|
case 'PS':
|
|
if (`ps -aux | grep -e qn -e MMDVMHost | wc -l` > 2) {
|
|
echo 'Processes:<br><code>', "\n";
|
|
echo str_replace(' ', ' ', 'USER PID %CPU %MEM VSZ RSS TTY STAT START TIME COMMAND<br>'), "\n";
|
|
$lines = explode("\n", `ps -aux | grep -e qngateway -e qnlink -e qndtmf -e qndvap -e qnitap -e qnrelay -e qndvrptr -e qnmodem -e MMDVMHost | grep -v -e grep -e journal`);
|
|
foreach ($lines as $line) {
|
|
echo str_replace(' ', ' ', $line), "<br>\n";
|
|
}
|
|
echo '</code>', "\n";
|
|
}
|
|
break;
|
|
case 'SY':
|
|
echo 'System Info:<br>', "\n";
|
|
$hn = trim(`uname -n`);
|
|
$kn = trim(`uname -rmo`);
|
|
$osinfo = file('/etc/os-release', FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES);
|
|
foreach ($osinfo as $line) {
|
|
list( $key, $value ) = explode('=', $line);
|
|
if ($key == 'PRETTY_NAME') {
|
|
$os = trim($value, '"');
|
|
break;
|
|
}
|
|
}
|
|
$cu = trim(`cat /proc/cpuinfo | grep Model`);
|
|
if (0 == strlen($cu))
|
|
$cu = trim(`cat /proc/cpuinfo | grep "model name"`);
|
|
$culist = explode("\n", $cu);
|
|
$mnlist = explode(':', $culist[0]);
|
|
$cu = trim($mnlist[1]);
|
|
if (count($culist) > 1)
|
|
$cu .= ' ' . count($culist) . ' Threads';
|
|
if (file_exists('/opt/vc/bin/vcgencmd'))
|
|
$cu .= ' ' . str_replace("'", '°', trim(`/opt/vc/bin/vcgencmd measure_temp`));
|
|
echo '<table cellpadding="1" border="1" style="font-family: monospace">', "\n";
|
|
echo '<tr><td style="text-align:center">CPU</td><td style="text-align:center">Kernel</td><td style="text-align:center">OS</td><td style="text-align:center">Hostname</td></tr>', "\n";
|
|
echo '<tr><td style="text-align:center">', $cu, '</td><td style="text-align:center">', $kn, '</td><td style="text-align:center">', $os, '</td><td style="text-align:center">', $hn, '</td></tr></table><br>', "\n";
|
|
break;
|
|
case 'LH':
|
|
echo 'Last Heard:<br><code>', "\n";
|
|
$rstr = 'MyCall/Sfx Message Mod Via Maidenhead Time<br>';
|
|
echo str_replace(' ', ' ', $rstr), "\n";
|
|
$dbname = $cfgdir.'/qn.db';
|
|
$db = new SQLite3($dbname, SQLITE3_OPEN_READONLY);
|
|
// 0 1 2 3 4 5 6 7 8
|
|
$ss = 'SELECT callsign,sfx,message,module,reflector,maidenhead,latitude,longitude,strftime("%s","now")-lasttime FROM LHEARD ORDER BY 9 LIMIT '.GetCFGValue('dash_lastheard_count').' ';
|
|
if ($stmnt = $db->prepare($ss)) {
|
|
if ($result = $stmnt->execute()) {
|
|
while ($row = $result->FetchArray(SQLITE3_NUM)) {
|
|
$rstr = MyAndSfxToQrz($row[0], $row[1]).' '.$row[2].' '.$row[3].' '.$row[4].' '.Maidenhead($row[5], $row[6], $row[7]).' '.SecToString(intval($row[8])).'<br>';
|
|
echo str_replace('*', ' ', str_replace(' ', ' ', $rstr)), "\n";
|
|
}
|
|
$result->finalize();
|
|
}
|
|
$stmnt->close();
|
|
}
|
|
$db->Close();
|
|
echo '</code><br>', "\n";
|
|
break;
|
|
case 'IP':
|
|
$hasv6 = stristr(GetCFGValue('ircddb0_host'), 'v6');
|
|
if (! $hasv6) $hasv6 = stristr(GetCFGValue('ircddb1_host'), 'v6');
|
|
echo 'IP Addresses:<br>', "\n";
|
|
echo '<table cellpadding="1" border="1" style="font-family: monospace">', "\n";
|
|
echo '<tr><td style="text-align:center">Internal</td><td style="text-align:center">IPV4</td>';
|
|
if ($hasv6) echo '<td style="text-align:center">IPV6</td></tr>';
|
|
echo "\n";
|
|
echo '<tr><td>', GetIP('internal'), '</td><td>', GetIP('ipv4'), '</td>';
|
|
if ($hasv6) echo '<td>', GetIP('ipv6'), '</td></tr>';
|
|
echo "\n", '</table><br>', "\n";
|
|
break;
|
|
case 'MO':
|
|
echo 'Modules:<br>', "\n";
|
|
$dbname = $cfgdir.'/qn.db';
|
|
$db = new SQLite3($dbname, SQLITE3_OPEN_READONLY);
|
|
echo "<table cellpadding='1' border='1' style='font-family: monospace'>\n";
|
|
echo '<tr><td style="text-align:center">Module</td><td style="text-align:center">Modem</td><td style="text-align:center">Frequency</td><td style="text-align:center">Link</td><td style="text-align:center">Linked Time</td><td style="text-align:center">Link IP</td></tr>', "\n";
|
|
foreach (array('a', 'b', 'c') as $mod) {
|
|
$linkstatus = 'Unlinked';
|
|
$address = '';
|
|
$ctime = '';
|
|
$module = 'module_'.$mod;
|
|
if (array_key_exists($module, $cfg)) {
|
|
$freq = 0.0;
|
|
if (array_key_exists($module.'_tx_frequency', $cfg))
|
|
$freq = $cfg[$module.'_tx_frequency'];
|
|
else if (array_key_exists($module.'_frequency', $cfg))
|
|
$freq = $cfg[$module.'_frequency'];
|
|
$ss = 'SELECT ip_address,to_callsign,to_mod,strftime("%s","now")-linked_time FROM LINKSTATUS WHERE from_mod=' . "'" . strtoupper($mod) . "';";
|
|
if ($stmnt = $db->prepare($ss)) {
|
|
if ($result = $stmnt->execute()) {
|
|
if ($row = $result->FetchArray(SQLITE3_NUM)) {
|
|
$linkstatus = str_pad(trim($row[1]), 7).$row[2];
|
|
$address = $row[0];
|
|
$ctime = SecToString(intval($row[3]));
|
|
}
|
|
$result->finalize();
|
|
}
|
|
$stmnt->close();
|
|
}
|
|
echo '<tr><td style="text-align:center">', strtoupper($mod), '</td><td style="text-align:center">',$cfg[$module], '</td><td style="text-align:center">', $freq, '</td><td style="text-align:center">', $linkstatus, '</td><td style="text-align:right">', $ctime, '</td><td style="text-align:center">', $address, '</td></tr>', "\n";
|
|
}
|
|
}
|
|
echo '</table><br>', "\n";
|
|
$db->close();
|
|
break;
|
|
case 'UR':
|
|
echo 'Send URCall:<br>', "\n";
|
|
echo '<form method="post">', "\n";
|
|
$mods = array();
|
|
foreach (array('a', 'b', 'c') as $mod) {
|
|
$module = 'module_'.$mod;
|
|
if (array_key_exists($module, $cfg)) {
|
|
$mods[] = strtoupper($mod);
|
|
}
|
|
}
|
|
if (count($mods) > 1) {
|
|
echo 'Module: ', "\n";
|
|
foreach ($mods as $mod) {
|
|
echo '<input type="radio" name="fmodule"', (isset($fmodule) && $fmodule==$mod) ? '"checked"' : '', ' value="$mod">', $mod, '<br>', "\n";
|
|
}
|
|
} else
|
|
$fmodule = $mods[0];
|
|
echo 'URCall: <input type="text" name="furcall" value="', $furcall, '">', "\n";
|
|
echo '<input type="submit" name="sendurcall" value="Send URCall"><br>', "\n";
|
|
echo '</form>', "\n";
|
|
if (isset($_POST['sendurcall'])) {
|
|
$furcall = $_POST['furcall'];
|
|
if (empty($_POST['fmodule'])) {
|
|
if (1==count($mods)) {
|
|
$fmodule = $mods[0];
|
|
}
|
|
} else {
|
|
$fmodule = $_POST['fmodule'];
|
|
}
|
|
}
|
|
$furcall = str_replace(' ', '_', trim(preg_replace('/[^0-9a-z_ ]/', '', strtolower($furcall))));
|
|
|
|
if (strlen($furcall)>0 && strlen($fmodule)>0) {
|
|
$command = 'qnremote '.strtolower($fmodule).' '.strtolower($cfg['ircddb_login']).' '.$furcall;
|
|
echo $command, "<br>\n";
|
|
$unused = `$command`;
|
|
}
|
|
break;
|
|
default:
|
|
echo 'Section "', $section, '" was not found!<br>', "\n";
|
|
break;
|
|
}
|
|
}
|
|
?>
|
|
<br>
|
|
<p align="right">QnetGateway Dashboard Version 10208 Copyright © by Thomas A. Early, N7TAE.</p>
|
|
</body>
|
|
</html>
|