X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Frcmd.pl;h=bc3a71f95590e8a239d03e0ba75f7af6d088781f;hb=69c8aeb338cc485103e289fbab7ec4e7e056ed20;hp=deff4d33f283c631c2bddf3859eb4ded8204b723;hpb=0f8cb479221e09bae8e03447c78527604cf69be4;p=spider.git diff --git a/cmd/show/rcmd.pl b/cmd/show/rcmd.pl index deff4d33..bc3a71f9 100644 --- a/cmd/show/rcmd.pl +++ b/cmd/show/rcmd.pl @@ -13,7 +13,7 @@ my $cmdline = shift; my @f = split /\s+/, $cmdline; my $f; my @out; -my ($from, $to); +my ($from, $to, $who); $from = 0; while ($f = shift @f) { # next field @@ -26,9 +26,12 @@ while ($f = shift @f) { # next field ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count? next if $to; } + next if $who; + ($who) = $f =~ /^(\w+)/o; } -$to = 20 if !$to; +$to = 20 unless $to; +$from = 0 unless $from; -@out = DXLog::print($from, $to, $main::systime, '^rcmd'); +@out = DXLog::print($from, $to, $main::systime, '^rcmd', $who); return (1, @out);