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

* spaces in files are converted to _ (underscore) in logfile (as wuftpd does)

This commit is contained in:
interp 2002-04-21 17:52:46 +00:00
parent 241e5c7a2a
commit a7e16bed27
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ftpd.scm
View File

@ -135,7 +135,9 @@
(- (current-seconds) start-transfer-seconds) ; transfer time in secs (- (current-seconds) start-transfer-seconds) ; transfer time in secs
(socket-address->string (socket-remote-address (session-data-socket)) #f) ; remote host name (socket-address->string (socket-remote-address (session-data-socket)) #f) ; remote host name
(file-info:size info) ; file size in bytes (file-info:size info) ; file size in bytes
full-path ; name of file (string-map (lambda (c)
(if (eq? c #\space) #\_ c))
full-path) ; name of file (spaces replaced by "_")
(case (session-type) (case (session-type)
((ascii) "a") ((ascii) "a")
((image) "b") ((image) "b")
@ -1214,7 +1216,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.34 $") (define *ftpd-version* "$Revision: 1.35 $")
(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*)))