From 05f6e48d8a27dee494afb2ab9e6d31257aa4dfef Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Mon, 26 Aug 2002 14:13:04 +0000
Subject: [PATCH] Fix some logging nits.

---
 scheme/ftpd/ftpd.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/scheme/ftpd/ftpd.scm b/scheme/ftpd/ftpd.scm
index 545885a..63552a6 100644
--- a/scheme/ftpd/ftpd.scm
+++ b/scheme/ftpd/ftpd.scm
@@ -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*)))