Don't close the data connection upon errors.
This commit is contained in:
parent
118bc545b1
commit
b2884b22e2
|
@ -884,6 +884,7 @@
|
||||||
(define (handle-port stuff)
|
(define (handle-port stuff)
|
||||||
(log-command (syslog-level info) "PORT" stuff)
|
(log-command (syslog-level info) "PORT" stuff)
|
||||||
(ensure-authenticated-login)
|
(ensure-authenticated-login)
|
||||||
|
(maybe-close-data-connection)
|
||||||
(call-with-values
|
(call-with-values
|
||||||
(lambda () (ftpd-parse-port-arg stuff))
|
(lambda () (ftpd-parse-port-arg stuff))
|
||||||
(lambda (address port)
|
(lambda (address port)
|
||||||
|
@ -914,6 +915,7 @@
|
||||||
(define (handle-pasv stuff)
|
(define (handle-pasv stuff)
|
||||||
(log-command (syslog-level info) "PASV")
|
(log-command (syslog-level info) "PASV")
|
||||||
(ensure-authenticated-login)
|
(ensure-authenticated-login)
|
||||||
|
(maybe-close-data-connection)
|
||||||
(let ((socket (create-socket protocol-family/internet
|
(let ((socket (create-socket protocol-family/internet
|
||||||
socket-type/stream)))
|
socket-type/stream)))
|
||||||
|
|
||||||
|
@ -951,8 +953,6 @@
|
||||||
(socket-address->internet-address
|
(socket-address->internet-address
|
||||||
(socket-local-address socket)))
|
(socket-local-address socket)))
|
||||||
(lambda (host-address control-port)
|
(lambda (host-address control-port)
|
||||||
(log (syslog-level debug) "Closing ~A ~A"
|
|
||||||
(socket:inport socket) (socket:outport socket))
|
|
||||||
(close-socket socket)
|
(close-socket socket)
|
||||||
host-address))))
|
host-address))))
|
||||||
|
|
||||||
|
@ -1305,7 +1305,6 @@
|
||||||
|
|
||||||
(define (signal-error! code message)
|
(define (signal-error! code message)
|
||||||
(replace-reply! code message)
|
(replace-reply! code message)
|
||||||
(maybe-close-data-connection)
|
|
||||||
(signal 'ftpd-error code message))
|
(signal 'ftpd-error code message))
|
||||||
|
|
||||||
(define (register-reply! code . messages)
|
(define (register-reply! code . messages)
|
||||||
|
|
Loading…
Reference in New Issue