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

Terminate directory output by CRLF.

This commit is contained in:
sperber 2002-02-20 13:40:27 +00:00
parent 8c04b1b95e
commit 40e026a889
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ftpd.scm
View File

@ -847,13 +847,16 @@
(file-name-directory full-path) (file-name-directory full-path)
(lambda () (lambda ()
(let ((nondir (file-name-nondirectory full-path))) (let ((nondir (file-name-nondirectory full-path)))
(ls flags (let-fluid
(list ls-crlf? #t
;; work around OLIN BUG (lambda ()
(if (string=? nondir "") (ls flags
"." (list
nondir)) ;; work around OLIN BUG
(socket:outport (session-data-socket)))))))))) (if (string=? nondir "")
"."
nondir))
(socket:outport (session-data-socket))))))))))))
(define (handle-abor foo) (define (handle-abor foo)
(log-command (syslog-level info) "ABOR") (log-command (syslog-level info) "ABOR")
@ -1126,7 +1129,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.29 $") (define *ftpd-version* "$Revision: 1.30 $")
(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*)))