* guix/ftp-client.scm (ftp-open): Add username and password arguments.
(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 "guix@example.com"))
"Open an FTP connection to HOST on PORT (a service-identifying string,
or a TCP port number), and return it.
(if (eqv? code 220)
(begin
;;(%ftp-command "OPTS UTF8 ON" 200 s)
- (%ftp-login "anonymous" "guix@example.com" s)
+ (%ftp-login username password s)
(%make-ftp-connection s ai))
(begin
(close s)