Free SYSLOG parameters so we can set them from the outside.

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*)))