diff --git a/application/controllers/Calltester.php b/application/controllers/Calltester.php
index 897046e95..078bb9753 100644
--- a/application/controllers/Calltester.php
+++ b/application/controllers/Calltester.php
@@ -13,7 +13,6 @@ class Calltester extends CI_Controller {
if(!$this->user_model->authorize(99)) { $this->session->set_flashdata('error', __("You're not allowed to do that!")); redirect('dashboard'); }
}
-
public function index() {
set_time_limit(3600);
@@ -40,25 +39,27 @@ class Calltester extends CI_Controller {
$de = $this->input->post('de', true);
$compare = $this->input->post('compare', true);
+ $this->load->model('dxcc');
+
+ $qsos = $this->dxcc->getQsos($de);
+
if ($compare == "true") {
- $result = $this->doClassCheck($de);
- $result2 = $this->doDxccCheckModel($de);
+ $result = $this->doClassCheck($de, $qsos);
+ $result2 = $this->doDxccCheckModel($de, $qsos);
return $this->compareDxccChecks($result, $result2);
}
- $result = $this->doClassCheck($de);
+ $result = $this->doClassCheck($de, $qsos);
$this->loadView($result);
}
/* Uses DXCC Class. Much faster */
- function doClassCheck($de) {
+ function doClassCheck($de, $callarray) {
ini_set('memory_limit', '-1');
$i = 0;
$result = array();
- $callarray = $this->getQsos($de);
-
// Starting clock time in seconds
$start_time = microtime(true);
$dxccobj = new Dxcc();
@@ -99,18 +100,18 @@ class Calltester extends CI_Controller {
}
/* Uses the normal dxcc lookup, which is slow */
- function doDxccCheckModel($de) {
+ function doDxccCheckModel($de, $callarray) {
$i = 0;
$result = array();
- $callarray = $this->getQsos($de);
-
// Starting clock time in seconds
$start_time = microtime(true);
+ $this->load->model('dxcc');
+
foreach ($callarray->result() as $call) {
$i++;
- $dxcc = $this->dxcc_lookup($call->col_call, $call->date);
+ $dxcc = $this->dxcc->dxcc_lookup($call->col_call, $call->date);
$dxcc['adif'] = (isset($dxcc['adif'])) ? $dxcc['adif'] : 0;
$dxcc['entity'] = (isset($dxcc['entity'])) ? $dxcc['entity'] : 0;
@@ -183,70 +184,6 @@ class Calltester extends CI_Controller {
$this->load->view('calltester/comparison_result', $comparisonData);
}
- function getQsos($station_id) {
- ini_set('memory_limit', '-1');
- $sql = 'select distinct col_country, col_call, col_dxcc, date(col_time_on) date, station_profile.station_profile_name, col_primary_key
- from ' . $this->config->item('table_name') . '
- join station_profile on ' . $this->config->item('table_name') . '.station_id = station_profile.station_id
- where station_profile.user_id = ?';
- $params[] = $this->session->userdata('user_id');
-
- if ($station_id && is_numeric($station_id)) {
- $sql .= ' and ' . $this->config->item('table_name') . '.station_id = ?';
- $params[] = $station_id;
- }
-
- $sql .= ' order by station_profile.station_profile_name asc, date desc';
-
- $query = $this->db->query($sql, $params);
-
- return $query;
- }
-
- function array_to_table($table) {
- echo ' ';
-
- echo '';
-
- // Table header
- foreach ($table[0] as $key=>$value) {
- echo "| ".$key." | ";
- }
-
- // Table body
- foreach ($table as $value) {
- echo "";
- foreach ($value as $val) {
- echo "| ".$val." | ";
- }
- echo "
";
- }
- echo "
";
- }
-
function csv() {
set_time_limit(3600);
@@ -256,19 +193,21 @@ class Calltester extends CI_Controller {
$file = 'uploads/calls.csv';
$handle = fopen($file,"r");
- $data = fgetcsv($handle,1000,","); // Skips firsts line, usually that is the header
- $data = fgetcsv($handle,1000,",");
+ $data = fgetcsv($handle,1000,",",'"',"\\"); // Skips firsts line, usually that is the header
+ $data = fgetcsv($handle,1000,",",'"',"\\");
$result = array();
$i = 0;
+ $this->load->model('dxcc');
+
do {
if ($data[0]) {
// COL_CALL,COL_DXCC,COL_TIME_ON
$i++;
- $dxcc = $this->dxcc_lookup($data[0], $data[2]);
+ $dxcc = $this->dxcc->dxcc_lookup($data[0], $data[2]);
$dxcc['adif'] = (isset($dxcc['adif'])) ? $dxcc['adif'] : 0;
$dxcc['entity'] = (isset($dxcc['entity'])) ? $dxcc['entity'] : 0;
@@ -285,7 +224,7 @@ class Calltester extends CI_Controller {
);
}
}
- } while ($data = fgetcsv($handle,1000,","));
+ } while ($data = fgetcsv($handle,1000,",",'"',"\\"));
// End clock time in seconds
$end_time = microtime(true);
@@ -293,13 +232,16 @@ class Calltester extends CI_Controller {
// Calculate script execution time
$execution_time = ($end_time - $start_time);
- echo " Execution time of script = ".$execution_time." sec
";
- echo $i . " calls tested.
";
- $count = 0;
+ $viewData = [];
+ $viewData['result'] = $result;
+ $viewData['execution_time'] = $execution_time;
+ $viewData['calls_tested'] = $i;
+
+ $viewData['page_title'] = __("CSV Call Tester");
+ $this->load->view('interface_assets/header', $viewData);
+ $this->load->view('calltester/call');
+ $this->load->view('interface_assets/footer');
- if ($result) {
- $this->array_to_table($result);
- }
}
/*
@@ -314,19 +256,21 @@ class Calltester extends CI_Controller {
$file = 'uploads/calls.csv';
$handle = fopen($file,"r");
- $data = fgetcsv($handle,1000,","); // Skips firsts line, usually that is the header
- $data = fgetcsv($handle,1000,",");
+ $data = fgetcsv($handle,1000,",",'"',"\\"); // Skips firsts line, usually that is the header
+ $data = fgetcsv($handle,1000,",",'"',"\\");
$result = array();
$i = 0;
+ $this->load->model('dxcc');
+
do {
if ($data[0]) {
// COL_CALL,COL_DXCC,COL_TIME_ON
$i++;
- $dxcc = $this->check_dxcc_table($data[0], $data[2]);
+ $dxcc = $this->dxcc->check_dxcc_table($data[0], $data[2]);
$data[1] = $data[1] == "NULL" ? 0 : $data[1];
@@ -340,7 +284,7 @@ class Calltester extends CI_Controller {
);
}
}
- } while ($data = fgetcsv($handle,1000,","));
+ } while ($data = fgetcsv($handle,1000,",",'"',"\\"));
// End clock time in seconds
$end_time = microtime(true);
@@ -348,13 +292,15 @@ class Calltester extends CI_Controller {
// Calculate script execution time
$execution_time = ($end_time - $start_time);
- echo " Execution time of script = ".$execution_time." sec
";
- echo $i . " calls tested.
";
- $count = 0;
+ $viewData = [];
+ $viewData['result'] = $result;
+ $viewData['execution_time'] = $execution_time;
+ $viewData['calls_tested'] = $i;
- if ($result) {
- $this->array_to_table($result);
- }
+ $viewData['page_title'] = __("CSV Call Tester");
+ $this->load->view('interface_assets/header', $viewData);
+ $this->load->view('calltester/call');
+ $this->load->view('interface_assets/footer');
}
function call() {
@@ -831,99 +777,99 @@ class Calltester extends CI_Controller {
$testarray[] = array(
'Callsign' => '9H5G/C6A',
- 'Country' => 'Bahamas',
- 'Adif' => 60,
+ 'Country' => 'Bahamas',
+ 'Adif' => 60,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'A45XR/0',
- 'Country' => 'Oman',
- 'Adif' => 370,
+ 'Country' => 'Oman',
+ 'Adif' => 370,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'RAEM',
- 'Country' => 'Asiatic Russia',
- 'Adif' => 54,
+ 'Country' => 'Asiatic Russia',
+ 'Adif' => 54,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'DJ1YFK/VE1',
- 'Country' => 'Canada',
- 'Adif' => 1,
+ 'Country' => 'Canada',
+ 'Adif' => 1,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'HD1QRC90',
- 'Country' => 'Ecuador',
- 'Adif' => 120,
+ 'Country' => 'Ecuador',
+ 'Adif' => 120,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'PJ6A',
- 'Country' => 'Saba & St. Eustatius',
- 'Adif' => 519,
+ 'Country' => 'Saba & St. Eustatius',
+ 'Adif' => 519,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'PJ4D',
- 'Country' => 'Bonaire',
- 'Adif' => 520,
+ 'Country' => 'Bonaire',
+ 'Adif' => 520,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => '4X50CZ/SK',
- 'Country' => 'Israel',
- 'Adif' => 336,
+ 'Country' => 'Israel',
+ 'Adif' => 336,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'RK3BY/0',
- 'Country' => 'Asiatic Russia',
- 'Adif' => 15,
+ 'Country' => 'Asiatic Russia',
+ 'Adif' => 15,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'IU0KNS/ERA',
- 'Country' => 'Italy',
- 'Adif' => 248,
+ 'Country' => 'Italy',
+ 'Adif' => 248,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'IU8BPS/AWD',
- 'Country' => 'Italy',
- 'Adif' => 248,
+ 'Country' => 'Italy',
+ 'Adif' => 248,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'IK7XNF/GIRO',
- 'Country' => 'Italy',
- 'Adif' => 248,
+ 'Country' => 'Italy',
+ 'Adif' => 248,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'VJ5A',
- 'Country' => 'Australia',
- 'Adif' => 150,
+ 'Country' => 'Australia',
+ 'Adif' => 150,
'Date' => date('Y-m-d', time())
);
$testarray[] = array(
'Callsign' => 'VL2IG',
- 'Country' => 'Australia',
- 'Adif' => 150,
+ 'Country' => 'Australia',
+ 'Adif' => 150,
'Date' => date('Y-m-d', time())
);
@@ -974,339 +920,4 @@ class Calltester extends CI_Controller {
$this->load->view('interface_assets/footer');
}
- public function dxcc_lookup($call, $date) {
-
- $date = date("Y-m-d", strtotime($date));
- $csadditions = '/^X$|^D$|^T$|^P$|^R$|^B$|^A$|^M$|^LH$|^L$|^J$|^SK$/';
-
- $dxcc_exceptions = $this->db->select('`entity`, `adif`, `cqz`,`cont`,`long`,`lat`')
- ->where('`call`', $call)
- ->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) {
- $row = $dxcc_exceptions->row_array();
- return $row;
- } 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['cont'] = '';
- $row['entity'] = '- NONE -';
- $row['ituz'] = 0;
- $row['cqz'] = 0;
- $row['long'] = '0';
- $row['lat'] = '0';
- return $row;
- } else {
- $call = $result . "AA";
- }
- }
- }
- }
-
- $len = strlen($call);
- $dxcc_array = [];
-
- // Fetch all candidates in one shot instead of looping
- $dxcc_result = $this->db->query("SELECT `dxcc_prefixes`.`record`, `dxcc_prefixes`.`call`, `dxcc_prefixes`.`entity`, `dxcc_prefixes`.`adif`, `dxcc_prefixes`.`cqz`, `dxcc_entities`.`ituz`, `dxcc_prefixes`.`cont`, `dxcc_prefixes`.`long`, `dxcc_prefixes`.`lat`, `dxcc_prefixes`.`start`, `dxcc_prefixes`.`end`
- FROM `dxcc_prefixes`
- LEFT JOIN `dxcc_entities` ON `dxcc_entities`.`adif` = `dxcc_prefixes`.`adif`
- WHERE ? like concat(`call`,'%')
- and `dxcc_prefixes`.`call` like ?
- AND (`dxcc_prefixes`.`start` <= ? OR `dxcc_prefixes`.`start` is null)
- AND (`dxcc_prefixes`.`end` >= ? OR `dxcc_prefixes`.`end` is null) order by length(`call`) desc limit 1", array($call, substr($call, 0, 1) . '%', $date, $date));
-
- foreach ($dxcc_result->result_array() as $row) {
- $dxcc_array[$row['call']] = $row;
- }
-
- // query the table, removing a character from the right until a match
- for ($i = $len; $i > 0; $i--) {
- //printf("searching for %s\n", substr($call, 0, $i));
- if (array_key_exists(substr($call, 0, $i), $dxcc_array)) {
- $row = $dxcc_array[substr($call, 0, $i)];
- // $row = $dxcc_result->row_array();
- return $row;
- }
- }
- }
-
- return array(
- 'adif' => 0,
- 'cqz' => 0,
- 'ituz' => 0,
- 'long' => '',
- 'lat' => '',
- 'entity' => 'None',
- );
- }
-
- function wpx($testcall, $i) {
- $prefix = '';
- $a = '';
- $b = '';
- $c = '';
-
- $lidadditions = '/^QRP$|^LGT$/';
- $csadditions = '/^X$|^D$|^T$|^P$|^R$|^B$|^A$|^M$|^LH$|^L$|^J$|^SK$/';
- $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) || preg_match('/^[A-Z]\d[A-Z]$/', $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{2,})$/', $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 '';
- }
- }
-
- /*
- * Check the dxcc_prefixes table and return (dxcc, country)
- */
- public function check_dxcc_table($call, $date) {
-
- $date = date("Y-m-d", strtotime($date));
- $csadditions = '/^X$|^D$|^T$|^P$|^R$|^B$|^A$|^M$|^LH$|^L$|^J$|^SK$/';
-
- $dxcc_exceptions = $this->db->select('`entity`, `adif`, `cqz`, `cont`')
- ->where('`call`', $call)
- ->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) {
- $row = $dxcc_exceptions->row_array();
- return array($row['adif'], $row['entity'], $row['cqz'], $row['cont']);
- }
- 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['cont'] = '';
- return array($row['adif'], $row['entity'], $row['cqz'], $row['cont']);
- } else {
- $call = $result . "AA";
- }
- }
- }
- }
-
- $len = strlen($call);
- $dxcc_array = [];
- // Fetch all candidates in one shot instead of looping
- $dxcc_result = $this->db->query("SELECT `call`, `entity`, `adif`, `cqz`, `cont`
- FROM `dxcc_prefixes`
- WHERE ? like concat(`call`,'%')
- and `call` like ?
- AND (`start` <= ? OR start is null)
- AND (`end` >= ? OR end is null) order by length(`call`) desc limit 1", array($call, substr($call, 0, 1) . '%', $date, $date));
-
- foreach ($dxcc_result->result_array() as $row) {
- $dxcc_array[$row['call']] = $row;
- }
-
- // query the table, removing a character from the right until a match
- for ($i = $len; $i > 0; $i--) {
- //printf("searching for %s\n", substr($call, 0, $i));
- if (array_key_exists(substr($call, 0, $i), $dxcc_array)) {
- $row = $dxcc_array[substr($call, 0, $i)];
- // $row = $dxcc_result->row_array();
- return array($row['adif'], $row['entity'], $row['cqz'], $row['cont']);
- }
- }
-
- return array("Not Found", "Not Found");
- }
}
diff --git a/application/models/Dxcc.php b/application/models/Dxcc.php
index e914722e1..06dcfb315 100644
--- a/application/models/Dxcc.php
+++ b/application/models/Dxcc.php
@@ -8,33 +8,6 @@ class DXCC extends CI_Model {
}
}
- /**
- * Function: mostactive
- * Information: Returns the most active band
- **/
- function info($callsign) {
- $exceptions = $this->db->query('
- SELECT *
- FROM `dxcc_exceptions`
- WHERE `prefix` = ?
- LIMIT 1
- ',array($callsign));
-
- if ($exceptions->num_rows() > 0) {
- return $exceptions;
- } else {
- $query = $this->db->query('
- SELECT *
- FROM dxcc_entities
- WHERE prefix = SUBSTRING(?, 1, LENGTH( prefix ) )
- ORDER BY LENGTH( prefix ) DESC
- LIMIT 1
- ',array($callsign));
-
- return $query;
- }
- }
-
/*
* Fetches a list of all dxcc's, both current and deleted
*/
@@ -649,17 +622,364 @@ class DXCC extends CI_Model {
return $query->result();
}
- function lookup_country($country) {
- $bindings=[];
- $query = $this->db->query('
- SELECT *
- FROM dxcc_entities
- WHERE name = ?
- ORDER BY LENGTH( prefix ) DESC
- LIMIT 1
- ',array($country));
+ /*
+ * Functions below are all used in the calltester controller
+ */
- return $query->row();
+ /*
+ * Check the dxcc_prefixes table and return (dxcc, country)
+ */
+ public function check_dxcc_table($call, $date) {
+
+ $date = date("Y-m-d", strtotime($date));
+ $csadditions = '/^X$|^D$|^T$|^P$|^R$|^B$|^A$|^M$|^LH$|^L$|^J$|^SK$/';
+
+ $dxcc_exceptions = $this->db->select('`entity`, `adif`, `cqz`, `cont`')
+ ->where('`call`', $call)
+ ->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) {
+ $row = $dxcc_exceptions->row_array();
+ return array($row['adif'], $row['entity'], $row['cqz'], $row['cont']);
+ }
+ 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['cont'] = '';
+ return array($row['adif'], $row['entity'], $row['cqz'], $row['cont']);
+ } else {
+ $call = $result . "AA";
+ }
+ }
+ }
+ }
+
+ $len = strlen($call);
+ $dxcc_array = [];
+ // Fetch all candidates in one shot instead of looping
+ $dxcc_result = $this->db->query("SELECT `call`, `entity`, `adif`, `cqz`, `cont`
+ FROM `dxcc_prefixes`
+ WHERE ? like concat(`call`,'%')
+ and `call` like ?
+ AND (`start` <= ? OR start is null)
+ AND (`end` >= ? OR end is null) order by length(`call`) desc limit 1", array($call, substr($call, 0, 1) . '%', $date, $date));
+
+ foreach ($dxcc_result->result_array() as $row) {
+ $dxcc_array[$row['call']] = $row;
+ }
+
+ // query the table, removing a character from the right until a match
+ for ($i = $len; $i > 0; $i--) {
+ //printf("searching for %s\n", substr($call, 0, $i));
+ if (array_key_exists(substr($call, 0, $i), $dxcc_array)) {
+ $row = $dxcc_array[substr($call, 0, $i)];
+ // $row = $dxcc_result->row_array();
+ return array($row['adif'], $row['entity'], $row['cqz'], $row['cont']);
+ }
+ }
+
+ return array("Not Found", "Not Found");
+ }
+
+ function wpx($testcall, $i) {
+ $prefix = '';
+ $a = '';
+ $b = '';
+ $c = '';
+
+ $lidadditions = '/^QRP$|^LGT$/';
+ $csadditions = '/^X$|^D$|^T$|^P$|^R$|^B$|^A$|^M$|^LH$|^L$|^J$|^SK$/';
+ $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) || preg_match('/^[A-Z]\d[A-Z]$/', $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{2,})$/', $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 '';
+ }
+ }
+
+ public function dxcc_lookup($call, $date) {
+
+ $date = date("Y-m-d", strtotime($date));
+ $csadditions = '/^X$|^D$|^T$|^P$|^R$|^B$|^A$|^M$|^LH$|^L$|^J$|^SK$/';
+
+ $dxcc_exceptions = $this->db->select('`entity`, `adif`, `cqz`,`cont`,`long`,`lat`')
+ ->where('`call`', $call)
+ ->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) {
+ $row = $dxcc_exceptions->row_array();
+ return $row;
+ } 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['cont'] = '';
+ $row['entity'] = '- NONE -';
+ $row['ituz'] = 0;
+ $row['cqz'] = 0;
+ $row['long'] = '0';
+ $row['lat'] = '0';
+ return $row;
+ } else {
+ $call = $result . "AA";
+ }
+ }
+ }
+ }
+
+ $len = strlen($call);
+ $dxcc_array = [];
+
+ // Fetch all candidates in one shot instead of looping
+ $dxcc_result = $this->db->query("SELECT `dxcc_prefixes`.`record`, `dxcc_prefixes`.`call`, `dxcc_prefixes`.`entity`, `dxcc_prefixes`.`adif`, `dxcc_prefixes`.`cqz`, `dxcc_entities`.`ituz`, `dxcc_prefixes`.`cont`, `dxcc_prefixes`.`long`, `dxcc_prefixes`.`lat`, `dxcc_prefixes`.`start`, `dxcc_prefixes`.`end`
+ FROM `dxcc_prefixes`
+ LEFT JOIN `dxcc_entities` ON `dxcc_entities`.`adif` = `dxcc_prefixes`.`adif`
+ WHERE ? like concat(`call`,'%')
+ and `dxcc_prefixes`.`call` like ?
+ AND (`dxcc_prefixes`.`start` <= ? OR `dxcc_prefixes`.`start` is null)
+ AND (`dxcc_prefixes`.`end` >= ? OR `dxcc_prefixes`.`end` is null) order by length(`call`) desc limit 1", array($call, substr($call, 0, 1) . '%', $date, $date));
+
+ foreach ($dxcc_result->result_array() as $row) {
+ $dxcc_array[$row['call']] = $row;
+ }
+
+ // query the table, removing a character from the right until a match
+ for ($i = $len; $i > 0; $i--) {
+ //printf("searching for %s\n", substr($call, 0, $i));
+ if (array_key_exists(substr($call, 0, $i), $dxcc_array)) {
+ $row = $dxcc_array[substr($call, 0, $i)];
+ // $row = $dxcc_result->row_array();
+ return $row;
+ }
+ }
+ }
+
+ return array(
+ 'adif' => 0,
+ 'cqz' => 0,
+ 'ituz' => 0,
+ 'long' => '',
+ 'lat' => '',
+ 'entity' => 'None',
+ );
+ }
+
+ function getQsos($station_id) {
+ ini_set('memory_limit', '-1');
+ $sql = 'select distinct col_country, col_call, col_dxcc, date(col_time_on) date, station_profile.station_profile_name, col_primary_key
+ from ' . $this->config->item('table_name') . '
+ join station_profile on ' . $this->config->item('table_name') . '.station_id = station_profile.station_id
+ where station_profile.user_id = ?';
+ $params[] = $this->session->userdata('user_id');
+
+ if ($station_id && is_numeric($station_id)) {
+ $sql .= ' and ' . $this->config->item('table_name') . '.station_id = ?';
+ $params[] = $station_id;
+ }
+
+ $sql .= ' order by station_profile.station_profile_name asc, date desc';
+
+ $query = $this->db->query($sql, $params);
+
+ return $query;
}
}
?>