add an RBN line to progress

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

#
# Log the current values of the DXDebug dbgring butter
#
#
#
my $self = shift;
my $line = shift;;
return (1, $self->msg('e5')) unless $self->priv >= 9;

my @args = split /\s+/, $line;
my $n;
my $doclear;

for (@args) {
        say "arg: $_";
        $n = 0+$_ if /^\d+$/;
        $doclear++ if /^clear$/;
}
my $lines = DXDebug::dbgprintring($n);
DXDebug::dbgclearring() if $doclear;

return (1, qq{Contents of $lines lines of debug ring buffer logged. View with watchdbg.});