MMDVMHost-Dashboard/include/functions.php

<?php

function getMMDVMHostVersion() {
   // returns creation-time or version of MMDVMHost as version-number
   $filename = MMDVMHOSTPATH."/MMDVMHost";
   exec($filename." -v 2>&1", $output);
   if (!startsWith(substr($output[0],18,8),"20")) {
      showLapTime("getMMDVMHostVersion");
      return getMMDVMHostFileVersion();
   } else {
      showLapTime("getMMDVMHostVersion");
      if (strlen($output[0]) > 26) {
         return substr($output[0],18,8)." ("._("compiled")." ".getMMDVMHostFileVersion(). ", GitID #<a href=\"https://github.com/g4klx/MMDVMHost/commit/" . substr($output[0],32,7) . "\" target=\"_blank\">" . substr($output[0],32,7) . "</a>)";
      } else {
         return substr($output[0],18,8)." ("._("compiled")." ".getMMDVMHostFileVersion(). ")";
      }
   }
}

function getMMDVMHostFileVersion() {
   // returns creation-time of MMDVMHost as version-number
   $filename = MMDVMHOSTPATH."/MMDVMHost";
   if (file_exists($filename)) {
      showLapTime("getMMDVMHostFileVersion");
      return date("d M Y", filectime($filename));
   }
}

function getDMRGatewayVersion() {
   // returns creation-time or version of DMRGateway as version-number
   $filename = DMRGATEWAYPATH."/DMRGateway";
   exec($filename." -v 2>&1", $output);
   if (!startsWith(substr($output[0],19,8),"20")) {
      showLapTime("getDMRGatewayVersion");
      return getDMRGatewayFileVersion();
   } else {
      showLapTime("getDMRGatewayVersion");
      if (strlen($output[0]) > 26) {
         return substr($output[0],19,8)." ("._("compiled")." ".getDMRGatewayFileVersion(). ", GitID #<a href=\"https://github.com/g4klx/DMRGateway/commit/" . substr($output[0],33,7) . "\" target=\"_blank\">" . substr($output[0],33,7) . "</a>)";
      } else {
         return substr($output[0],19,8)." ("._("compiled")." ".getDMRGatewayFileVersion(). ")";
      }
   }
}

function getDMRGatewayFileVersion() {
   // returns creation-time of DMRGateway as version-number
   $filename = DMRGATEWAYPATH."/DMRGateway";
   if (file_exists($filename)) {
      showLapTime("getDMRGatewayFileVersion");
      return date("d M Y", filectime($filename));
   }
}

function getFirmwareVersion() {
   $logPath    = MMDVMLOGPATH."/".MMDVMLOGPREFIX."-".date("Y-m-d").".log";
   $logLines   = explode("\n", `egrep "MMDVM protocol version" $logPath`);
   $firmware   = "n/a";
   if (count($logLines) >= 2) {
      $firmware = substr($logLines[count($logLines)-2], strpos($logLines[count($logLines)-2], "description")+13, strlen($logLines[count($logLines)-2])-strpos($logLines[count($logLines)-2], "description")+13);
      if (0 === strpos($firmware, 'MMDVM_HS_Dual_Hat')) {
         $firmware = preg_replace('/GitID #([0-9A-Fa-f]{7})/', 'GitID #<a href="http://www.github.com/juribeparada/MMDVM_HS/commit/$1" target=\"_blank\">$1</a>', $firmware);
      } else if (0 === strpos($firmware, 'MMDVM')) {
         $firmware = preg_replace('/GitID #([0-9A-Fa-f]{7})/', 'GitID #<a href="http://www.github.com/g4klx/MMDVM/commit/$1" target=\"_blank\">$1</a>', $firmware);
      } else if (0 === strpos($firmware, 'ZUMspot')) {
         $firmware = preg_replace('/GitID #([0-9A-Fa-f]{7})/', 'GitID #<a href="http://www.github.com/juribeparada/MMDVM_HS/commit/$1" target=\"_blank\">$1</a>', $firmware);
      }
   }
   if ($firmware != "n/a") {
      $fp = fopen('/tmp/MMDVMFirmware.txt', 'w');
      fwrite($fp, $firmware);
      fclose($fp);
   } else {
      $fp = fopen('/tmp/MMDVMFirmware.txt', 'r');
      $contents = fread($fp, filesize("/tmp/MMDVMFirmware.txt"));
      $firmware = $contents;
   }
   echo $firmware;
}

function setDMRNetwork($network) {
   $fp = fopen('../config/DMRNetwork.txt', 'w');
   fwrite($fp, $network);
   fclose($fp);
}

function getDMRNetwork() {
   $filename   = 'config/DMRNetwork.txt';
   $network    = '';
   if (file_exists($filename)) {
      $fp = fopen($filename, 'r');
      $network = fread($fp, filesize($filename));
      fclose($fp);
   }
   return $network;
}

function getDMRNetwork2() {
   $filename   = '../config/DMRNetwork.txt';
   $network    = '';
   if (file_exists($filename)) {
      $fp = fopen($filename, 'r');
      $network = fread($fp, filesize($filename));
      fclose($fp);
   }
   return $network;

}

function getDMRMasterState() {
   $logPath    = MMDVMLOGPATH."/".MMDVMLOGPREFIX."-".date("Y-m-d").".log";
   $logLines   = explode("\n", `egrep -h "(DMR, Logged into the master successfully)|(DMR, Closing DMR Network)" $logPath`);
   $state      = -1;
   foreach($logLines as $logLine) {
      if (strpos($logLine, "successfully") > 0) {
         $state = 1;
      }
      if (strpos($logLine, "Closing") > 0) {
         $state = 0;
      }
   }
   if ($state >= 0) {
      $fp = fopen('/tmp/DMRMasterState.txt', 'w');
      fwrite($fp, $state);
      fclose($fp);
   } else {
      $fp = fopen('/tmp/DMRMasterState.txt', 'r');
      $contents = fread($fp, filesize("/tmp/DMRMasterState.txt"));
      $state = $contents;
   }
   return $state;
}

