[Bandmap] Rewrote dxcc if to it's own class. Refactored to dxcluster_model
这个提交包含在：
Andreas
父节点
04d09b5783
当前提交
8b14ac6646
共有 4 个文件被更改，包括 392 次插入 和 105 次删除
|
|
@ -7,7 +7,7 @@ class Dxcluster extends CI_Controller {
|
||||||
parent::__construct();
|
parent::__construct();
|
||||||
$this->load->model('user_model');
|
$this->load->model('user_model');
|
||||||
if(!$this->user_model->authorize(2)) { $this->session->set_flashdata('notice', 'You\'re not allowed to do that!'); redirect('dashboard'); }
|
if(!$this->user_model->authorize(2)) { $this->session->set_flashdata('notice', 'You\'re not allowed to do that!'); redirect('dashboard'); }
|
||||||
$this->load->model('logbook_model');
|
$this->load->model('dxcluster_model');
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -18,7 +18,7 @@ class Dxcluster extends CI_Controller {
|
||||||
if ($de == '') {
|
if ($de == '') {
|
||||||
$de = $this->optionslib->get_option('dxcluster_decont');
|
$de = $this->optionslib->get_option('dxcluster_decont');
|
||||||
}
|
}
|
||||||
$calls_found=$this->logbook_model->dxc_spotlist($band, $age, $de);
|
$calls_found=$this->dxcluster_model->dxc_spotlist($band, $age, $de);
|
||||||
header('Content-Type: application/json');
|
header('Content-Type: application/json');
|
||||||
if ($calls_found) {
|
if ($calls_found) {
|
||||||
echo json_encode($calls_found, JSON_PRETTY_PRINT);
|
echo json_encode($calls_found, JSON_PRETTY_PRINT);
|
||||||
|
|
@ -28,7 +28,7 @@ class Dxcluster extends CI_Controller {
|
||||||
}
|
}
|
||||||
|
|
||||||
function qrg_lookup($qrg) {
|
function qrg_lookup($qrg) {
|
||||||
$call_found=$this->logbook_model->dxc_qrg_lookup($this->security->xss_clean($qrg));
|
$call_found=$this->dxcluster_model->dxc_qrg_lookup($this->security->xss_clean($qrg));
|
||||||
header('Content-Type: application/json');
|
header('Content-Type: application/json');
|
||||||
if ($call_found) {
|
if ($call_found) {
|
||||||
echo json_encode($call_found, JSON_PRETTY_PRINT);
|
echo json_encode($call_found, JSON_PRETTY_PRINT);
|
||||||
|
|
@ -38,6 +38,7 @@ class Dxcluster extends CI_Controller {
|
||||||
}
|
}
|
||||||
|
|
||||||
function call($call) {
|
function call($call) {
|
||||||
|
$this->load->model('logbook_model');
|
||||||
|
|
||||||
$date = date('Ymd', time());
|
$date = date('Ymd', time());
|
||||||
$dxcc = $this->logbook_model->dxcc_lookup($call, $date);
|
$dxcc = $this->logbook_model->dxcc_lookup($call, $date);
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,113 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
use Cloudlog\Dxcc\Dxcc;
|
||||||
|
|
||||||
|
class Dxcluster_model extends CI_Model {
|
||||||
|
public function dxc_spotlist($band = '20m', $maxage = 60, $de = '') {
|
||||||
|
$this->load->helper(array('psr4_autoloader'));
|
||||||
|
$CI =& get_instance();
|
||||||
|
if ( ($this->optionslib->get_option('dxcache_url') != '') ) {
|
||||||
|
$dxcache_url = $this->optionslib->get_option('dxcache_url').'/spots/';
|
||||||
|
$CI->load->model('logbooks_model');
|
||||||
|
$CI->load->model('logbook_model');
|
||||||
|
$logbooks_locations_array = $CI->logbooks_model->list_logbook_relationships($this->session->userdata('active_station_logbook'));
|
||||||
|
|
||||||
|
// CURL Functions
|
||||||
|
$ch = curl_init();
|
||||||
|
curl_setopt($ch, CURLOPT_URL, $dxcache_url);
|
||||||
|
curl_setopt($ch, CURLOPT_USERAGENT, 'Cloudlog DXLookup');
|
||||||
|
curl_setopt($ch, CURLOPT_HEADER, false);
|
||||||
|
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
|
||||||
|
$jsonraw = curl_exec($ch);
|
||||||
|
curl_close($ch);
|
||||||
|
$json = json_decode($jsonraw);
|
||||||
|
$date = date('Ymd', time());
|
||||||
|
|
||||||
|
$dxccObj = new DXCC($date);
|
||||||
|
|
||||||
|
// Create JSON object
|
||||||
|
if (strlen($jsonraw)>20) {
|
||||||
|
$spotsout=[];
|
||||||
|
foreach($json as $singlespot){
|
||||||
|
$spotband = $CI->frequency->GetBand($singlespot->frequency*1000);
|
||||||
|
$singlespot->band=$spotband;
|
||||||
|
if ($band != $spotband) { continue; }
|
||||||
|
$datetimecurrent = new DateTime("now", new DateTimeZone('UTC')); // Today's Date/Time
|
||||||
|
$datetimespot = new DateTime($singlespot->when, new DateTimeZone('UTC'));
|
||||||
|
$spotage = $datetimecurrent->diff($datetimespot);
|
||||||
|
$minutes = $spotage->days * 24 * 60;
|
||||||
|
$minutes += $spotage->h * 60;
|
||||||
|
$minutes += $spotage->i;
|
||||||
|
$singlespot->age=$minutes;
|
||||||
|
|
||||||
|
|
||||||
|
if ($minutes<=$maxage) {
|
||||||
|
if (!(property_exists($singlespot,'dxcc_spotted'))) { // Check if we already have dxcc of spotted
|
||||||
|
$dxcc=$dxccObj->dxcc_lookup($singlespot->spotted,date('Ymd', time()));
|
||||||
|
$singlespot->dxcc_spotted=$dxcc;
|
||||||
|
}
|
||||||
|
if (!(property_exists($singlespot,'dxcc_spotter'))) { // Check if we already have dxcc of spotter
|
||||||
|
$dxcc=$dxccObj->dxcc_lookup($singlespot->spotter,date('Ymd', time()));
|
||||||
|
$singlespot->dxcc_spotter=$dxcc;
|
||||||
|
}
|
||||||
|
if ( ($de != '') && (array_key_exists('cont',$dxcc)) ){
|
||||||
|
if ($de == $dxcc['cont']) {
|
||||||
|
$singlespot->worked_call = ($this->logbook_model->check_if_callsign_worked_in_logbook($singlespot->spotted, $logbooks_locations_array, $singlespot->band) == 1);
|
||||||
|
array_push($spotsout,$singlespot);
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$singlespot->worked_call = ($this->logbook_model->check_if_callsign_worked_in_logbook($singlespot->spotted, $logbooks_locations_array, $singlespot->band) == 1);
|
||||||
|
array_push($spotsout,$singlespot);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return ($spotsout);
|
||||||
|
} else {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
public function dxc_qrg_lookup($qrg, $maxage = 120) {
|
||||||
|
$this->load->helper(array('psr4_autoloader'));
|
||||||
|
if ( ($this->optionslib->get_option('dxcache_url') != '') && (is_numeric($qrg)) ) {
|
||||||
|
$dxcache_url = $this->optionslib->get_option('dxcache_url').'/spot/'.$qrg;
|
||||||
|
|
||||||
|
// CURL Functions
|
||||||
|
$ch = curl_init();
|
||||||
|
curl_setopt($ch, CURLOPT_URL, $dxcache_url);
|
||||||
|
curl_setopt($ch, CURLOPT_USERAGENT, 'Cloudlog DXLookup by QRG');
|
||||||
|
curl_setopt($ch, CURLOPT_HEADER, false);
|
||||||
|
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
|
||||||
|
$jsonraw = curl_exec($ch);
|
||||||
|
curl_close($ch);
|
||||||
|
$json = json_decode($jsonraw);
|
||||||
|
|
||||||
|
$date = date('Ymd', time());
|
||||||
|
|
||||||
|
$dxccObj = new DXCC($date);
|
||||||
|
|
||||||
|
// Create JSON object
|
||||||
|
if (strlen($jsonraw)>20) {
|
||||||
|
$datetimecurrent = new DateTime("now", new DateTimeZone('UTC')); // Today's Date/Time
|
||||||
|
$datetimespot = new DateTime($json->when, new DateTimeZone('UTC'));
|
||||||
|
$spotage = $datetimecurrent->diff($datetimespot);
|
||||||
|
$minutes = $spotage->days * 24 * 60;
|
||||||
|
$minutes += $spotage->h * 60;
|
||||||
|
$minutes += $spotage->i;
|
||||||
|
$json->age=$minutes;
|
||||||
|
if ($minutes<=$maxage) {
|
||||||
|
$dxcc=$dxccObj->dxcc_lookup($json->spotter,date('Ymd', time()));
|
||||||
|
$json->dxcc_spotter=$dxcc;
|
||||||
|
return ($json);
|
||||||
|
} else {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -3992,103 +3992,6 @@ class Logbook_model extends CI_Model {
|
||||||
}
|
}
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
public function dxc_spotlist($band = '20m',$maxage = 60, $de = '') {
|
|
||||||
$CI =& get_instance();
|
|
||||||
if ( ($this->optionslib->get_option('dxcache_url') != '') ) {
|
|
||||||
$dxcache_url = $this->optionslib->get_option('dxcache_url').'/spots/';
|
|
||||||
$CI->load->model('logbooks_model');
|
|
||||||
$logbooks_locations_array = $CI->logbooks_model->list_logbook_relationships($this->session->userdata('active_station_logbook'));
|
|
||||||
|
|
||||||
// CURL Functions
|
|
||||||
$ch = curl_init();
|
|
||||||
curl_setopt($ch, CURLOPT_URL, $dxcache_url);
|
|
||||||
curl_setopt($ch, CURLOPT_USERAGENT, 'Cloudlog DXLookup');
|
|
||||||
curl_setopt($ch, CURLOPT_HEADER, false);
|
|
||||||
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
|
|
||||||
$jsonraw = curl_exec($ch);
|
|
||||||
curl_close($ch);
|
|
||||||
$json = json_decode($jsonraw);
|
|
||||||
|
|
||||||
// Create JSON object
|
|
||||||
if (strlen($jsonraw)>20) {
|
|
||||||
$spotsout=[];
|
|
||||||
foreach($json as $singlespot){
|
|
||||||
$spotband = $CI->frequency->GetBand($singlespot->frequency*1000);
|
|
||||||
$singlespot->band=$spotband;
|
|
||||||
if ($band != $spotband) { continue; }
|
|
||||||
$datetimecurrent = new DateTime("now", new DateTimeZone('UTC')); // Today's Date/Time
|
|
||||||
$datetimespot = new DateTime($singlespot->when, new DateTimeZone('UTC'));
|
|
||||||
$spotage = $datetimecurrent->diff($datetimespot);
|
|
||||||
$minutes = $spotage->days * 24 * 60;
|
|
||||||
$minutes += $spotage->h * 60;
|
|
||||||
$minutes += $spotage->i;
|
|
||||||
$singlespot->age=$minutes;
|
|
||||||
if ($minutes<=$maxage) {
|
|
||||||
if (!(property_exists($singlespot,'dxcc_spotted'))) { // Check if we already have dxcc of spotted
|
|
||||||
$dxcc=$this->dxcc_lookup($singlespot->spotted,date('Ymd', time()));
|
|
||||||
$singlespot->dxcc_spotted=$dxcc;
|
|
||||||
}
|
|
||||||
if (!(property_exists($singlespot,'dxcc_spotter'))) { // Check if we already have dxcc of spotter
|
|
||||||
$dxcc=$this->dxcc_lookup($singlespot->spotter,date('Ymd', time()));
|
|
||||||
$singlespot->dxcc_spotter=$dxcc;
|
|
||||||
}
|
|
||||||
if ( ($de != '') && (array_key_exists('cont',$dxcc)) ){
|
|
||||||
if ($de == $dxcc['cont']) {
|
|
||||||
$singlespot->worked_call = ($this->check_if_callsign_worked_in_logbook($singlespot->spotted, $logbooks_locations_array, $singlespot->band) == 1);
|
|
||||||
array_push($spotsout,$singlespot);
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
$singlespot->worked_call = ($this->check_if_callsign_worked_in_logbook($singlespot->spotted, $logbooks_locations_array, $singlespot->band) == 1);
|
|
||||||
array_push($spotsout,$singlespot);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return ($spotsout);
|
|
||||||
} else {
|
|
||||||
return '';
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
return '';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
public function dxc_qrg_lookup($qrg, $maxage = 120) {
|
|
||||||
if ( ($this->optionslib->get_option('dxcache_url') != '') && (is_numeric($qrg)) ) {
|
|
||||||
$dxcache_url = $this->optionslib->get_option('dxcache_url').'/spot/'.$qrg;
|
|
||||||
|
|
||||||
// CURL Functions
|
|
||||||
$ch = curl_init();
|
|
||||||
curl_setopt($ch, CURLOPT_URL, $dxcache_url);
|
|
||||||
curl_setopt($ch, CURLOPT_USERAGENT, 'Cloudlog DXLookup by QRG');
|
|
||||||
curl_setopt($ch, CURLOPT_HEADER, false);
|
|
||||||
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
|
|
||||||
$jsonraw = curl_exec($ch);
|
|
||||||
curl_close($ch);
|
|
||||||
$json = json_decode($jsonraw);
|
|
||||||
|
|
||||||
// Create JSON object
|
|
||||||
if (strlen($jsonraw)>20) {
|
|
||||||
$datetimecurrent = new DateTime("now", new DateTimeZone('UTC')); // Today's Date/Time
|
|
||||||
$datetimespot = new DateTime($json->when, new DateTimeZone('UTC'));
|
|
||||||
$spotage = $datetimecurrent->diff($datetimespot);
|
|
||||||
$minutes = $spotage->days * 24 * 60;
|
|
||||||
$minutes += $spotage->h * 60;
|
|
||||||
$minutes += $spotage->i;
|
|
||||||
$json->age=$minutes;
|
|
||||||
if ($minutes<=$maxage) {
|
|
||||||
$dxcc=$this->dxcc_lookup($json->spotter,date('Ymd', time()));
|
|
||||||
$json->dxcc_spotter=$dxcc;
|
|
||||||
return ($json);
|
|
||||||
} else {
|
|
||||||
return '';
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
return '';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
function validateADIFDate($date, $format = 'Ymd')
|
function validateADIFDate($date, $format = 'Ymd')
|
||||||
|
|
|
||||||
270
src/Dxcc/Dxcc.php
普通文件
270
src/Dxcc/Dxcc.php
普通文件
|
|
@ -0,0 +1,270 @@
|
||||||
|
<?php
|
||||||
|
|
||||||
|
namespace Cloudlog\Dxcc;
|
||||||
|
|
||||||
|
class Dxcc {
|
||||||
|
protected $dxcc = array();
|
||||||
|
protected $dxccexceptions = array();
|
||||||
|
|
||||||
|
function __construct($date)
|
||||||
|
{
|
||||||
|
$this->read_data($date);
|
||||||
|
}
|
||||||
|
|
||||||
|
public function dxcc_lookup($call, $date) {
|
||||||
|
|
||||||
|
$csadditions = '/^P$|^R$|^A$|^M$/';
|
||||||
|
$CI =& get_instance();
|
||||||
|
|
||||||
|
if (array_key_exists($call, $this->dxccexceptions)) {
|
||||||
|
return $this->dxccexceptions[$call];
|
||||||
|
} else {
|
||||||
|
|
||||||
|
if (preg_match('/(^KG4)[A-Z09]{3}/', $call)) { // KG4/ and KG4 5 char calls are Guantanamo Bay. If 4 or 6 char, it is USA
|
||||||
|
$call = "K";
|
||||||
|
} elseif (preg_match('/(^OH\/)|(\/OH[1-9]?$)/', $call)) { # non-Aland prefix!
|
||||||
|
$call = "OH"; # make callsign OH = finland
|
||||||
|
} elseif (preg_match('/(^CX\/)|(\/CX[1-9]?$)/', $call)) { # non-Antarctica prefix!
|
||||||
|
$call = "CX"; # make callsign CX = Uruguay
|
||||||
|
} elseif (preg_match('/(^3D2R)|(^3D2.+\/R)/', $call)) { # seems to be from Rotuma
|
||||||
|
$call = "3D2/R"; # will match with Rotuma
|
||||||
|
} elseif (preg_match('/^3D2C/', $call)) { # seems to be from Conway Reef
|
||||||
|
$call = "3D2/C"; # will match with Conway
|
||||||
|
} elseif (preg_match('/(^LZ\/)|(\/LZ[1-9]?$)/', $call)) { # LZ/ is LZ0 by DXCC but this is VP8h
|
||||||
|
$call = "LZ";
|
||||||
|
} elseif (preg_match('/(^KG4)[A-Z09]{2}/', $call)) {
|
||||||
|
$call = "KG4";
|
||||||
|
} elseif (preg_match('/(^KG4)[A-Z09]{1}/', $call)) {
|
||||||
|
$call = "K";
|
||||||
|
} elseif (preg_match('/\w\/\w/', $call)) {
|
||||||
|
if (preg_match_all('/^((\d|[A-Z])+\/)?((\d|[A-Z]){3,})(\/(\d|[A-Z])+)?(\/(\d|[A-Z])+)?$/', $call, $matches)) {
|
||||||
|
$prefix = $matches[1][0];
|
||||||
|
$callsign = $matches[3][0];
|
||||||
|
$suffix = $matches[5][0];
|
||||||
|
if ($prefix) {
|
||||||
|
$prefix = substr($prefix, 0, -1); # Remove the / at the end
|
||||||
|
}
|
||||||
|
if ($suffix) {
|
||||||
|
$suffix = substr($suffix, 1); # Remove the / at the beginning
|
||||||
|
};
|
||||||
|
if (preg_match($csadditions, $suffix)) {
|
||||||
|
if ($prefix) {
|
||||||
|
$call = $prefix;
|
||||||
|
} else {
|
||||||
|
$call = $callsign;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$result = $this->wpx($call, 1); # use the wpx prefix instead
|
||||||
|
if ($result == '') {
|
||||||
|
$row['adif'] = 0;
|
||||||
|
$row['entity'] = '- NONE -';
|
||||||
|
$row['cqz'] = 0;
|
||||||
|
$row['long'] = '0';
|
||||||
|
$row['lat'] = '0';
|
||||||
|
return $row;
|
||||||
|
} else {
|
||||||
|
$call = $result . "AA";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$len = strlen($call);
|
||||||
|
|
||||||
|
// query the table, removing a character from the right until a match
|
||||||
|
for ($i = $len; $i > 0; $i--){
|
||||||
|
$result = '';
|
||||||
|
|
||||||
|
if (array_key_exists(substr($call, 0, $i), $this->dxcc)) {
|
||||||
|
return $this->dxcc[substr($call, 0, $i)];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return array("Not Found", "Not Found");
|
||||||
|
}
|
||||||
|
|
||||||
|
function wpx($testcall, $i) {
|
||||||
|
$prefix = '';
|
||||||
|
$a = '';
|
||||||
|
$b = '';
|
||||||
|
$c = '';
|
||||||
|
|
||||||
|
$lidadditions = '/^QRP$|^LGT$/';
|
||||||
|
$csadditions = '/^P$|^R$|^A$|^M$|^LH$/';
|
||||||
|
$noneadditions = '/^MM$|^AM$/';
|
||||||
|
|
||||||
|
# First check if the call is in the proper format, A/B/C where A and C
|
||||||
|
# are optional (prefix of guest country and P, MM, AM etc) and B is the
|
||||||
|
# callsign. Only letters, figures and "/" is accepted, no further check if the
|
||||||
|
# callsign "makes sense".
|
||||||
|
# 23.Apr.06: Added another "/X" to the regex, for calls like RV0AL/0/P
|
||||||
|
# as used by RDA-DXpeditions....
|
||||||
|
|
||||||
|
if (preg_match_all('/^((\d|[A-Z])+\/)?((\d|[A-Z]){3,})(\/(\d|[A-Z])+)?(\/(\d|[A-Z])+)?$/', $testcall, $matches)) {
|
||||||
|
|
||||||
|
# Now $1 holds A (incl /), $3 holds the callsign B and $5 has C
|
||||||
|
# We save them to $a, $b and $c respectively to ensure they won't get
|
||||||
|
# lost in further Regex evaluations.
|
||||||
|
$a = $matches[1][0];
|
||||||
|
$b = $matches[3][0];
|
||||||
|
$c = $matches[5][0];
|
||||||
|
|
||||||
|
if ($a) {
|
||||||
|
$a = substr($a, 0, -1); # Remove the / at the end
|
||||||
|
}
|
||||||
|
if ($c) {
|
||||||
|
$c = substr($c, 1); # Remove the / at the beginning
|
||||||
|
};
|
||||||
|
|
||||||
|
# In some cases when there is no part A but B and C, and C is longer than 2
|
||||||
|
# letters, it happens that $a and $b get the values that $b and $c should
|
||||||
|
# have. This often happens with liddish callsign-additions like /QRP and
|
||||||
|
# /LGT, but also with calls like DJ1YFK/KP5. ~/.yfklog has a line called
|
||||||
|
# "lidadditions", which has QRP and LGT as defaults. This sorts out half of
|
||||||
|
# the problem, but not calls like DJ1YFK/KH5. This is tested in a second
|
||||||
|
# try: $a looks like a call (.\d[A-Z]) and $b doesn't (.\d), they are
|
||||||
|
# swapped. This still does not properly handle calls like DJ1YFK/KH7K where
|
||||||
|
# only the OP's experience says that it's DJ1YFK on KH7K.
|
||||||
|
if (!$c && $a && $b) { # $a and $b exist, no $c
|
||||||
|
if (preg_match($lidadditions, $b)) { # check if $b is a lid-addition
|
||||||
|
$b = $a;
|
||||||
|
$a = null; # $a goes to $b, delete lid-add
|
||||||
|
} elseif ((preg_match('/\d[A-Z]+$/', $a)) && (preg_match('/\d$/', $b))) { # check for call in $a
|
||||||
|
$temp = $b;
|
||||||
|
$b = $a;
|
||||||
|
$a = $temp;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# *** Added later *** The check didn't make sure that the callsign
|
||||||
|
# contains a letter. there are letter-only callsigns like RAEM, but not
|
||||||
|
# figure-only calls.
|
||||||
|
|
||||||
|
if (preg_match('/^[0-9]+$/', $b)) { # Callsign only consists of numbers. Bad!
|
||||||
|
return null; # exit, undef
|
||||||
|
}
|
||||||
|
|
||||||
|
# Depending on these values we have to determine the prefix.
|
||||||
|
# Following cases are possible:
|
||||||
|
#
|
||||||
|
# 1. $a and $c undef --> only callsign, subcases
|
||||||
|
# 1.1 $b contains a number -> everything from start to number
|
||||||
|
# 1.2 $b contains no number -> first two letters plus 0
|
||||||
|
# 2. $a undef, subcases:
|
||||||
|
# 2.1 $c is only a number -> $a with changed number
|
||||||
|
# 2.2 $c is /P,/M,/MM,/AM -> 1.
|
||||||
|
# 2.3 $c is something else and will be interpreted as a Prefix
|
||||||
|
# 3. $a is defined, will be taken as PFX, regardless of $c
|
||||||
|
|
||||||
|
if (($a == null) && ($c == null)) { # Case 1
|
||||||
|
if (preg_match('/\d/', $b)) { # Case 1.1, contains number
|
||||||
|
preg_match('/(.+\d)[A-Z]*/', $b, $matches); # Prefix is all but the last
|
||||||
|
$prefix = $matches[1]; # Letters
|
||||||
|
} else { # Case 1.2, no number
|
||||||
|
$prefix = substr($b, 0, 2) . "0"; # first two + 0
|
||||||
|
}
|
||||||
|
} elseif (($a == null) && (isset($c))) { # Case 2, CALL/X
|
||||||
|
if (preg_match('/^(\d)/', $c)) { # Case 2.1, number
|
||||||
|
preg_match('/(.+\d)[A-Z]*/', $b, $matches); # regular Prefix in $1
|
||||||
|
# Here we need to find out how many digits there are in the
|
||||||
|
# prefix, because for example A45XR/0 is A40. If there are 2
|
||||||
|
# numbers, the first is not deleted. If course in exotic cases
|
||||||
|
# like N66A/7 -> N7 this brings the wrong result of N67, but I
|
||||||
|
# think that's rather irrelevant cos such calls rarely appear
|
||||||
|
# and if they do, it's very unlikely for them to have a number
|
||||||
|
# attached. You can still edit it by hand anyway..
|
||||||
|
if (preg_match('/^([A-Z]\d)\d$/', $matches[1])) { # e.g. A45 $c = 0
|
||||||
|
$prefix = $matches[1] . $c; # -> A40
|
||||||
|
} else { # Otherwise cut all numbers
|
||||||
|
preg_match('/(.*[A-Z])\d+/', $matches[1], $match); # Prefix w/o number in $1
|
||||||
|
$prefix = $match[1] . $c; # Add attached number
|
||||||
|
}
|
||||||
|
} elseif (preg_match($csadditions, $c)) {
|
||||||
|
preg_match('/(.+\d)[A-Z]*/', $b, $matches); # Known attachment -> like Case 1.1
|
||||||
|
$prefix = $matches[1];
|
||||||
|
} elseif (preg_match($noneadditions, $c)) {
|
||||||
|
return '';
|
||||||
|
} elseif (preg_match('/^\d\d+$/', $c)) { # more than 2 numbers -> ignore
|
||||||
|
preg_match('/(.+\d)[A-Z]* /', $b, $matches); # see above
|
||||||
|
$prefix = $matches[1][0];
|
||||||
|
} else { # Must be a Prefix!
|
||||||
|
if (preg_match('/\d$/', $c)) { # ends in number -> good prefix
|
||||||
|
$prefix = $c;
|
||||||
|
} else { # Add Zero at the end
|
||||||
|
$prefix = $c . "0";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} elseif (($a) && (preg_match($noneadditions, $c))) { # Case 2.1, X/CALL/X ie TF/DL2NWK/MM - DXCC none
|
||||||
|
return '';
|
||||||
|
} elseif ($a) {
|
||||||
|
# $a contains the prefix we want
|
||||||
|
if (preg_match('/\d$/', $a)) { # ends in number -> good prefix
|
||||||
|
$prefix = $a;
|
||||||
|
} else { # add zero if no number
|
||||||
|
$prefix = $a . "0";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
# In very rare cases (right now I can only think of KH5K and KH7K and FRxG/T
|
||||||
|
# etc), the prefix is wrong, for example KH5K/DJ1YFK would be KH5K0. In this
|
||||||
|
# case, the superfluous part will be cropped. Since this, however, changes the
|
||||||
|
# DXCC of the prefix, this will NOT happen when invoked from with an
|
||||||
|
# extra parameter $_[1]; this will happen when invoking it from &dxcc.
|
||||||
|
|
||||||
|
if (preg_match('/(\w+\d)[A-Z]+\d/', $prefix, $matches) && $i == null) {
|
||||||
|
$prefix = $matches[1][0];
|
||||||
|
}
|
||||||
|
return $prefix;
|
||||||
|
} else {
|
||||||
|
return '';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* Read cty.dat from AD1C
|
||||||
|
*/
|
||||||
|
function read_data($date) {
|
||||||
|
$CI =& get_instance();
|
||||||
|
$dxcc_exceptions = $CI->db->select('`entity`, `adif`, `cqz`, `start`, `end`, `call`, `cont`, `long`, `lat`')
|
||||||
|
->where('(start <= ', $date)
|
||||||
|
->or_where('start is null)', NULL, false)
|
||||||
|
->where('(end >= ', $date)
|
||||||
|
->or_where('end is null)', NULL, false)
|
||||||
|
->get('dxcc_exceptions');
|
||||||
|
|
||||||
|
if ($dxcc_exceptions->num_rows() > 0){
|
||||||
|
foreach ($dxcc_exceptions->result() as $dxcce) {
|
||||||
|
$this->dxccexceptions[$dxcce->call]['adif'] = $dxcce->adif;
|
||||||
|
$this->dxccexceptions[$dxcce->call]['cont'] = $dxcce->cont;
|
||||||
|
$this->dxccexceptions[$dxcce->call]['entity'] = $dxcce->entity;
|
||||||
|
$this->dxccexceptions[$dxcce->call]['cqz'] = $dxcce->cqz;
|
||||||
|
$this->dxccexceptions[$dxcce->call]['start'] = $dxcce->start;
|
||||||
|
$this->dxccexceptions[$dxcce->call]['end'] = $dxcce->end;
|
||||||
|
$this->dxccexceptions[$dxcce->call]['long'] = $dxcce->long;
|
||||||
|
$this->dxccexceptions[$dxcce->call]['lat'] = $dxcce->lat;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$dxcc_result = $CI->db->select('*')
|
||||||
|
->where('(start <= ', $date)
|
||||||
|
->or_where("start is null)", NULL, false)
|
||||||
|
->where('(end >= ', $date)
|
||||||
|
->or_where("end is null)", NULL, false)
|
||||||
|
->get('dxcc_prefixes');
|
||||||
|
|
||||||
|
if ($dxcc_result->num_rows() > 0){
|
||||||
|
foreach ($dxcc_result->result() as $dx) {
|
||||||
|
$this->dxcc[$dx->call]['adif'] = $dx->adif;
|
||||||
|
$this->dxcc[$dx->call]['cont'] = $dx->cont;
|
||||||
|
$this->dxcc[$dx->call]['entity'] = $dx->entity;
|
||||||
|
$this->dxcc[$dx->call]['cqz'] = $dx->cqz;
|
||||||
|
$this->dxcc[$dx->call]['start'] = $dx->start;
|
||||||
|
$this->dxcc[$dx->call]['end'] = $dx->end;
|
||||||
|
$this->dxcc[$dx->call]['long'] = $dx->long;
|
||||||
|
$this->dxcc[$dx->call]['lat'] = $dx->lat;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
正在加载…
在新工单中引用