From f4db620dd9a0edca95d1ca6bee2127da69899911 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 10 Jul 2001 12:06:59 +0000
Subject: [PATCH] Free SYSLOG parameters so we can set them from the outside.

---
 ftpd.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ftpd.scm b/ftpd.scm
index 3f01fcb..7e1f0c6 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -109,9 +109,9 @@
   (let ((port (optional maybe-port 21)))
     (with-syslog-destination 
      "ftpd"
-     (syslog-options log-pid)
-     (syslog-facility daemon)
-     syslog-mask-all
+     #f
+     #f
+     #f
      (lambda ()
 			     
        (log (syslog-level notice) 
@@ -164,8 +164,8 @@
 (define (ftpd-inetd anonymous-home)
   (with-syslog-destination 
    "ftpd"
-   (syslog-option log-pid)
-   (syslog-facility daemon)
+   #f
+   #f
    #f
    (lambda ()
      (log (syslog-level info)
@@ -972,7 +972,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.21 $")
+(define *ftpd-version* "$Revision: 1.22 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))