X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Frcmd.pl;h=0143b29063270c2e7babfef5b100529266293e5e;hb=8e14149148baba63ce5ae2b95aacda8ab6dd0d87;hp=d8f02d5e2c707bdceb47ac9c285efa54064189af;hpb=96461da2f857d65129b2e6acd19bd075984c31f1;p=spider.git diff --git a/cmd/show/rcmd.pl b/cmd/show/rcmd.pl index d8f02d5e..0143b290 100644 --- a/cmd/show/rcmd.pl +++ b/cmd/show/rcmd.pl @@ -3,7 +3,7 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # my $self = shift; @@ -27,11 +27,14 @@ while ($f = shift @f) { # next field next if $to; } next if $who; - ($who) = $f =~ /^(\w+)/o; + if ($f !~ /^\d+$/) { + ($who) = $f; + } } $to = 20 unless $to; $from = 0 unless $from; -@out = DXLog::print($from, $to, $main::systime, 'rcmd', $who); -return (1, @out); +return (1, DXLog::print($from, $to, $main::systime, 'rcmd', $who)) if ($self->{_nospawn} || $main::is_win == 1); +return (1, $self->spawn_cmd("show/rcmd $cmdline", \&DXLog::print, args => [$from, $to, $main::systime, 'rcmd', $who])); +