handle-CWD ( obj -- )

Vocabulary

ftp.server

Inputs

obj

an object

Outputs

None

Definition

USING: accessors io.directories kernel sequences ;

IN: ftp.server

: handle-CWD ( obj -- )
    tokenized>> ?second [
        fixup-relative-path dup can-serve-directory?
        [ set-current-directory directory-change-success ]
        [ drop directory-change-failed ] if
    ] [ directory-change-success ] if* ;