From 3194378dfc13933cfaaae43989b971d8994d17aa Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 30 Nov 1998 00:02:58 +0000 Subject: [PATCH] added show/rcmd --- cmd/show/rcmd.pl | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 cmd/show/rcmd.pl diff --git a/cmd/show/rcmd.pl b/cmd/show/rcmd.pl new file mode 100644 index 00000000..deff4d33 --- /dev/null +++ b/cmd/show/rcmd.pl @@ -0,0 +1,34 @@ +# +# print out the general log file for rcmds only +# +# Copyright (c) 1998 - Dirk Koopman G1TLH +# +# $Id$ +# +my $self = shift; + +return (1, $self->msg('e5')) if $self->priv < 9; + +my $cmdline = shift; +my @f = split /\s+/, $cmdline; +my $f; +my @out; +my ($from, $to); + +$from = 0; +while ($f = shift @f) { # next field + # print "f: $f list: ", join(',', @list), "\n"; + if (!$from && !$to) { + ($from, $to) = $f =~ /^(\d+)-(\d+)$/o; # is it a from -> to count? + next if $from && $to > $from; + } + if (!$to) { + ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count? + next if $to; + } +} + +$to = 20 if !$to; + +@out = DXLog::print($from, $to, $main::systime, '^rcmd'); +return (1, @out); -- 2.43.0