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) (define (log-command level command-name . argument)
(if (null? argument) (if (null? argument)
(log level "handling ~A-command" command-name) (log level "handling ~A command" command-name)
(if (not (null? (cdr argument))) (if (not (null? (cdr argument)))
(log level "handling ~A-command with argument ~S" (log level "handling ~A command with argument ~S"
command-name argument) 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))))) command-name (car argument)))))
;; Extended logging like wu.ftpd: ;; Extended logging like wu.ftpd:
@ -944,7 +944,7 @@
(register-reply! 226 "Closing data connection.")) (register-reply! 226 "Closing data connection."))
(define (handle-retr path) (define (handle-retr path)
(log-command (syslog-level info) "RETR") (log-command (syslog-level info) "RETR" path)
(ensure-authenticated-login) (ensure-authenticated-login)
(let ((full-path (string-append (session-root-directory) (let ((full-path (string-append (session-root-directory)
(assemble-path (session-current-directory) (assemble-path (session-current-directory)
@ -1218,7 +1218,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.5 $") (define *ftpd-version* "$Revision: 1.6 $")
(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*)))