]> dxcluster.net Git - spider.git/blob - cmd/show/debug_ring.pl
force all channels to default width 80 columns
[spider.git] / cmd / show / debug_ring.pl
1 #
2 # Log the current values of the DXDebug dbgring butter
3 #
4 #
5 #
6 my $self = shift;
7 my $line = shift;;
8 return (1, $self->msg('e5')) unless $self->priv >= 9;
9
10 my @args = split /\s+/, $line;
11 my $n;
12 my $doclear;
13
14 for (@args) {
15         say "arg: $_";
16         $n = 0+$_ if /^\d+$/;
17         $doclear++ if /^clear$/;
18 }
19 my $lines = DXDebug::dbgprintring($n);
20 DXDebug::dbgclearring() if $doclear;
21
22 return (1, qq{Contents of $lines lines of debug ring buffer logged. View with watchdbg.});