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

7
ftpd.scm
View File

@ -847,13 +847,16 @@
(file-name-directory full-path)
(lambda ()
(let ((nondir (file-name-nondirectory full-path)))
(let-fluid
ls-crlf? #t
(lambda ()
(ls flags
(list
;; work around OLIN BUG
(if (string=? nondir "")
"."
nondir))
(socket:outport (session-data-socket))))))))))
(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*)))