code-200? ( response assoc -- ? )

Vocabulary

mediawiki.api.private

Inputs

response	an object
assoc	an object

Outputs

?

an object

Definition

USING: accessors assocs calendar formatting io kernel
prettyprint sequences threads ;

IN: mediawiki.api.private

: code-200? ( response assoc -- ? )
    over code>> dup 200 = dup
    [ 3nip ] [
        -roll "http status code %d" printf swap header>>
        [ "=" glue print ] assoc-each ... 10 minutes sleep
    ] if ;