+ else {
+ my @r = split '/', lc $list[0];
+ dbg "r0: $r[0] r1: $r[1]" if isdbg('sh/dx');
+ my @fr = Bands::get_freq($r[0], $r[1]);
+ if (@fr) { # yup, get rid of extranous param
+ dbg "freq: " . join(',', @fr) if isdbg('sh/dx');
+ push @freq, @fr; # add these to the list
+ shift @list;
+ next;
+ }
+ }
+ }
+ if (lc $f eq 'day' && $list[0]) {
+ ($fromday, $today) = split m|[-/]|, shift(@list);
+ dbg "got day $fromday/$today" if isdbg('sh/dx');
+ next;
+ }
+ if (lc $f eq 'info' && $list[0]) {
+ $info = shift @list;
+ dbg "got info $info" if isdbg('sh/dx');
+ next;
+ }
+ if (lc $f eq 'origin' && $list[0]) {
+ $origin = uc shift @list;
+ dbg "got origin $origin" if isdbg('sh/dx');
+ next;
+ }
+ if (lc $f eq 'ip' && $list[0]) {
+ $ip = shift @list;
+ dbg "got ip $ip" if isdbg('sh/dx');
+ next;