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

ftp-client: Restrict to TCP/IP connections. 

Fixes <http://bugs.gnu.org/21925>.
Regression introduced in 279ec1d.
Reported by Chris Marusich <cmmarusich@gmail.com>.

* guix/ftp-client.scm (ftp-open): Restrict sockets to
  SOCK_STREAM/IPPROTO_IP.
This commit is contained in:
Ludovic Courtès 2015-11-17 09:38:01 +01:00
parent 3279b7ec47
commit b7f4677999
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/ftp-client.scm
View File

@ -140,8 +140,9 @@ TIMEOUT, an ETIMEDOUT error is raised."
(let loop ((addresses addresses)) (let loop ((addresses addresses))
(let* ((ai (car addresses)) (let* ((ai (car addresses))
(s (socket (addrinfo:fam ai) SOCK_STREAM ;TCP only (s (socket (addrinfo:fam ai)
(addrinfo:protocol ai)))) ;; TCP/IP only
SOCK_STREAM IPPROTO_IP)))
(catch 'system-error (catch 'system-error
(lambda () (lambda ()