X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fdxcc.pl;h=cee6a2d251ae4ee1decfe94ddfef68ffd45cddd3;hb=e2ca7811e49048bfad82ec31e148a79fe9904e2b;hp=3b4d97f08f138549bc0d374da2562056585157f1;hpb=bdfc958f3d0fa912d20a020ac1a6cd2c79a22729;p=spider.git

diff --git a/perl/dxcc.pl b/perl/dxcc.pl
index 3b4d97f0..cee6a2d2 100755
--- a/perl/dxcc.pl
+++ b/perl/dxcc.pl
@@ -1,6 +1,7 @@
-#!/usr/bin/perl
+#!/usr/bin/env 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;
 }