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

This commit is contained in:
sperber 2001-07-10 12:06:59 +00:00
parent 2c6d19ef63
commit f4db620dd9
1 changed files with 6 additions and 6 deletions

View File

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