-# iota requests
-if ($doqra) {
- $expr .= ' && ' if $expr;
- $expr .= "\$f3 =~ m{$doqra}i";
- $hint .= ' && ' if $hint;
- $hint .= "m{$doqra}io";
-}
-
-
-$from ||= '';
-$to ||= '';
-$fromday ||= '';
-$today ||= '';
-
-dbg "expr: $expr from: $from to: $to fromday: $fromday today: $today" if isdbg('sh/dx');
-
-# now do the search
-
-if ($self->{_nospawn}) {
- 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);
- }
- }
- }
-} else {
- push @out, $self->spawn_cmd("sh/dx $line", \&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);
- }
- }
- }
- push @out, $self->msg('e3', "sh/dx", "'$line'") unless @out;
- return @out;
- });