* rt-liberation.el: Add a debug option.

1 files changed, 25 insertions, 0 deletions

diff --git a/rt-liberation.el b/rt-liberation.el
index b75bebd..3b4cd7a 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -179,6 +179,28 @@ The custom field symbols provide the programmer with a consistent
 way of referring to certain custom fields. The custom field
 strings are the server specific strings.")
 
+(defvar rt-liber-debug-log-enable nil
+  "If t then enable logging of communication to a buffer.
+
+Careful! This might create a sizable buffer.")
+
+(defvar rt-liber-debug-log-buffer-name "*rt-liber debug log*"
+  "Name of debug log buffer.")
+
+
+;;; --------------------------------------------------------
+;;; Debug log
+;;; --------------------------------------------------------
+
+(defun rt-liber-debug-log-write (str)
+  "Write STR to debug log."
+  (when (not (stringp str))
+    (error "must be a string"))
+  (with-current-buffer (get-buffer-create
+			rt-liber-debug-log-buffer-name)
+    (goto-char (point-max))
+    (insert str)))
+
 
 ;;; --------------------------------------------------------
 ;;; TicketSQL compiler
@@ -314,6 +336,9 @@ AFTER  date after predicate."
   (with-temp-buffer
     (insert answer-string)
     (goto-char (point-min))
+    (when rt-liber-debug-log-enable
+      (rt-liber-debug-log-write (buffer-substring (point-min)
+						  (point-max))))
     (funcall parser-f)))