move-image ( mime-file -- )

Vocabulary

webapps.imagebin

Inputs

mime-file

an object

Outputs

None

Definition

USING: accessors io.directories io.encodings.utf8 io.files
kernel sequences ;

IN: webapps.imagebin

: move-image ( mime-file -- )
    [ next-image-path dup file-exists? ] [ drop ] while
    [ [ temporary-path>> ] dip move-file ]
    [ [ filename>> ] dip ".txt" append utf8 set-file-contents ]
    2bi ;