stomp-sendfile ( destination path -- frame )


Vocabulary
stomp

Inputs
destinationan object
pathan object


Outputs
framean object


Definition
USING: accessors io.files kernel mime.types ;

IN: stomp

:: stomp-sendfile ( destination path -- frame )
"SEND" <frame> destination "destination" set-header
path dup mime-type
[ mime-type-encoding file-contents >>body ]
[ "content-type" set-header ] bi ;