handle-PASS ( ftp-command -- )

Vocabulary

ftp.server

Inputs

ftp-command

an object

Outputs

None

Definition

USING: accessors continuations kernel namespaces sequences ;

IN: ftp.server

: handle-PASS ( ftp-command -- )
    [
        tokenized>> second client get password<<
        "Login successful" 230 server-response
    ] [ 2drop "PASS error" ftp-error ] recover ;