nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ftp-client: Allow custom username and password for FTP servers. 

* guix/ftp-client.scm (ftp-open): Add username and password arguments.
This commit is contained in:
Roel Janssen 2017-03-21 12:14:05 +01:00
parent 3b4efb1f45
commit 193420a803
No known key found for this signature in database
GPG Key ID: C3EC1DCA843072E1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/ftp-client.scm
View File

@ -121,7 +121,10 @@ seconds to wait for the connection to succeed."
(raise-error errno))))) (raise-error errno)))))
(connect s sockaddr))) (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, "Open an FTP connection to HOST on PORT (a service-identifying string,
or a TCP port number), and return it. or a TCP port number), and return it.
@ -156,7 +159,7 @@ TIMEOUT, an ETIMEDOUT error is raised."
(if (eqv? code 220) (if (eqv? code 220)
(begin (begin
;;(%ftp-command "OPTS UTF8 ON" 200 s) ;;(%ftp-command "OPTS UTF8 ON" 200 s)
(%ftp-login "anonymous" "guix@example.com" s) (%ftp-login username password s)
(%make-ftp-connection s ai)) (%make-ftp-connection s ai))
(begin (begin
(close s) (close s)