X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBands.pm;h=55ac154c358022155833669327c301c18f77c830;hb=07e07de14eea115273999b9706b591b586e88479;hp=3f3c99849ddf8e9839f35204fa70c9b5c51d7a76;hpb=0824a94355e5fb2b4c379bb013d66466725629f5;p=spider.git

diff --git a/perl/Bands.pm b/perl/Bands.pm
index 3f3c9984..55ac154c 100644
--- a/perl/Bands.pm
+++ b/perl/Bands.pm
@@ -14,10 +14,11 @@ use DXVars;
 use Carp;
 
 use strict;
-use vars qw(%bands %regions $bandsfn %valid);
+use vars qw(%bands %regions %aliases $bandsfn %valid);
 
 %bands = ();   # the 'raw' band data
 %regions = ();  # list of regions for shortcuts eg vhf ssb
+%aliases = ();  # list of aliases
 $bandsfn = "$main::data/bands.pl";
 
 %valid = (
@@ -47,6 +48,8 @@ sub load
 sub get
 {
   my $call = shift;
+  my $ncall = $aliases{$call};
+  $call = $ncall if $ncall;
   return $bands{$call};
 }
 
@@ -62,6 +65,25 @@ sub get_keys
   return keys(%bands);
 }
 
+# get all the region keys
+sub get_region_keys
+{
+  return keys(%regions);
+}
+
+# get all the alias keys
+sub get_alias_keys
+{
+  return keys(%aliases);
+}
+
+# get a region 
+sub get_region
+{
+  my $reg = shift;
+  return $regions{$reg};
+}
+
 # get all the frequency pairs associated with the band and sub-band offered
 # the band can be a region, sub-band can be missing
 #