projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
07e07de
)
tweeked the band handling a touch to see bands with more than one part
author
djk
<djk>
Fri, 13 Nov 1998 19:31:21 +0000
(19:31 +0000)
committer
djk
<djk>
Fri, 13 Nov 1998 19:31:21 +0000
(19:31 +0000)
cmd/show/bands.pl
patch
|
blob
|
history
data/bands.pl
patch
|
blob
|
history
diff --git
a/cmd/show/bands.pl
b/cmd/show/bands.pl
index 158238f3d13c3dbd01b6f5433a8873ab5d1ee94c..5e71ec0f999b345371ad717940f2c68cf07e452b 100644
(file)
--- a/
cmd/show/bands.pl
+++ b/
cmd/show/bands.pl
@@
-9,15
+9,21
@@
my @f = split /\s+/, $line;
my @bands;
my $band;
my @out;
my @bands;
my $band;
my @out;
+my $i;
if (!$line) {
@bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } Bands::get_keys();
push @out, "Bands Available:-";
foreach $band (@bands) {
my $ref = Bands::get($band)->band;
if (!$line) {
@bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } Bands::get_keys();
push @out, "Bands Available:-";
foreach $band (@bands) {
my $ref = Bands::get($band)->band;
- my $from = $ref->[0];
- my $to = $ref->[1];
- push @out, sprintf "%10s: %d -> %d", $band, $from, $to;
+ my $s = sprintf "%10s: ", $band;
+ for ($i = 0; $i < $#{$ref}; $i += 2) {
+ my $from = $ref->[$i];
+ my $to = $ref->[$i+1];
+ $s .= ", " if $i;
+ $s .= "$from -> $to";
+ }
+ push @out, $s;
}
push @out, "Regions Available:-";
@bands = Bands::get_region_keys();
}
push @out, "Regions Available:-";
@bands = Bands::get_region_keys();
diff --git
a/data/bands.pl
b/data/bands.pl
index c394f390a544479ef2afa4d7d98bd2095dae4002..7ce539d1d282e392e698eb60393af59c123b300b 100644
(file)
--- a/
data/bands.pl
+++ b/
data/bands.pl
@@
-12,6
+12,7
@@
# It is up to YOU to make sure that it makes sense!
#
# It is up to YOU to make sure that it makes sense!
#
+
%bands = (
'160m' => bless( { band => [ 1800, 2000 ],
cw => [ 1800, 1830 ],
%bands = (
'160m' => bless( { band => [ 1800, 2000 ],
cw => [ 1800, 1830 ],
@@
-130,7
+131,7
@@
ssb => [47087000, 47089000],
}, 'Bands'),
ssb => [47087000, 47089000],
}, 'Bands'),
- 'band1' => bless ( { band => [47000, 68000],
+ 'band1' => bless ( { band => [47000,
49999, 52000,
68000],
}, 'Bands'),
'band2' => bless ( { band => [87500, 108000],
}, 'Bands'),
'band2' => bless ( { band => [87500, 108000],