function getMMDVMConfig() {
   // loads MMDVM.ini into array for further use
   $conf = array();
   if ($configs = fopen(MMDVMINIPATH."/".MMDVMINIFILENAME, 'r')) {
      while ($config = fgets($configs)) {
         array_push($conf, trim ( $config, " \t\n\r\0\x0B"));
      }
      fclose($configs);
   }
   return $conf;
}

function getYSFGatewayConfig() {
   // loads YSFGateway.ini into array for further use
   $conf = array();
   if ($configs = fopen(YSFGATEWAYINIPATH."/".YSFGATEWAYINIFILENAME, 'r')) {
      while ($config = fgets($configs)) {
         array_push($conf, trim ( $config, " \t\n\r\0\x0B"));
      }
      fclose($configs);
   }
   showLapTime("getYSFGatewayConfig");
   return $conf;
}

function getCallsign($mmdvmconfigs) {
   // returns Callsign from MMDVM-config
   return getConfigItem("General", "Callsign", $mmdvmconfigs);
}

function getDMRId ($mmdvmconfigs) {
   // returns DMRId from MMDVM-Config
   return getConfigItem("General", "Id", $mmdvmconfigs);
}

function getConfigItem($section, $key, $configs) {
   // retrieves the corresponding config-entry within a [section]
   $sectionpos = array_search("[" . $section . "]", $configs);
   if ($sectionpos !== FALSE) {
      $sectionpos++;
      $len = count($configs);
      while(($sectionpos < $len) && (startsWith($configs[$sectionpos],$key."=") === false) ) {
         if (startsWith($configs[$sectionpos],"[")) {
             return null;
         }
         $sectionpos++;
      }
      if ($sectionpos < $len) {
         return substr($configs[$sectionpos], strlen($key) + 1);
      }
   }
    return null;
}

function getEnabled ($mode, $mmdvmconfigs) {
   // returns enabled/disabled-State of mode
   return getConfigItem($mode, "Enable", $mmdvmconfigs);
}

function showMode($mode, $mmdvmconfigs) {
   // shows if mode is enabled or not.
?>
      <td><span class="badge <?php
   if (getEnabled($mode, $mmdvmconfigs) == 1) {
      switch ($mode) {
         case "D-Star Network":
            if (getConfigItem("D-Star Network", "GatewayAddress", $mmdvmconfigs) == "localhost" || getConfigItem("D-Star Network", "GatewayAddress", $mmdvmconfigs) == "127.0.0.1") {
               if (isProcessRunning(IRCDDBGATEWAY)) {
                  echo "badge-success";
               } else {
                  echo "badge-danger\" title=\""._("ircddbgateway is down!");
               }
            } else {
               echo "badge-default\" title=\""._("Remote gateway configured - not checked!");
            }
            break;
         case "System Fusion Network":
            if (getConfigItem("System Fusion Network", "GatewayAddress", $mmdvmconfigs) == "localhost" || getConfigItem("System Fusion Network", "GatewayAddress", $mmdvmconfigs) == "127.0.0.1") {
               if (isProcessRunning("YSFGateway")) {
                  echo "badge-success";
               } else {
                  echo "badge-danger\" title=\""._("YSFGateway is down!");
               }
            } else {
               echo "badge-default\" title=\""._("Remote gateway configured - not checked!");
            }
            break;
         case "POCSAG Network":
            if (getConfigItem("POCSAG Network", "GatewayAddress", $mmdvmconfigs) == "localhost" || getConfigItem("POCSAG Network", "GatewayAddress", $mmdvmconfigs) == "127.0.0.1") {
               if (isProcessRunning("DAPNETGateway")) {
                  echo "badge-success";
               } else {
                  echo "badge-danger\" title=\""._("Gateway is down!");
               }
            } else {
               echo "badge-default\" title=\""._("Remote gateway configured - not checked!");
            }
            break;
         default:
            if (isProcessRunning("MMDVMHost")) {
               echo "badge-success";
            } else {
               echo "badge-danger\" title=\""._("MMDVMHost is down!");
            }
      }
   } else {
      echo "badge-default";
    }
    ?>"><?php echo $mode ?></span></td>
<?php
}

function getMMDVMLog() {
   // Open Logfile and copy loglines into LogLines-Array()
   $logPath    = MMDVMLOGPATH."/".MMDVMLOGPREFIX."-".date("Y-m-d").".log";
   //$logLines   = explode("\n", `egrep -h "from|end|watchdog|lost|POCSAG" $logPath`);
   $logLines   = explode("\n", `egrep -h "from|end|watchdog|lost|POCSAG" $logPath`);
   return $logLines;
}

function getShortMMDVMLog() {
   // Open Logfile and copy loglines into LogLines-Array()
   $logPath    = MMDVMLOGPATH."/".MMDVMLOGPREFIX."-".date("Y-m-d").".log";
   $logLines   = explode("\n", `egrep -h "from|end|watchdog|lost|Alias|0000" $logPath | grep -v "data header" | tail -20`);
   return $logLines;
}

function getYSFGatewayLog() {
   // Open Logfile and copy loglines into LogLines-Array()
   $logPath    = YSFGATEWAYLOGPATH."/".YSFGATEWAYLOGPREFIX."-".date("Y-m-d").".log";
   $logLines   = explode("\n", `egrep -h "repeater|Startinf|Disconnect|Linked|Automatic|Reverting|No connection" $logPath`);
   return $logLines;
}

function getDAPNETGatewayLog() {
   // Open Logfile and copy loglines into LogLines-Array()
   $logPath    = DAPNETGATEWAYLOGPATH."/".DAPNETGATEWAYLOGPREFIX."-".date("Y-m-d").".log";
   $logLines   = explode("\n", `egrep -h "Sending" $logPath`);
   return $logLines;
}

