<imagebin> ( image-directory -- responder )


Vocabulary
webapps.imagebin

Inputs
image-directoryan object


Outputs
responderan object


Definition
USING: accessors http.server.dispatchers io.directories kernel ;

IN: webapps.imagebin

: <imagebin> ( image-directory -- responder )
imagebin new-dispatcher swap
[ make-directories ] [ >>path ] bi 0 >>n
<upload-image-action> "" add-responder
<upload-image-action> "upload-image" add-responder
<uploaded-image-action> "uploaded-image" add-responder ;