X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBands.pm;h=7e67a60e3fb70e63ddc71b46e552e6a2e7f6ca50;hb=661d49731a7ac57ce2883ef5d757c7a8144fb6ff;hp=55ac154c358022155833669327c301c18f77c830;hpb=9b16ab623efe48723ba472624cf4020b155f683c;p=spider.git

diff --git a/perl/Bands.pm b/perl/Bands.pm
index 55ac154c..7e67a60e 100644
--- a/perl/Bands.pm
+++ b/perl/Bands.pm
@@ -16,72 +16,72 @@ use Carp;
 use strict;
 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
+%bands = ();					# the 'raw' band data
+%regions = ();					# list of regions for shortcuts eg vhf ssb
+%aliases = ();					# list of aliases
 $bandsfn = "$main::data/bands.pl";
 
 %valid = (
-  cw => '0,CW,parraypairs',
-  ssb => '0,SSB,parraypairs',
-  data => '0,DATA,parraypairs',
-  sstv => '0,SSTV,parraypairs',
-  fstv => '0,FSTV,parraypairs',
-  rtty => '0,RTTY,parraypairs',
-  pactor => '0,PACTOR,parraypairs',
-  packet => '0,PACKET,parraypairs',
-  repeater => '0,REPEATER,parraypairs',
-  fax => '0,FAX,parraypairs',
-  beacon => '0,BEACON,parraypairs',
-  band => '0,BAND,parraypairs',
-);
+		  cw => '0,CW,parraypairs',
+		  ssb => '0,SSB,parraypairs',
+		  data => '0,DATA,parraypairs',
+		  sstv => '0,SSTV,parraypairs',
+		  fstv => '0,FSTV,parraypairs',
+		  rtty => '0,RTTY,parraypairs',
+		  pactor => '0,PACTOR,parraypairs',
+		  packet => '0,PACKET,parraypairs',
+		  repeater => '0,REPEATER,parraypairs',
+		  fax => '0,FAX,parraypairs',
+		  beacon => '0,BEACON,parraypairs',
+		  band => '0,BAND,parraypairs',
+		 );
 
 # load the band data
 sub load
 {
-  %bands = ();
-  do $bandsfn;
-  confess $@ if $@;
+	%bands = ();
+	do $bandsfn;
+	confess $@ if $@;
 }
 
 # obtain a band object by callsign [$obj = Band::get($call)]
 sub get
 {
-  my $call = shift;
-  my $ncall = $aliases{$call};
-  $call = $ncall if $ncall;
-  return $bands{$call};
+	my $call = shift;
+	my $ncall = $aliases{$call};
+	$call = $ncall if $ncall;
+	return $bands{$call};
 }
 
 # obtain all the band objects
 sub get_all
 {
-  return values(%bands);
+	return values(%bands);
 }
 
 # get all the band keys
 sub get_keys
 {
-  return keys(%bands);
+	return keys(%bands);
 }
 
 # get all the region keys
 sub get_region_keys
 {
-  return keys(%regions);
+	return keys(%regions);
 }
 
 # get all the alias keys
 sub get_alias_keys
 {
-  return keys(%aliases);
+	return keys(%aliases);
 }
 
 # get a region 
 sub get_region
 {
-  my $reg = shift;
-  return $regions{$reg};
+	my $reg = shift;
+	return $regions{$reg};
 }
 
 # get all the frequency pairs associated with the band and sub-band offered
@@ -90,27 +90,27 @@ sub get_region
 # called Bands::get_freq(band-label, subband-label)
 sub get_freq
 {
-  my ($band, $subband) = @_;
-  my @band;
-  my $b;
-  my @out;
-  return () if !$band;
-  $subband = 'band' if !$subband;
+	my ($band, $subband) = @_;
+	my @band;
+	my $b;
+	my @out;
+	return () if !$band;
+	$subband = 'band' if !$subband;
   
-  # first look in the region
-  $b = $regions{$band};
-  @band = @$b if $b;
-  @band = ($band) if @band == 0;
+	# first look in the region
+	$b = $regions{$band};
+	@band = @$b if $b;
+	@band = ($band) if @band == 0;
   
-  # we now have a list of bands to scan for sub bands
-  foreach $b (@band) {
-    my $wb = $bands{$b};
-	if ($wb) {
-	  my $sb = $wb->{$subband};
-	  push @out, @$sb if $sb;
+	# we now have a list of bands to scan for sub bands
+	foreach $b (@band) {
+		my $wb = $bands{$b};
+		if ($wb) {
+			my $sb = $wb->{$subband};
+			push @out, @$sb if $sb;
+		}
 	}
-  }
-  return @out;
+	return @out;
 }
 
 #
@@ -119,7 +119,7 @@ sub get_freq
 
 sub fields
 {
-  return keys(%valid);
+	return keys(%valid);
 }
 
 #
@@ -128,19 +128,19 @@ sub fields
 
 sub field_prompt
 { 
-  my ($self, $ele) = @_;
-  return $valid{$ele};
+	my ($self, $ele) = @_;
+	return $valid{$ele};
 }
 
 no strict;
 sub AUTOLOAD
 {
-  my $self = shift;
-  my $name = $AUTOLOAD;
-  return if $name =~ /::DESTROY$/;
-  $name =~ s/.*:://o;
+	my $self = shift;
+	my $name = $AUTOLOAD;
+	return if $name =~ /::DESTROY$/;
+	$name =~ s/.*:://o;
   
-  @_ ? $self->{$name} = shift : $self->{$name} ;
+	@_ ? $self->{$name} = shift : $self->{$name} ;
 }
 
 1;