// 00000000001111111111222222222233333333334444444444555555555566666666667777777777888888888899999999990000000000111111111122
// 01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901
// M: 2016-04-29 00:15:00.013 D-Star, received network header from DG9VH   /ZEIT to CQCQCQ   via DCS002 S
// M: 2016-04-29 19:43:21.839 DMR Slot 2, received network voice header from DL1ESZ to TG 9
// M: 2016-04-30 14:57:43.072 DMR Slot 2, received RF voice header from DG9VH to 5000
// M: 2019-12-09 18:56:46.947 DMR Slot 1, received RF voice header from 2625094 to TG 26266
// M: 2016-09-16 09:14:12.886 P25, received RF from DF2ET to TG10100
// M: 2017-02-13 15:53:30.990 DMR Slot 2, Embedded Talker Alias Header
// M: 2017-02-13 15:53:30.991 0000:  04 00 5E 49 57 38 44 59 94                         *..^IW8DY.*
// M: 2017-02-13 15:53:31.252 DMR Slot 2, Embedded Talker Alias Block 1
// M: 2017-02-13 15:53:31.253 0000:  05 00 20 47 69 6F 76 61 DC                         *.. Giova.*

function getHeardList($logLines, $onlyLast) {
   $heardList      = array();
   $ts1duration    = "";
   $ts1loss        = "";
   $ts1ber         = "";
   $ts1rssi        = "";
   $ts1alias       = "---";
   $ts2duration    = "";
   $ts2loss        = "";
   $ts2ber         = "";
   $ts2rssi        = "";
   $ts2alias       = "---";
   $dstarduration  = "";
   $dstarloss      = "";
   $dstarber       = "";
   $dstarrssi      = "";
   $ysfduration    = "";
   $ysfloss        = "";
   $ysfber         = "";
   $ysfrssi        = "";
   $alias          = "";
   
   foreach ($logLines as $logLine) {
      $duration   = "";
      $loss       = "";
      $ber        = "";
      $rssi       = "";
      //removing invalid lines
      if(strpos($logLine,"BS_Dwn_Act")) {
         continue;
      } else if(strpos($logLine,"invalid access")) {
         continue;
      } else if(strpos($logLine,"received RF header for wrong repeater")) {
         continue;
      } else if(strpos($logLine,"unable to decode the network CSBK")) {
         continue;
      } else if(strpos($logLine,"overflow in the DMR slot RF queue")) {
         continue;
      } else if(strpos($logLine,"bad LC received")) {
         continue;
      } else if(strpos($logLine,"non repeater RF header received")) {
         continue;
      }

      if(strpos($logLine, "0000")){
      	$decodedAlias = $decodedAlias = preg_replace('/[\x00-\x1F\x7F-\xA0\xAD]/u', '', decodeAlias($logLine));
        if ($decodedAlias == "" && $alias == "") $decodedAlias="---";
        else if ($alias!="---") $alias = str_replace("---", "", $alias);
      	if ($alias == "")
	      	$alias = $decodedAlias;
	    else
	    	$alias = $decodedAlias.$alias;
      }
      if (strpos($logLine,"Embedded Talker Alias")) {
      	switch (substr($logLine, 27, strpos($logLine,",") - 27)) {
          case "DMR Slot 1":
            $ts1alias = $alias;
            break;
          case "DMR Slot 2":
            $ts2alias = $alias;
            break;
        }
      }

      if(strpos($logLine,"end of") || strpos($logLine,"watchdog has expired") || strpos($logLine,"ended RF data") || strpos($logLine,"ended network") || strpos($logLine,"transmission lost")) {
         $lineTokens = explode(", ",$logLine);
         if (array_key_exists(2,$lineTokens)) {
            $duration = strtok($lineTokens[2], " ");
         }
         if (array_key_exists(3,$lineTokens)) {
            $loss = $lineTokens[3];
         }
         if (array_key_exists(4,$lineTokens)) {
            $ber = $lineTokens[4];
         }

         // if RF-Packet, no LOSS would be reported, so BER is in LOSS position
         // and RSSI in BER position
         if (startsWith($loss,"BER")) {
            if (substr($ber, 6) != "-0/-0/-0 dBm") {
               $rssiString = substr($ber, 6);
               if (constant("RSSI") == "min") $rssiVal = preg_replace('/(-\d+)\/-\d+\/-\d+ dBm/', "\\1", $rssiString);
               else if (constant("RSSI") == "max") $rssiVal = preg_replace('/-\d+\/(-\d+)\/-\d+ dBm/', "\\1", $rssiString);
               else if (constant("RSSI") == "avg") $rssiVal = preg_replace('/-\d+\/-\d+\/(-\d+) dBm/', "\\1", $rssiString);
               else if (constant("RSSI") == "all") $rssiVal = $rssiString;
               else $rssiVal = preg_replace('/-\d+\/-\d+\/(-\d+) dBm/', "\\1", $rssiString);
               if (constant("RSSI") != "all") {
                  if ($rssiVal > "-53") $rssi = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +40dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-63") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +30dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-73") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +20dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-83") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +10dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-93") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-99") $rssi    = "<img src=\"images/3.png\" \> <div class=\"tooltip2\">S8 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-105") $rssi   = "<img src=\"images/3.png\" \> <div class=\"tooltip2\">S7 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-111") $rssi   = "<img src=\"images/2.png\" \> <div class=\"tooltip2\">S6 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-117") $rssi   = "<img src=\"images/2.png\" \> <div class=\"tooltip2\">S5 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-123") $rssi   = "<img src=\"images/1.png\" \> <div class=\"tooltip2\">S4 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-129") $rssi   = "<img src=\"images/1.png\" \> <div class=\"tooltip2\">S3 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-135") $rssi   = "<img src=\"images/0.png\" \> <div class=\"tooltip2\">S2 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-141") $rssi   = "<img src=\"images/0.png\" \> <div class=\"tooltip2\">S1 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
               } else {
                  $rssi = $rssiVal;
               }
            }
         $ber  = substr($loss, 5);
         $loss = "";
         } else if (startsWith($loss,"RSSI:")) { //for short RF packets and "X" button requests, BER sometimes in not showed. RSSI is in BER position
            $loss="";
            $ber = "";
            $rssiString = substr($lineTokens[3], 6);
            if (constant("RSSI") == "min") $rssiVal = preg_replace('/(-\d+)\/-\d+\/-\d+ dBm/', "\\1", $rssiString);
            else if (constant("RSSI") == "max") $rssiVal = preg_replace('/-\d+\/(-\d+)\/-\d+ dBm/', "\\1", $rssiString);
            else if (constant("RSSI") == "avg") $rssiVal = preg_replace('/-\d+\/-\d+\/(-\d+) dBm/', "\\1", $rssiString);
            else if (constant("RSSI") == "all") $rssiVal = $rssiString;
            else $rssiVal = preg_replace('/-\d+\/-\d+\/(-\d+) dBm/', "\\1", $rssiString);
            if (constant("RSSI") != "all") {
              if ($rssiVal > "-53") $rssi = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +40dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-63") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +30dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-73") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +20dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-83") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +10dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-93") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-99") $rssi    = "<img src=\"images/3.png\" \> <div class=\"tooltip2\">S8 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-105") $rssi   = "<img src=\"images/3.png\" \> <div class=\"tooltip2\">S7 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-111") $rssi   = "<img src=\"images/2.png\" \> <div class=\"tooltip2\">S6 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-117") $rssi   = "<img src=\"images/2.png\" \> <div class=\"tooltip2\">S5 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-123") $rssi   = "<img src=\"images/1.png\" \> <div class=\"tooltip2\">S4 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-129") $rssi   = "<img src=\"images/1.png\" \> <div class=\"tooltip2\">S3 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-135") $rssi   = "<img src=\"images/0.png\" \> <div class=\"tooltip2\">S2 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
              else if ($rssiVal > "-141") $rssi   = "<img src=\"images/0.png\" \> <div class=\"tooltip2\">S1 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
            } else {
              $rssi = $rssiVal;
            }
         } else {
            $loss = strtok($loss, " ");
            if (array_key_exists(4,$lineTokens)) {
               $ber = substr($lineTokens[4], 5);
            }
            if (array_key_exists(5,$lineTokens) && substr($lineTokens[5], 6) != "-0/-0/-0 dBm") {
               $rssiString = substr($lineTokens[5], 6);
               if (constant("RSSI") == "min") $rssiVal = preg_replace('/(-\d+)\/-\d+\/-\d+ dBm/', "\\1", $rssiString);
               else if (constant("RSSI") == "max") $rssiVal = preg_replace('/-\d+\/(-\d+)\/-\d+ dBm/', "\\1", $rssiString);
               else if (constant("RSSI") == "avg") $rssiVal = preg_replace('/-\d+\/-\d+\/(-\d+) dBm/', "\\1", $rssiString);
               else if (constant("RSSI") == "all") $rssiVal = $rssiString;
               else $rssiVal = preg_replace('/-\d+\/-\d+\/(-\d+) dBm/', "\\1", $rssiString);
               if (constant("RSSI") != "all") {
                  if ($rssiVal > "-53") $rssi = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +40dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-63") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +30dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-73") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +20dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-83") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9<sup> +10dB</sup> ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-93") $rssi    = "<img src=\"images/4.png\" \> <div class=\"tooltip2\">S9 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-99") $rssi    = "<img src=\"images/3.png\" \> <div class=\"tooltip2\">S8 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-105") $rssi   = "<img src=\"images/3.png\" \> <div class=\"tooltip2\">S7 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-111") $rssi   = "<img src=\"images/2.png\" \> <div class=\"tooltip2\">S6 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-117") $rssi   = "<img src=\"images/2.png\" \> <div class=\"tooltip2\">S5 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-123") $rssi   = "<img src=\"images/1.png\" \> <div class=\"tooltip2\">S4 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-129") $rssi   = "<img src=\"images/1.png\" \> <div class=\"tooltip2\">S3 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-135") $rssi   = "<img src=\"images/0.png\" \> <div class=\"tooltip2\">S2 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
                  else if ($rssiVal > "-141") $rssi   = "<img src=\"images/0.png\" \> <div class=\"tooltip2\">S1 ($rssiVal dBm)<span class=\"tooltip2text\">(min/max/avg)<br>$rssiString</span></div>";
               } else {
                  $rssi = $rssiVal;
               }
            }
         }

         if (strpos($logLine,"ended RF data") || strpos($logLine,"ended network")) {
            switch (substr($logLine, 27, strpos($logLine,",") - 27)) {
               case "DMR Slot 1":
                  $ts1duration = "SMS";
                  break;
               case "DMR Slot 2":
                  $ts2duration = "SMS";
                  break;
            }
         } else {
            switch (substr($logLine, 27, strpos($logLine,",") - 27)) {
               case "D-Star":
                  $dstarduration  = $duration;
                  $dstarloss      = $loss;
                  $dstarber       = $ber;
                  $dstarrssi      = $rssi;
                  break;
               case "DMR Slot 1":
                  $ts1duration    = $duration;
                  $ts1loss        = $loss;
                  $ts1ber         = $ber;
                  $ts1rssi        = $rssi;
                  break;
               case "DMR Slot 2":
                  $ts2duration    = $duration;
                  $ts2loss        = $loss;
                  $ts2ber         = $ber;
                  $ts2rssi        = $rssi;
                  break;
               case "YSF":
                  $ysfduration    = $duration;
                  $ysfloss        = $loss;
                  $ysfber         = $ber;
                  $ysfrssi        = $rssi;
                  break;
               case "P25":
                  $p25duration    = $duration;
                  $p25loss        = $loss;
                  $p25ber         = $ber;
                  $p25rssi        = $rssi;
                  break;
               case "NXDN":
                  $nxdnduration    = $duration;
                  $nxdnloss        = $loss;
                  $nxdnber         = $ber;
                  $nxdnrssi        = $rssi;
                  break;
            }
         }
      } else {
         if (!$onlyLast)
            continue;
      }
      $timestamp = substr($logLine, 3, 23);
      $mode = substr($logLine, 27, strpos($logLine,",") - 27);
      if ($topos = strpos($logLine, "to follow)")) {
         $topos = strpos($logLine, "to", $topos+1);
      } else {
         $topos = strpos($logLine, "to");
      }
      $callsign2 = substr($logLine, strpos($logLine,"from") + 5, $topos - strpos($logLine,"from") - 6);
      $callsign = $callsign2;
      if (strpos($callsign2,"/") > 0) {
         $callsign = substr($callsign2, 0, strpos($callsign2,"/"));
      }
      $callsign = trim($callsign);
      if (defined("USESQLITE")) {
         if (is_numeric($callsign)) {
            $callsign = getCallsignFromDB($callsign);
         }
      }
      $id ="";
      if ($mode == "D-Star") {
         $id = substr($callsign2, strpos($callsign2,"/") + 1);
         if(!$id)
             $id="";
      }

      $target = substr($logLine, $topos + 3);
      if (strpos($target,",") > 0)
         $target = substr($target, 0, strpos($target,","));
      $target = preg_replace('/\s/', '&nbsp;', $target);
      if (defined("RESOLVETGS")) {
         $target = $target." ".getTGName($target);
      }

      $source = "RF";
      if (strpos($logLine,"network") > 0 ) {
         $source = "Net";
      }

      switch ($mode) {
         case "D-Star":
            $duration   = $dstarduration;
            $loss       = $dstarloss;
            $ber        = $dstarber;
            $rssi       = $dstarrssi;
            break;
         case "DMR Slot 1":
            $duration   = $ts1duration;
            $loss       = $ts1loss;
            $ber        = $ts1ber;
            $rssi       = $ts1rssi;
            break;
         case "DMR Slot 2":
            $duration   = $ts2duration;
            $loss       = $ts2loss;
            $ber        = $ts2ber;
            $rssi       = $ts2rssi;
            break;
         case "YSF":
            $duration   = $ysfduration;
            $loss       = $ysfloss;
            $ber        = $ysfber;
            $rssi       = $ysfrssi;
            break;
         case "P25":
            $duration   = $p25duration;
            $loss       = $p25loss;
            $ber        = $p25ber;
            $rssi       = $p25rssi;
            break;
         case "NXDN":
            $duration   = $nxdnduration;
            $loss       = $nxdnloss;
            $ber        = $nxdnber;
            $rssi       = $nxdnrssi;
            break;
         case "POCSAG":
            $callsign   = "POCSAG";
            $name = "";
            $id = "";
            $target = "";
            $source = "";
            $duration   = "";
            $loss       = "";
            $ber        = "";
            $rssi       = "";
            $alias = "";
            break;
      }
      // Callsign or ID should be less than 11 chars long, otherwise it could be errorneous
      if ( strlen($callsign) < 11 ) {
         $name = "";
         if (defined("ENABLEXTDLOOKUP")) {
            if (getEnabled("D-Star", getMMDVMConfig()) == 1) {
               array_push($heardList, array(convertTimezone($timestamp), $mode, $callsign, $name, $id, $target, $source, $duration, $loss, $ber, $rssi, $alias));
            } else {
               array_push($heardList, array(convertTimezone($timestamp), $mode, $callsign, $name, $target, $source, $duration, $loss, $ber, $rssi, $alias));
            }
            $alias = "";
         } else {
            if (getEnabled("D-Star", getMMDVMConfig()) == 1) {
               array_push($heardList, array(convertTimezone($timestamp), $mode, $callsign, $id, $target, $source, $duration, $loss, $ber, $rssi, $alias));
            } else {
               array_push($heardList, array(convertTimezone($timestamp), $mode, $callsign, $target, $source, $duration, $loss, $ber, $rssi, $alias));
            }
            $alias = "";
         }
         $duration   = "";
         $loss       = "";
         $ber        = "";
         $rssi       = "";
         $ts1alias   = "---";
         $ts2alias   = "---";
         if ($onlyLast && count($heardList )> 20) {
            return $heardList;
         }
      }
      $duration   = "";
      $loss       = "";
      $ber        = "";
      $rssi       = "";
      $ts1alias   = "---";
      $ts2alias   = "---";
   }
   return $heardList;
}

