From abccd9747b5729d3090878e95bf7a3f8494197d3 Mon Sep 17 00:00:00 2001
From: Dave Peticolas <dave@krondo.com>
Date: Mon, 5 Jun 2000 06:18:20 +0000
Subject: [PATCH] Add loglevel argument.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2411 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 ChangeLog                | 7 +++++++
 src/scm/command-line.scm | 6 ++++++
 src/scm/main.scm         | 5 ++++-
 src/scm/prefs.scm        | 7 +++++++
 4 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 68a823ae22..b4ab4ff061 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2000-06-04  Dave Peticolas  <dave@krondo.com>
+
+	* src/engine/util.c: add log level modification functions.
+
+	* src/scm/command-line.scm: add a --loglevel argument to set the
+	logging level.
+
 2000-06-04  Rob Browning  <rlb@cs.utexas.edu>
 
 	* */Makefile.am and others: fix up make dist to build a full-blown
diff --git a/src/scm/command-line.scm b/src/scm/command-line.scm
index 9224f3445b..7aa7ccce29 100644
--- a/src/scm/command-line.scm
+++ b/src/scm/command-line.scm
@@ -43,6 +43,12 @@
           (lambda (val)
             (gnc:config-var-value-set! gnc:*debugging?* #f val))))
 
+   (cons
+    "loglevel"
+    (cons 'integer
+          (lambda (val)
+            (gnc:config-var-value-set! gnc:*loglevel* #f val))))
+
    (cons
     "nofile"
     (cons 'boolean
diff --git a/src/scm/main.scm b/src/scm/main.scm
index f68c3527a5..36a8de5bc0 100644
--- a/src/scm/main.scm
+++ b/src/scm/main.scm
@@ -58,7 +58,10 @@
           (gnc:config-var-value-get gnc:*arg-show-help*))
       (begin
         (gnc:prefs-show-usage)
-        (gnc:shutdown 0))))
+        (gnc:shutdown 0)))
+
+  (if (gnc:config-var-value-get gnc:*loglevel*)
+      (gnc:set-log-level-global (gnc:config-var-value-get gnc:*loglevel*))))
 
 
 (define (gnc:shutdown exit-status)
diff --git a/src/scm/prefs.scm b/src/scm/prefs.scm
index 3ee5dcbc93..fb1d7c2bc2 100644
--- a/src/scm/prefs.scm
+++ b/src/scm/prefs.scm
@@ -449,6 +449,13 @@ the account instead of opening a register." #f))
     #f))
   (gnc:config-var-value-set! gnc:*debugging?* #f current-value))
 
+(define gnc:*loglevel*
+  (gnc:make-config-var
+   "Logging level from 0 (least logging) to 5 (most logging)."
+   (lambda (var value) (if (exact? value) (list value) #f))
+   eq?
+   #f))
+
 ;; Convert the temporary startup value into a config var.
 (let ((current-load-path gnc:*load-path*))
   (set!