-#print "expr: $expr from: $from to: $to fromday: $fromday today: $today\n";
-
-# now do the search
-
-push @out, $self->spawn_cmd(\&Spot::search,
- args => [$expr, $fromday, $today, $from, $to, $hint, $dofilter ? $self : undef],
- cb => sub {
- my ($dxchan, @res) = @_;
- my $ref;
- my @out;
-
- foreach $ref (@res) {
- if ($self->ve7cc) {
- push @out, VE7CC::dx_spot($self, @$ref);
- } else {
- if ($real) {
- push @out, DXCommandmode::format_dx_spot($self, @$ref);
- } else {
- push @out, Spot::formatl(@$ref);
- }
- }
- }
- $dxchan->send(@out);
- });
-
-#my @res = Spot::search($expr, $fromday, $today, $from, $to, $hint, $dofilter ? $self : undef);
-#my $ref;
-#my @dx;
-#foreach $ref (@res) {
-# if ($self && $self->ve7cc) {
-# push @out, VE7CC::dx_spot($self, @$ref);
-# } else {
-# if ($self && $real) {
-# push @out, DXCommandmode::format_dx_spot($self, @$ref);
-# } else {
-# push @out, Spot::formatl(@$ref);
-# }
-# }
-#}