latest version of RBN. Add qra to prefixes.

[spider.git] / perl / create_prefix.pl

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index 809850fd35a54e59ce97865124844694fff768c9..d87cf14412ec357701757943e0ae7ce318006617 100755 (executable)
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -6,7 +6,7 @@
 #
 #
 
-require 5.004;
+use 5.10.1;
 
 # search local then perl directories
 BEGIN {
@@ -25,6 +25,7 @@ use SysVar;
 
 use Data::Dumper;
 use DXUtil;
+use DXBearing;
 
 use strict;
 
@@ -37,12 +38,14 @@ my %pren = ();                                              # the inverse
 my $prefix;
 my $system;
 
-if (@ARGV && $ARGV[0] =~ /^--system$/) {
+if (@ARGV && $ARGV[0] =~ /^-?-?syst?e?m?$/) {
        $prefix = $main::data;
        ++$system;
        shift;
+       say "create_prefix.pl: creating SYSTEM prefix files";   
 } else {
        $prefix = $main::local_data;
+       say "create_prefix.pl: creating LOCAL prefix files";    
 }
 
 my $ifn;
@@ -170,6 +173,7 @@ foreach my $l (sort {$a <=> $b} keys %locn) {
        $longd = 0-$longd if (uc $longl) eq 'W'; 
        $latd += ($latm/60);
        $latd = 0-$latd if (uc $latl) eq 'S';
+       my $qra = DXBearing::lltoqra($latd, $longd);
        print OUT " name => '$name',";
        print OUT " dxcc => $dxcc,";
        print OUT " itu => $itu,";
@@ -177,6 +181,7 @@ foreach my $l (sort {$a <=> $b} keys %locn) {
        print OUT " utcoff => $utcoff,";
        print OUT " lat => $latd,";
        print OUT " long => $longd";
+       print OUT " qra => $qra";
        print OUT " }, 'Prefix'),\n";
 }
 print OUT ");\n\n";