X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdebug_ring.pl;fp=cmd%2Fshow%2Fdebug_ring.pl;h=9a2eb01a3334f3e5b13803674431f6f11c0981f3;hb=83445c4f6ec6c885260944a9abe648aced399c40;hp=0000000000000000000000000000000000000000;hpb=426a8fc779d9d363e094fd229a8de7d4fcd25518;p=spider.git

diff --git a/cmd/show/debug_ring.pl b/cmd/show/debug_ring.pl
new file mode 100644
index 00000000..9a2eb01a
--- /dev/null
+++ b/cmd/show/debug_ring.pl
@@ -0,0 +1,13 @@
+#
+# Log the current values of the DXDebug dbgring butter
+#
+#
+#
+my $self = shift;
+my $line = shift;;
+return (1, $self->msg('e5')) unless $self->priv >= 9;
+
+DXDebug::dbgprintring();
+DXDebug::dbgclearring() if $line =~ /^clear$/;
+
+return (1, 'Contents of debug ring buffer logged. View with watchdbg.');