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

Fix some logging nits.

This commit is contained in:
sperber 2002-08-26 14:13:04 +00:00
parent 7460d8009f
commit 05f6e48d8a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/ftpd/ftpd.scm
View File

@ -88,11 +88,11 @@
(define (log-command level command-name . argument)
(if (null? argument)
(log level "handling ~A-command" command-name)
(log level "handling ~A command" command-name)
(if (not (null? (cdr argument)))
(log level "handling ~A-command with argument ~S"
(log level "handling ~A command with argument ~S"
command-name argument)
(log level "handling ~A-command with argument ~S" ; does this ever happen?
(log level "handling ~A command with argument ~S" ; does this ever happen?
command-name (car argument)))))
;; Extended logging like wu.ftpd:
@ -944,7 +944,7 @@
(register-reply! 226 "Closing data connection."))
(define (handle-retr path)
(log-command (syslog-level info) "RETR")
(log-command (syslog-level info) "RETR" path)
(ensure-authenticated-login)
(let ((full-path (string-append (session-root-directory)
(assemble-path (session-current-directory)
@ -1218,7 +1218,7 @@
; Version
(define *ftpd-version* "$Revision: 1.5 $")
(define *ftpd-version* "$Revision: 1.6 $")
(define (copy-port->port-binary input-port output-port)
(let ((buffer (make-string *window-size*)))