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