34 lines
868 B
Scheme
34 lines
868 B
Scheme
|
; ------------------------
|
||
|
|
; --- 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)))
|