From 40e026a889b197af5d7241a66ca4525d5d7c6f0e Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Wed, 20 Feb 2002 13:40:27 +0000
Subject: [PATCH] Terminate directory output by CRLF.

---
 ftpd.scm | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/ftpd.scm b/ftpd.scm
index 1b24f4c..0513740 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -847,13 +847,16 @@
 	(file-name-directory full-path)
 	(lambda ()
 	  (let ((nondir (file-name-nondirectory full-path)))
-	    (ls flags
-		(list
-		 ;; work around OLIN BUG
-		 (if (string=? nondir "")
-		     "."
-		     nondir))
-		(socket:outport (session-data-socket))))))))))
+	    (let-fluid
+	     ls-crlf? #t
+	     (lambda ()
+	       (ls flags
+		   (list
+		    ;; work around OLIN BUG
+		    (if (string=? nondir "")
+			"."
+			nondir))
+		   (socket:outport (session-data-socket))))))))))))
 
 (define (handle-abor foo)
   (log-command (syslog-level info) "ABOR")
@@ -1126,7 +1129,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.29 $")
+(define *ftpd-version* "$Revision: 1.30 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))