// 00000000001111111111222222222233333333334444444444555555555566666666667777777777888888888899999999990000000000111111111122
// 01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901
// D: 2020-09-21 18:16:12.814 Messages in Queue 0002
// M: 2020-09-21 18:16:12.824 Sending message in slot 13 to 0000216, type 6, func Alphanumeric: "YYYYMMDDHHMMSS200921181600"
// D: 2020-09-21 18:16:12.825 Messages in Queue 0001
// D: 2020-09-21 18:17:00.036 Queueing message to 0000208, type 6, func Alphanumeric: "XTIME=2017210920XTIME=2017210920"
function getDAPNETTxList($logLines) {
   $DAPNETTxList = array();
   foreach ($logLines as $logLine) {
      if (strpos($logLine,"Sending")) {
         $timestamp = substr($logLine, 3, 23);
         $slot = substr($logLine,51, 2);
         if ($slot[1] == " ") {
            $target = substr($logLine,56, 7);
         } else {
            $target = substr($logLine,57, 7);
         }
         $message = substr($logLine,strpos($logLine, "\""));
         $message = substr($message,1 , -1);
         if ($target == "0004520")
            $message = rot1($message);
         array_push($DAPNETTxList, array(convertTimezone($timestamp), $slot, $target, $message));
      }
   }
   return $DAPNETTxList;
}

