From 7c92ab8ff464076dae1e5cb1c69945debade1dee Mon Sep 17 00:00:00 2001 From: Andreas Kristiansen <6977712+AndreasK79@users.noreply.github.com> Date: Sun, 22 Feb 2026 21:48:04 +0100 Subject: [PATCH] Cleaned up code in calltester and dxcc model --- application/controllers/Calltester.php | 527 ++++--------------------- application/models/Dxcc.php | 394 ++++++++++++++++-- 2 files changed, 426 insertions(+), 495 deletions(-) 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 ""; - } - - // Table body - foreach ($table as $value) { - echo ""; - foreach ($value as $val) { - echo ""; - } - echo ""; - } - echo "
".$key."
".$val."
"; - } - 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; } } ?>