Terminate directory output by CRLF.

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*)))