Browse Source

Don't interpret callsigns as grid fields

To look up a 6 character grid square, use e.g. JN58SE/G in the
callsign field instead.

Closes #9 - tnx dl6mhc
develop
Fabian Kurz 2 years ago
parent
commit
2d24584ce5
  1. 8
      yfk
  2. 3
      yfksubs.pl

8
yfk

@ -345,9 +345,11 @@ if ($af == 1) { # READ CALLSIGN FIELD
# PWR fields are automatically filled like specified in the config file
if ($qso[0] ne $workcall) { # callsign has been changed!
# not a new callsign, but a GRID: Look up grid info and clear callsign
# field.
if ($qso[0] =~ /([A-Z]{2}[0-9]{2}[A-Z]{2}|[A-Z]{2}[0-9]{2})/) {
# not a new callsign, but a GRID: Look up grid info and clear
# callsign field. (full 6 letter grids must be suffixed with /G
# to avoid )
if ($qso[0] =~ /^([A-Z]{2}[0-9]{2}[A-Z]{2}\/G|[A-Z]{2}[0-9]{2})$/) {
$qso[0] =~ s/\/G//g;
&gridinfo($qso,$winfo,$wi,$wqsos,$editnr);
$af = 1;
$qso[0] = "";

3
yfksubs.pl

@ -5463,6 +5463,9 @@ sub lotwimport {
}
elsif ($line =~ /GRIDSQUARE:\d+>(\w+)/) {
$grid= $1;
if (length($grid) > 6) {
$grid = substr($grid, 0, 6);
}
}
elsif ($line =~ /STATE:\d+>(\w+)/) {
$state= $1;

Loading…
Cancel
Save