suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add 125 to list of expected return codes when receiving data in net/ftp

Browse Source 
original commit: c52b70244d23d77f1813b981939d69a8cea0b125
This commit is contained in:
Stephen Chang 2011-02-08 13:16:59 -05:00
parent 5181e32581
commit 92dc246a0e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/net/ftp-unit.rkt
View File

@ -178,7 +178,7 @@
(fprintf (ftp-connection-out tcp-ports) "LIST\n")
(ftp-check-response (ftp-connection-in tcp-ports)
(ftp-connection-out tcp-ports)
#"150" void (void))
(list #"150" #"125") void (void))
(let ([dir-list (filter-tcp-data tcp-data re:dir-line)])
(close-input-port tcp-data)
(ftp-check-response (ftp-connection-in tcp-ports)
@ -205,7 +205,7 @@
(display tcpstring (ftp-connection-out tcp-ports))
(ftp-check-response (ftp-connection-in tcp-ports)
(ftp-connection-out tcp-ports)
#"150" print-msg (void))
(list #"125" #"150") print-msg (void))
(copy-port tcp-data new-file)
(close-output-port new-file)
(close-input-port tcp-data)