- }
- if (lc $f eq 'day' && $list[0]) {
- # print "got day\n";
- ($fromday, $today) = split m|[-/]|, 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;
- if ($list[0] && lc $list[0] eq 'dxcc') {
- $fromdxcc = 1;
- shift @list;
- }
- next;
- }
- if (lc $f =~ /^filt/) {
- $dofilter = 1 if $self && $self->spotsfilter;
- next;
- }
- if (lc $f eq 'qsl') {
- $doqsl = 1;
- next;
- }
- if (lc $f eq 'iota') {
- my ($a, $b);
-# $DB::single =1;
+ 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;
+ }
+
+ if ((lc $f eq 'spotter' || lc $f eq 'by') && $list[0]) {
+ $spotter = uc shift @list;
+ if ($list[0] && lc $list[0] eq 'dxcc') {
+ $fromdxcc = 1;
+ shift @list;
+ }
+ dbg "got spotter $spotter fromdxcc $fromdxcc" if isdbg('sh/dx');
+ next;
+ }
+ if (lc $f =~ /^filt/) {
+ $dofilter = 1 if $self && $self->spotsfilter;
+ next;
+ }
+ if (lc $f eq 'qsl') {
+ $doqsl = 1;
+ next;
+ }
+ if (lc $f eq 'iota') {
+ my ($a, $b);
+ # $DB::single =1;