me/guix
Archived
1
0
Fork 0
Code Activity

ftp-client: Switch to binary mode before using the "SIZE" command.

Browse source 
* guix/ftp-client.scm (ftp-size): Add '%ftp-command' call.
This commit is contained in:
Ludovic Courtès 2015-03-19 13:00:04 +01:00
parent 661c99a434
commit 2a31e1dade
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/ftp-client.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2010, 2011, 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2010, 2011, 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -144,6 +144,11 @@ or a TCP port number), and return it."
(define (ftp-size conn file) (define (ftp-size conn file)
"Return the size in bytes of FILE." "Return the size in bytes of FILE."
;; Ask for "binary mode", otherwise some servers, such as sourceware.org,
;; fail with 550 ("SIZE not allowed in ASCII mode").
(%ftp-command "TYPE I" 200 (ftp-connection-socket conn))
(let ((message (%ftp-command (string-append "SIZE " file) 213 (let ((message (%ftp-command (string-append "SIZE " file) 213
(ftp-connection-socket conn)))) (ftp-connection-socket conn))))
(string->number (string-trim-both message)))) (string->number (string-trim-both message))))