deploy-test-5 ( -- )

Vocabulary

tools.deploy.test.5

Inputs

None

Outputs

None

Definition

USING: accessors http.client io.encodings.ascii io.files
io.files.temp kernel math.parser urls ;

IN: tools.deploy.test.5

: deploy-test-5 ( -- )
    URL" http://localhost/foo.html" clone "port-number"
    temp-file ascii file-contents string>number >>port
    http-get 2drop ;