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

Fix FTP-SIZE to read reply until the end of the string.

This commit is contained in:
sperber 2003-01-16 10:18:22 +00:00
parent a4810b4cae
commit 101109e785
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/lib/ftp.scm
View File

@ -206,9 +206,8 @@
(define (ftp-size connection file) (define (ftp-size connection file)
(let* ((reply (ftp-send-command connection (let* ((reply (ftp-send-command connection
(format #f "SIZE ~a" file)))) (format #f "SIZE ~a" file))))
(and (string? reply) (string->number (substring reply
(string->number (substring reply 4 (string-length reply)))))
4 (- (string-length reply) 1))))))
;; Abort the current data transfer. Maybe we should close the data ;; Abort the current data transfer. Maybe we should close the data
;; socket? ;; socket?