move-on ( id -- response )

Vocabulary

furnace.asides

Inputs

id

an object

Outputs

response

an object

Definition

USING: accessors combinators furnace.redirection http.server
kernel ;

IN: furnace.asides

: move-on ( id -- response )
    post-request? [ end-aside-in-get-error ] unless dup method>> 
    {
        { "GET" [ url>> <redirect> ] }
        { "HEAD" [ url>> <redirect> ] }
        { "POST" [ end-aside-post ] }
    } case ;