function getLastHeard($logLines, $onlyLast) {
   //returns last heard list from log
   $lastHeard  = array();
   $heardCalls = array();
   $heardList  = getHeardList($logLines, $onlyLast);
   $counter    = 0;
   foreach ($heardList as $listElem) {
      if ( ($listElem[1] == "D-Star") || ($listElem[1] == "YSF") || ($listElem[1] == "P25") || ($listElem[1] == "NXDN") || ($listElem[1] == "POCSAG") || (startsWith($listElem[1], "DMR")) ) {
         if(!(array_search($listElem[2]."#".$listElem[1].$listElem[4], $heardCalls) > -1)) {
            // Generate a canonicalized call for QRZ and name lookups
            $call_canon = preg_replace('/\s+\w$/', '', $listElem[2]);
            //remove suffix used sometimes in YSF (es: -FT2 , -991)
            if (strpos($call_canon,"-")!=false) {
                $call_canon = substr($call_canon, 0, strpos($call_canon, "-"));
            }
            array_push($heardCalls, $listElem[2]."#".$listElem[1].$listElem[4]);
            if (defined("ENABLEXTDLOOKUP")) {
               if ($listElem[2] !== "??????????") {
                  $listElem[3] = getName($call_canon); //Should speed up this function - time-issue!
               } else {
                  $listElem[3] = "---";
               }
            }
            if ($listElem[2] !== "??????????") {
               if (!is_numeric($listElem[2])) {
                  if (defined("SHOWQRZ")) {
                     $listElem[2] = "<a target=\"_new\" href=\"https://qrz.com/db/$call_canon\">".str_replace("0","&Oslash;",$listElem[2])."</a>";
                  } else {
                     $listElem[2] = "<a target=\"_new\" href=\"http://ham-digital.org/dmr-userreg.php?callsign=$call_canon\">".$listElem[2]."</a>";
                  }
               } else {
                  $listElem[2] = "<a target=\"_new\" href=\"http://ham-digital.org/dmr-userreg.php?usrid=$listElem[2]\">".$listElem[2]."</a>";
               }
            }
            array_push($lastHeard, $listElem);
            $counter++;
         }
      }
   }
   return $lastHeard;
}

