X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBands.pm;h=e3b014b51942663783c97232d67eb560ab278f41;hb=378cbf24f1b918e78d8b93c9e7ce3cf46fe28ec7;hp=7563e9274f713f64ae93dc3284a61ed1b125f425;hpb=b9dffeff7239952814342dad19db3a51def6fab7;p=spider.git diff --git a/perl/Bands.pm b/perl/Bands.pm index 7563e927..e3b014b5 100644 --- a/perl/Bands.pm +++ b/perl/Bands.pm @@ -3,7 +3,7 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # package Bands; @@ -18,21 +18,22 @@ 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"; + +$bandsfn = localdata("bands.pl"); %valid = ( + band => '0,BAND,parraypairs', + beacon => '0,BEACON,parraypairs', cw => '0,CW,parraypairs', - ssb => '0,SSB,parraypairs', data => '0,DATA,parraypairs', - sstv => '0,SSTV,parraypairs', + fax => '0,FAX,parraypairs', fstv => '0,FSTV,parraypairs', - rtty => '0,RTTY,parraypairs', - pactor => '0,PACTOR,parraypairs', packet => '0,PACKET,parraypairs', + pactor => '0,PACTOR,parraypairs', repeater => '0,REPEATER,parraypairs', - fax => '0,FAX,parraypairs', - beacon => '0,BEACON,parraypairs', - band => '0,BAND,parraypairs', + rtty => '0,RTTY,parraypairs', + ssb => '0,SSB,parraypairs', + sstv => '0,SSTV,parraypairs', ); # load the band data