Display relative filenames in directory listings.

This commit is contained in:
sperber 2001-06-09 09:28:51 +00:00
parent 3e6277cfbf
commit 3f178f99d0
1 changed files with 12 additions and 3 deletions

View File

@ -542,8 +542,17 @@
path
(car packet))))
(lambda ()
(ls flags (list full-path) (socket:outport
(session-data-socket)))))))
(with-cwd*
(file-name-directory full-path)
(lambda ()
(let ((nondir (file-name-nondirectory full-path)))
(ls flags
(list
;; work around OLIN BUG
(if (string=? nondir "")
"."
(file-name-as-directory nondir)))
(socket:outport (session-data-socket))))))))))
(define (handle-abor foo)
(maybe-close-data-connection)
@ -772,7 +781,7 @@
; Version
(define *ftpd-version* "$Revision: 1.3 $")
(define *ftpd-version* "$Revision: 1.4 $")
(define (copy-port->port-binary input-port output-port)
(let ((buffer (make-string *window-size*)))