; ------------------------
; --- Syslog-Interface ---
; ------------------------

; Syslog/Debug-Stuff for dnsd.

; This file is (maybe) part of the Scheme Untergrund Networking package

; Copyright (c) 2005/2006 by Norbert Freudemann 
;                            <nofreude@informatik.uni-tuebingen.de>

; For copyright information, see the file COPYING which comes with
; the distribution.


(define *debug-info* #f)      ; switch debug-information on/off

;; TODO: log-file instead of display-information:

;; Show some debug-information
(define display-debug
  (lambda args
    (if *debug-info*
	(begin
	  (display "dnsd: ")
	  (map (lambda (e) (display e) (display " ")) args)
	  (newline))
	#f)))

(define (apply-w/debug proc . args)
  (if *debug-info* (apply proc args)))

(define (dnsd-log log-level msg . args)
  (syslog log-level (apply format #f msg args)))