nordic-dev.net/nixpkgs
nordic-dev.net/nixpkgs
2
0
Fork 0
mirror of https://github.com/NixOS/nixpkgs.git synced 2024-10-30 22:21:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

gnupdate: Handle FTP logins with password.

Browse Source 
* maintainers/scripts/gnu/gnupdate.scm (%ftp-login): New procedure.
  (ftp-open): Use it.

svn path=/nixpkgs/trunk/; revision=21714
This commit is contained in:
Ludovic Courtès 2010-05-10 21:26:43 +00:00
parent 659e48bbb0
commit d8c33c1820
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
maintainers/scripts/gnu/gnupdate.scm
View File

@ -307,6 +307,14 @@
message
(throw 'ftp-error port command code message))))
(define (%ftp-login user pass port)
(display (string-append "USER " user (string #\newline)) port)
(let-values (((code message) (%ftp-listen port)))
(case code
((230) #t)
((331) (%ftp-command (string-append "PASS " pass) 230 port))
(else (throw 'ftp-error port command code message)))))
(define (ftp-open host)
(catch 'getaddrinfo-error
(lambda ()
@ -319,8 +327,7 @@
(if (eqv? code 220)
(begin
;(%ftp-command "OPTS UTF8 ON" 200 s)
;; FIXME: When `USER' returns 331, we should do a `PASS email'.
(%ftp-command "USER anonymous" 230 s)
(%ftp-login "anonymous" "ludo@example.com" s)
(%make-ftp-connection s ai))
(begin
(format (current-error-port) "FTP to `~a' failed: ~A: ~A~%"