handle-USER ( ftp-command -- )

Vocabulary

ftp.server

Inputs

ftp-command

an object

Outputs

None

Definition

USING: accessors continuations kernel namespaces sequences ;

IN: ftp.server

: handle-USER ( ftp-command -- )
    [
        tokenized>> second client get user<<
        "Please specify the password." 331 server-response
    ] [ 2drop "bad USER" ftp-error ] recover ;