X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdx.pl;h=6908a52779efebe6429a051661da18c79499f56e;hb=5177a6684a57135fa9602c33227c6ab1c8f32a51;hp=ddc29bbab419a1f513c3b84f8f40cf9e52214a26;hpb=b9a94abaa884ae7a95d12effd8df111be2767015;p=spider.git diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl index ddc29bba..6908a527 100644 --- a/cmd/show/dx.pl +++ b/cmd/show/dx.pl @@ -86,7 +86,7 @@ while ($f = shift @list) { # next field next; } if (lc $f =~ /^filt/) { - $dofilter = 1 if $self->spotsfilter; + $dofilter = 1 if $self && $self->spotsfilter; next; } if (lc $f eq 'qsl') { @@ -173,8 +173,13 @@ if ($pre) { } } unless (@ans) { - $pre .= '*' unless $pre =~ /[\*\?\[]/o; + $pre .= '*' unless $pre =~ /[\*\?\[]$/o; $pre = shellregex($pre); + if ($main::dbh) { + $pre =~ s/\.\*/%/g; + } else { + $pre =~ s/\.\*\$$//; + } $expr = "\$f1 =~ m{$pre}"; $pre =~ s/[\^\$]//g; $hint = "m{\U$pre}"; @@ -245,6 +250,11 @@ if ($spotter) { $expr .= ' && ' if $expr; $spotter .= '*' unless $spotter =~ /[\*\?\[]/o; $spotter = shellregex($spotter); + if ($main::dbh) { + $spotter =~ s/\.\*/%/g; + } else { + $spotter =~ s/\.\*\$$//; + } $expr .= "\$f4 =~ m{\U$spotter}"; $hint .= ' && ' if $hint; $spotter =~ s/[\^\$]//g; @@ -314,7 +324,11 @@ if ($state) { push @expr, "\$f12 eq '$_'"; push @hint, "m{$_}"; } - $expr .= @expr > 1 ? '($f12 && (' . join(' || ', @expr) . '))' : "(\$f12 && $expr[0])"; + if ($main::dbh) { + $expr .= @expr > 1 ? '(' . join(' || ', @expr) . ')' : "$expr[0]"; + } else { + $expr .= @expr > 1 ? '(\$f12 && (' . join(' || ', @expr) . '))' : "(\$f12 && $expr[0])"; + } $hint .= @hint > 1 ? '(' . join(' || ', @hint) . ')' : $hint[0]; } if ($bystate) { @@ -326,7 +340,11 @@ if ($bystate) { push @expr, "\$f13 eq '$_'"; push @hint, "m{$_}"; } - $expr .= @expr > 1 ? '($f13 && (' . join(' || ', @expr) . '))' : "(\$f13 && $expr[0])"; + if ($main::dbh) { + $expr .= @expr > 1 ? '(' . join(' || ', @expr) . ')' : "$expr[0]"; + } else { + $expr .= @expr > 1 ? '(\$f13 && (' . join(' || ', @expr) . '))' : "(\$f13 && $expr[0])"; + } $hint .= @hint > 1 ? '(' . join(' || ', @hint) . ')' : $hint[0]; } @@ -361,11 +379,11 @@ my @res = Spot::search($expr, $fromday, $today, $from, $to, $hint, $dofilter ? $ my $ref; my @dx; foreach $ref (@res) { - if ($self->ve7cc) { + if ($self && $self->ve7cc) { push @out, VE7CC::dx_spot($self, @$ref); } else { - if ($real) { - push @out, $self->format_dx_spot(@$ref); + if ($self && $real) { + push @out, DXCommandmode::format_dx_spot($self, @$ref); } else { push @out, Spot::formatl(@$ref); }