scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ftpd.scm
View File

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