function getActualMode($metaLastHeard, $mmdvmconfigs) {
   if (count($metaLastHeard) == 0)
      return _("idle");
   // returns mode of repeater actual working in
   $listElem   = $metaLastHeard[0];
   $timestamp  = new DateTime($listElem[0],new DateTimeZone(TIMEZONE));
   $timestamp2 = $timestamp;
   $timestamp2->add(new DateInterval('PT3S'));
   $mode       = $listElem[1];
   if (startsWith($mode, "DMR")) {
      $mode = "DMR";
   }
   $now = new DateTime('NOW',new DateTimeZone(TIMEZONE));
   if (defined("ENABLEXTDLOOKUP") && $listElem[7] == null && $mode != "POCSAG" || !defined("ENABLEXTDLOOKUP") && $listElem[6] == null && $mode != "POCSAG" || $mode == "POCSAG" && $now->format('U') <= $timestamp2->format('U') ) {
      return "<span class=\"badge badge-danger\">".$mode."</span>";
   } else {
      
      $hangtime   = getConfigItem("General", "ModeHang", $mmdvmconfigs);

      if ($hangtime != "") {
         $timestamp->add(new DateInterval('PT' . $hangtime . 'S'));
      } else {
         $source = $listElem[6];
         if ($source === "Net") {
            $hangtime = getConfigItem("General", "NetModeHang", $mmdvmconfigs);
         } else {
            $hangtime = getConfigItem("General", "RFModeHang", $mmdvmconfigs);
         }
         $timestamp->add(new DateInterval('PT' . $hangtime . 'S'));
      }
      if ($now->format('U') > $timestamp->format('U')) {
         return _("idle");
      } else {
         return "<span class=\"badge badge-warning\">".$mode."</span>";
      }
   }
}

function getDSTARLinks() {
   // returns link-states of all D-Star-modules
   if (filesize(LINKLOGPATH."/Links.log") == 0) {
      return "not linked";
   }
   $out = "<table>";
   if ($linkLog = fopen(LINKLOGPATH."/Links.log",'r')) {
      while ($linkLine = fgets($linkLog)) {
         $linkDate   = "&nbsp;";
         $protocol   = "&nbsp;";
         $linkType   = "&nbsp;";
         $linkSource = "&nbsp;";
         $linkDest   = "&nbsp;";
         $linkDir    = "&nbsp;";
// Reflector-Link, sample:
// 2011-09-22 02:15:06: DExtra link - Type: Repeater Rptr: DB0LJ  B Refl: XRF023 A Dir: Outgoing
// 2012-04-03 08:40:07: DPlus link - Type: Dongle Rptr: DB0ERK B Refl: REF006 D Dir: Outgoing
// 2012-04-03 08:40:07: DCS link - Type: Repeater Rptr: DB0ERK C Refl: DCS001 C Dir: Outgoing
         if(preg_match_all('/^(.{19}).*(D[A-Za-z]*).*Type: ([A-Za-z]*).*Rptr: (.{8}).*Refl: (.{8}).*Dir: (.{8})/',$linkLine,$linx) > 0){
            $linkDate   = $linx[1][0];
            $protocol   = $linx[2][0];
            $linkType   = $linx[3][0];
            $linkSource = $linx[4][0];
            $linkDest   = $linx[5][0];
            $linkDir    = $linx[6][0];
         }
// CCS-Link, sample:
// 2013-03-30 23:21:53: CCS link - Rptr: PE1AGO C Remote: PE1KZU  Dir: Incoming
         if(preg_match_all('/^(.{19}).*(CC[A-Za-z]*).*Rptr: (.{8}).*Remote: (.{8}).*Dir: (.{8})/',$linkLine,$linx) > 0){
            $linkDate   = $linx[1][0];
            $protocol   = $linx[2][0];
            $linkType   = $linx[2][0];
            $linkSource = $linx[3][0];
            $linkDest   = $linx[4][0];
            $linkDir    = $linx[5][0];
         }
// Dongle-Link, sample:
// 2011-09-24 07:26:59: DPlus link - Type: Dongle User: DC1PIA Dir: Incoming
// 2012-03-14 21:32:18: DPlus link - Type: Dongle User: DC1PIA Dir: Incoming
         if(preg_match_all('/^(.{19}).*(D[A-Za-z]*).*Type: ([A-Za-z]*).*User: (.{6,8}).*Dir: (.*)$/',$linkLine,$linx) > 0){
            $linkDate   = $linx[1][0];
            $protocol   = $linx[2][0];
            $linkType   = $linx[3][0];
            $linkSource = "&nbsp;";
            $linkDest   = $linx[4][0];
            $linkDir    = $linx[5][0];
         }
         $out .= "<tr>" . $linkSource . "&nbsp;" . $protocol . "-link&nbsp;to&nbsp;" . $linkDest . "&nbsp;" . $linkDir . "</tr>";
      }
   }
   $out .= "</table>";

   fclose($linkLog);
   return $out;
}

