>From 8536ba69ec3a04930e8a78c8f2b824df3e8c0454 Mon Sep 17 00:00:00 2001 From: Roel Janssen Date: Mon, 20 Mar 2017 12:57:25 +0100 Subject: [PATCH 1/2] ftp-client: Allow custom username and password for FTP servers. * guix/ftp-client.scm (ftp-open): Add username and password arguments. --- guix/ftp-client.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/guix/ftp-client.scm b/guix/ftp-client.scm index 0a179282e..054a00ad7 100644 --- a/guix/ftp-client.scm +++ b/guix/ftp-client.scm @@ -121,7 +121,10 @@ seconds to wait for the connection to succeed." (raise-error errno))))) (connect s sockaddr))) -(define* (ftp-open host #:optional (port "ftp") #:key timeout) +(define* (ftp-open host #:optional (port "ftp") + #:key timeout + (username "anonymous") + (password "address@hidden")) "Open an FTP connection to HOST on PORT (a service-identifying string, or a TCP port number), and return it. @@ -156,7 +159,7 @@ TIMEOUT, an ETIMEDOUT error is raised." (if (eqv? code 220) (begin ;;(%ftp-command "OPTS UTF8 ON" 200 s) - (%ftp-login "anonymous" "address@hidden" s) + (%ftp-login username password s) (%make-ftp-connection s ai)) (begin (close s) -- 2.11.1