X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdx.pl;h=6908a52779efebe6429a051661da18c79499f56e;hb=d0d643e52b8c7ab9f481c78edb8ab953a5da3b29;hp=fd3adeb0c2a9e0520968f81c7c2a6e7b32436f56;hpb=da65011693cc9a7a33f09424f7a19a51937d986c;p=spider.git diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl index fd3adeb0..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; @@ -369,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); }