function getActualLink($logLines, $mode) {
   // returns actual link state of specific mode
//M: 2016-05-02 07:04:10.504 D-Star link status set to "Verlinkt zu DCS002 S"
//M: 2016-04-03 16:16:18.638 DMR Slot 2, received network voice header from 4000 to 2625094
//M: 2016-04-03 19:30:03.099 DMR Slot 2, received network voice header from 4020 to 2625094

   switch ($mode) {
      case "D-Star":
         if (isProcessRunning(IRCDDBGATEWAY)) {
            return getDSTARLinks();
         } else {
            return _("ircddbgateway not running!");
         }
         break;
      case "DMR Slot 1":
         foreach ($logLines as $logLine) {
            if(strpos($logLine,"unable to decode the network CSBK")) {
               continue;
            } else if(substr($logLine, 27, strpos($logLine,",") - 27) == "DMR Slot 1") {
               $to = "";
               if (strpos($logLine,"to")) {
                  $to = trim(substr($logLine, strpos($logLine,"to") + 3));
                  $to = substr($to, 0, strpos($to,","));
               }
               if ($to !== "") {
                  $fp = fopen('/tmp/DMR1State.txt', 'w');
                  fwrite($fp, $to);
                  fclose($fp);
                  return $to;
               }
            }
         }
         if (file_exists('/tmp/DMR1State.txt')) {
           $fp         = fopen('/tmp/DMR1State.txt', 'r');
           $contents   = fread($fp, filesize("/tmp/DMR1State.txt"));
           fclose($fp);
           if (count($contents)>0){
              return $contents;
           } else {
              return _("not linked");
           }
         } else {
         	return _("not linked");
         }
         break;
      case "DMR Slot 2":
         foreach ($logLines as $logLine) {
            if(strpos($logLine,"unable to decode the network CSBK")) {
               continue;
            } else if(substr($logLine, 27, strpos($logLine,",") - 27) == "DMR Slot 2") {
               $to = "";
               if (strpos($logLine,"to")) {
                  $to = trim(substr($logLine, strpos($logLine,"to") + 3));
                  $to = trim(substr($logLine, strpos($logLine,"to") + 3));
                  $to = substr($to, 0, strpos($to,","));

               }
               if ($to !== "") {
                  $fp = fopen('/tmp/DMR2State.txt', 'w');
                  fwrite($fp, $to);
                  fclose($fp);
                  return $to;
               }
            }
         }
         if (file_exists('/tmp/DMR2State.txt')) {
           $fp         = fopen('/tmp/DMR2State.txt', 'r');
           $contents   = fread($fp, filesize("/tmp/DMR2State.txt"));
           fclose($fp);
           if (count($contents)>0){
              return $contents;
           } else {
              return _("not linked");
           }
         } else {
         	return _("not linked");
         }
         break;
      case "YSF":

// 00000000001111111111222222222233333333334444444444555555555566666666667777777777888888888899999999990000000000111111111122
// 01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901
//I: 2018-06-04 11:04:22.190 The ID of this repeater is 50735
//M: 2018-06-04 11:04:22.202 No connection startup
//M: 2018-06-04 11:04:24.005 Linked to IT C4FM Piemonte

         if (isProcessRunning("YSFGateway")) {
            foreach($logLines as $logLine) {
               $to = "";
               if (strpos($logLine,"Disconnect") || strpos($logLine, "Unknown reflector") || strpos($logLine, "Disconnecting due to inactivity") || strpos($logLine, "No connection startup")) {
                  return _("not linked");
               }
               if (strpos($logLine,"Linked to")) {
                  $to = substr($logLine, 37, 16);
                  if ($to == "MMDVM" )
                    continue;

               }
               if ($to !== "") {
                  $fp = fopen('/tmp/YSFState.txt', 'w');
                  fwrite($fp, $to);
                  fclose($fp);
                  return $to;
               }
            }
         
		if ( ($to == "") && file_exists('/tmp/YSFState.txt')) { // reflector is in yesterday's log 
			$logPath2    = YSFGATEWAYLOGPATH."/".YSFGATEWAYLOGPREFIX."-".date('Y-m-d',strtotime(date('Y-m-d').' -1 day')).".log"; //open yesterday's log
			$logLines2   = explode("\n", `egrep -h "Linked to" $logPath2`);
			$to = "";
			foreach($logLines2 as $logLine) {
				  if ($logLine!=='') {
					$to = substr($logLine, 37, 16);
					if ($to == "MMDVM" )
						continue;
				  }
				}
			if ($to !== "") {
				  $fp = fopen('/tmp/YSFState.txt', 'w');
				  fwrite($fp, $to);
				  fclose($fp);
				  return $to;
			   }
		}
		 
	 } else {
         	return _("YSFGateway not running");
         }
         if (file_exists('/tmp/YSFState.txt')) {
           $fp         = fopen('/tmp/YSFState.txt', 'r');
           $contents   = fread($fp, filesize("/tmp/YSFState.txt"));
           fclose($fp);
           if (count($contents)>0){
              return $contents;
           } else {
	      return _("not linked");
           }
         } else {
	   return _("not linked");
         }
         break;
   }
   return _("something went wrong!");
}

function getActualReflector($logLines, $mode) {
   $to = getActualReflector2($logLines, $mode);
   if ($to >= -1 ) {
      $fp = fopen('/tmp/DMR2RefState.txt', 'w');
      fwrite($fp, $to);
      fclose($fp);
      if ($to == -1) {
         return _("Reflector not linked");
      } else {
         return $to;
      }
   }

   if (file_exists('/tmp/DMR2RefState.txt')) {
      $fp         = fopen('/tmp/DMR2RefState.txt', 'r');
      $contents   = fread($fp, filesize("/tmp/DMR2RefState.txt"));
      fclose($fp);
      if (count($contents)>0){
         return $contents;
      } else {
         return _("not linked");
      }
   }
}

function getActualReflector2($logLines, $mode) {
   // returns actual link state of specific mode
//M: 2016-05-02 07:04:10.504 D-Star link status set to "Verlinkt zu DCS002 S"
//M: 2016-04-03 16:16:18.638 DMR Slot 2, received network voice header from 4000 to 2625094
//M: 2016-04-03 19:30:03.099 DMR Slot 2, received network voice header from 4020 to 2625094
   foreach ($logLines as $logLine) {
      if(substr($logLine, 27, strpos($logLine,",") - 27) == "DMR Slot 2") {
         $from = substr($logLine, strpos($logLine,"from") + 5, strpos($logLine,"to") - strpos($logLine,"from") - 6);

         if (strlen($from) == 4 && startsWith($from,"4")) {
            if ($from == "4000") {
               return -1;
            } else {
               return _("Reflector")." ".$from;
            }
         }
         $source = "RF";
         if (strpos($logLine,"network") > 0 ) {
            $source = "Net";
         }

         if ( $source == "RF") {
            $to = substr($logLine, strpos($logLine, "to") + 3);
            if (strlen($to) < 6 && startsWith($to, "4")) {
               return _("Reflector")." ".$to." ("._("not cfmd").")";
            }
         }
      }
   }
   return -1;
}

