fix sh/log things to allow all search strings

[spider.git] / cmd / show / log.pl

diff --git a/cmd/show/log.pl b/cmd/show/log.pl
index 5a83d4435ac723808880d118d1fe9faef72b6bb2..b1023f29bea726cdf5182c58e0a4af6bf82f91ba 100644 (file)
--- a/cmd/show/log.pl
+++ b/cmd/show/log.pl
@@ -27,7 +27,7 @@ sub handle
                        ($to) = $f =~ /^(\d+)$/o if !$to;              # is it a to count?
                        next if $to;
                }
-               unless ($who) {
+               unless ($f =~ /^\d+/) {
                        $who = $f; 
                        next if $who;
                }
@@ -41,16 +41,6 @@ sub handle
                $who = $self->call;
        }
 
-       @out = $self->spawn_cmd(\&DXLog::print, args => [$from, $to, $main::systime, undef, $who]);
-       
-#      my $fc = Mojo::IOLoop::ForkCall->new;
-#      $fc->run(
-#                       sub {my @args = @_; my @res = DXLog::print(@args); return @res}, 
-#                       [$from, $to, $main::systime, undef, $who],
-#                       sub {my ($fc, $err, @out) = @_; delete $self->{stash}; $self->send(@out);}
-#                      );
-#      #$self->{stash} = $fc;
-       
-#      @out = DXLog::print($from, $to, $main::systime, undef, $who);
-       return (1, @out);
+       return (1, DXLog::print($from, $to, $main::systime, undef, $who)) if $self->{_nospawn};
+       return (1, $self->spawn_cmd("show/log $cmdline", \&DXLog::print, args => [$from, $to, $main::systime, undef, $who]));
 }