did some work on the cluster database related things

[spider.git] / perl / dxcc.pl

diff --git a/perl/dxcc.pl b/perl/dxcc.pl
index 3b4d97f08f138549bc0d374da2562056585157f1..889b62e98ccce7157b709fc4ea931917f2bce169 100755 (executable)
--- a/perl/dxcc.pl
+++ b/perl/dxcc.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 #
-# convert an Ak1a DX.DAT file to comma delimited form
+# Analyse the dxcc info in the prefix database, listing the 'official' country and its number
+# and also looking for duplicates and missing numbers
 #
 #
 
@@ -15,8 +16,16 @@ sub comp
   return ($a->dxcc()-0) <=> ($b->dxcc()-0);
 }
 
+$lastdxcc = 0;
 foreach $ref (sort {$a->dxcc() <=> $b->dxcc()} values %Prefix::prefix_loc) {
   $name = $ref->name();
   $dxcc = $ref->dxcc();
-  print "dxcc: $dxcc name: $name\n";
+  while ($lastdxcc < $dxcc - 1) {
+       ++$lastdxcc;
+    print "dxcc: $lastdxcc name:  ** MISSING\n";
+  }
+  $dup = "";
+  $dup = "** DUPLICATE" if $dxcc == $lastdxcc;
+  print "dxcc: $dxcc name: $name $dup\n";
+  $lastdxcc = $dxcc;
 }