-while ($f = shift @list) { # next field
- print "f: $f list: ", join(',', @list), "\n";
- if (!$from && !$to) {
- ($from, $to) = $f =~ /^(\d+)-(\d+)$/o; # is it a from -> to count?
- next if $from && $to > $from;
- }
- if (!$to) {
- ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
- next if $to;
- }
- if (lc $f eq 'on' && $list[0]) { # is it freq range?
- print "yup freq\n";
- my @r = split '/', $list[0];
- print "r0: $r[0] r1: $r[1]\n";
- @freq = Bands::get_freq($r[0], $r[1]);
- if (@freq) { # yup, get rid of extranous param
- print "freq: ", join(',', @freq), "\n";
- shift @list;
- next;
+while ($f = shift @list) { # next field
+ # print "f: $f list: ", join(',', @list), "\n";
+ if (!$from && !$to) {
+ ($from, $to) = $f =~ /^(\d+)-(\d+)$/o; # is it a from -> to count?
+ next if $from && $to > $from;
+ }
+ if (!$to) {
+ ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count?
+ next if $to;
+ }
+ if (lc $f eq 'on' && $list[0]) { # is it freq range?
+ # print "yup freq\n";
+ my @r = split '/', $list[0];
+ # print "r0: $r[0] r1: $r[1]\n";
+ my @fr = Bands::get_freq($r[0], $r[1]);
+ if (@fr) { # yup, get rid of extranous param
+ # print "freq: ", join(',', @fr), "\n";
+ shift @list;
+ push @freq, @fr; # add these to the list
+ next;
+ }
+ }
+ if (lc $f eq 'day' && $list[0]) {
+ # print "got day\n";
+ ($fromday, $today) = split '-', shift(@list);
+ next;
+ }
+ if (lc $f eq 'info' && $list[0]) {
+ # print "got info\n";
+ $info = shift @list;
+ next;
+ }
+ if ((lc $f eq 'spotter' || lc $f eq 'by') && $list[0]) {
+ # print "got spotter\n";
+ $spotter = uc shift @list;
+ next;
+ }
+ if (!$pre) {
+ $pre = uc $f;