X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=a17966a3edc256f8ab22f5c685602f5bb6ebcaf7;hb=d6ef92100b25e721a15d00da498256853cc0acf2;hp=1e6e50c2d2e97baa42b7f8dc776b693113bf7d8f;hpb=f651e64ef06bd79eb2342e85d5dd7c86fee407d1;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 1e6e50c2..a17966a3 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -33,6 +33,30 @@ $db = undef;					# the DB_File handle
 $hits = $misses = $matchtotal = 1;		# cache stats
 $lrusize = 1000;				# size of prefix LRU cache
 
+sub init
+{
+	my $r = load();
+	return $r if $r;
+
+	# fix up the node's default country codes
+	push @main::my_cc, (61..67) if !@main::my_cc && $main::mycall =~ /^GB/;
+	push @main::my_cc, qw(EA EA6 EA8 EA9) if !@main::my_cc && $main::mycall =~ /^E(ABCD)/;
+	push @main::my_cc, $main::mycall unless @main::my_cc;
+
+	my @c;
+	for (@main::my_cc) {
+		if (/^\d+$/) {
+			push @c, $_;
+		} else {
+			my @dxcc = extract($_);
+			push @c, $dxcc[1]->dxcc if @dxcc > 1;
+		}
+	}
+	return "\@main::my_cc does not contain a valid prefix or callsign (" . join(',', @main::my_cc) . ")" unless @c;
+	@main::my_cc = @c;
+	return undef;
+}
+
 sub load
 {
 	# untie every thing