mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
ftp-client: Add missing CR in "USER" command.
* guix/ftp-client.scm (%ftp-login): Add #\return before #\newline. Fixes access to some FTP servers, such as ftp://invisible-island.net ("ProFTPD 1.3.4a Server").
This commit is contained in:
parent
83bcd0b895
commit
3c986b75f5
1 changed files with 3 additions and 2 deletions
|
@ -1,5 +1,5 @@
|
||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2010, 2011, 2012, 2013 Ludovic Courtès <ludo@gnu.org>
|
;;; Copyright © 2010, 2011, 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -73,7 +73,8 @@ (define (%ftp-command command expected-code port)
|
||||||
(throw 'ftp-error port command code message))))
|
(throw 'ftp-error port command code message))))
|
||||||
|
|
||||||
(define (%ftp-login user pass port)
|
(define (%ftp-login user pass port)
|
||||||
(let ((command (string-append "USER " user (string #\newline))))
|
(let ((command (string-append "USER " user
|
||||||
|
(string #\return) (string #\newline))))
|
||||||
(display command port)
|
(display command port)
|
||||||
(let-values (((code message) (%ftp-listen port)))
|
(let-values (((code message) (%ftp-listen port)))
|
||||||
(case code
|
(case code
|
||||||
|
|
Loading…
Reference in a new issue