passive-loop ( server -- )

Vocabulary

ftp.server

Inputs

server

an object

Outputs

None

Definition

USING: accessors calendar concurrency.promises continuations
destructors io.sockets io.timeouts kernel namespaces ;

IN: ftp.server

: passive-loop ( server -- )
    [
        [
            |dispose 30 seconds over set-timeout accept drop
            &dispose client get extra-connection>> 30 seconds
            ?promise-timeout handle-passive-command
        ] [ client get f >>extra-connection drop ] [ drop ]
        cleanup
    ] with-destructors ;