X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fdxcc.pl;h=889b62e98ccce7157b709fc4ea931917f2bce169;hp=3b4d97f08f138549bc0d374da2562056585157f1;hb=7432cb12ce865030c8b0315a30764e0088a59102;hpb=e5b0e3dee551a224de284a5ba550098256fcb268

diff --git a/perl/dxcc.pl b/perl/dxcc.pl
index 3b4d97f0..889b62e9 100755
--- 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;
 }