function getActiveYSFReflectors() {
   $reflectorlist = Array();
   $file = fopen(YSFHOSTSPATH."/".YSFHOSTSFILENAME, 'r');
   if ($file) {
      while (($line = fgetcsv($file, 1000, ";")) !== FALSE) {
         array_push($reflectorlist, array($line[1], $line[6],$line[2], $line[0], $line[5]));
      }
   }
   fclose($file);
   return $reflectorlist;
}

function getName($callsign) {
   if (defined("USESQLITE")) {
      return resolveNameFromDB($callsign);
   } else {
      if (is_numeric($callsign)) {
         return "---";
      }
      return resolveNameFromFile($callsign);
   }
}

function resolveNameFromDB($callsign) {
   $db = new SQLite3('database/callsigns.db');
   if (is_numeric($callsign))
      $results = $db->query("SELECT distinct name FROM callsign where id = '$callsign'");
   else
      $results = $db->query("SELECT distinct name FROM callsign where callsign = '$callsign'");
   while ($row = $results->fetchArray()) {
      return $row['name'];
   }
   return "---";
}

function resolveNameFromFile($callsign) {
   $TMP_CALL_NAME = "/tmp/Callsign_Name.txt";
   if (file_exists($TMP_CALL_NAME)) {
      $callsign = trim($callsign);
      if (strpos($callsign,"-")) {
         $callsign = substr($callsign,0,strpos($callsign,"-"));
      }
      $delimiter =" ";
      exec("egrep -m1 '".$callsign.$delimiter."' ".$TMP_CALL_NAME, $output);
      if (count($output) !== 0) {
         $name = substr($output[0], strpos($output[0],$delimiter));
         $name = substr($name, strpos($name,$delimiter));
         return $name;
      }
   }

   if (file_exists(DMRIDDATPATH)) {
      $callsign = trim($callsign);
      if (strpos($callsign,"-")) {
         $callsign = substr($callsign,0,strpos($callsign,"-"));
      }
      $delimiter =" ";
      exec("sed -e 's/[[:space:]]\+/ /g' ".DMRIDDATPATH ." | grep -m1 '".$callsign.$delimiter."'" , $output);
      if (count($output) !== 0) {
         $name = preg_replace('/[\x00-\x1F\x7F-\xA0\xAD]/u', '', substr($output[0], strpos($output[0],$delimiter)+1));
         $name = substr($name, strpos($name,$delimiter)+1);

         $fp = fopen($TMP_CALL_NAME .'.TMP', 'a');
	 $TMP_STRING = $callsign .' '  .$name;
         fwrite($fp, $TMP_STRING.PHP_EOL);
         fclose($fp);
	 exec('sort ' .$TMP_CALL_NAME.'.TMP' .' ' .$TMP_CALL_NAME .' | uniq  > ' .$TMP_CALL_NAME);
         return $name;
      } else
         return "---";
   } else {
      return _("DMRIDs.dat not correct!");
   }
}

function getCallsignFromDB($id) {
   $db = new SQLite3('database/callsigns.db');
   $results = $db->query("SELECT distinct callsign FROM callsign where id = '$id'");
   while ($row = $results->fetchArray()) {
      return $row['callsign'];
   }
   return $id;
}

// 00000000001111111111222222222233333333334444444444555555555566666666667777777777888888888899999999990000000000111111111122
// 01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901
// M: 2017-02-13 15:53:30.991 0000:  04 00 5E 49 57 38 44 59 94                         *..^IW8DY.*
// M: 2017-02-13 15:53:31.253 0000:  05 00 20 47 69 6F 76 61 DC                         *.. Giova.*
function decodeAlias($logLine) {
  if (substr($logLine, 34, 2) !=="04")
    $tok1 = encode(substr($logLine, 40, 2));
  else
  $tok1 = "";
  $tok2 = encode(substr($logLine, 43, 2));
  $tok3 = encode(substr($logLine, 46, 2));
  $tok4 = encode(substr($logLine, 49, 2));
  $tok5 = encode(substr($logLine, 52, 2));
  $tok6 = encode(substr($logLine, 55, 2));
  $tok7 = encode(substr($logLine, 58, 2));
  return $tok1.$tok2.$tok3.$tok4.$tok5.$tok6.$tok7;
}

function getGitVersion(){
	if (file_exists(".git")) {
		exec("git rev-parse --short HEAD", $output);
		return 'GitID #<a href="https://github.com/dg9vh/MMDVMHost-Dashboard/commit/'.$output[0].'" target="_blank">'.$output[0].'</a>';
	} else {
		return 'GitID unknown';
	}
}

function getDMRReflectors() {
	$data   = file_get_contents("http://ham-dmr.de/reflector.db");
    $rows   = explode("\n",$data);
    $refls  = array();
    foreach($rows as $row) {
        $refls[] = str_getcsv($row,"@",'');
    }
    return $refls;
}

function getDMRplusDMRMasterList() {
  $data   = file_get_contents("http://ham-dmr.de/dmr/dmrmaster2.php");
  $rows   = explode("\n",$data);
  $s      = array();
  foreach($rows as $row) {
    $s[] = str_getcsv($row,"@",'');
  }
  return $s;
}
function getTGList() {
  $list = array_map('str_getcsv', file(getcwd().'/database/tgs.csv'));
  return $list;
}

function getTGName($id) {
  global $tgList;
  $name ="";
  if (startsWith($id, "TG")) {
    $name = $tgList[recursive_array_search(substr($id, 8), $tgList)][2];
//    $name = substr($id, 8);
    return "(".$name.")";

  } else {
    return $name;
  }
}
?>