X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=72df12c1418fc821ca793f7b9c7fac1583f529e7;hb=7e3729a9039462c460dae4804f40c0bd506f3423;hp=137ed1f66022ad4e52e867b85e64133f2821b0c5;hpb=d0c094a4df21ec851149f4afefee8fc596226669;p=spider.git

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index 137ed1f6..72df12c1 100755
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -18,6 +18,7 @@ BEGIN {
 
 	unshift @INC, "$root/perl";	# this IS the right way round!
 	unshift @INC, "$root/local";
+	$data = "$root/data";
 }
 
 use DXVars;
@@ -25,6 +26,7 @@ use SysVar;
 
 use Data::Dumper;
 use DXUtil;
+use DXBearing;
 
 use strict;
 
@@ -37,7 +39,7 @@ 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;
@@ -172,13 +174,15 @@ 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,";
 	print OUT " cq => $cq,";
 	print OUT " utcoff => $utcoff,";
 	print OUT " lat => $latd,";
-	print OUT " long => $longd";
+	print OUT " long => $longd,";
+	print OUT " qra => '$qra'";
 	print OUT " }, 'Prefix'),\n";
 }
 print OUT ");\n\n";