Mercurial > repos > tabletprog

comparison samples/http.tp @ 171:869399ff7faa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author Mike Pavone <pavone@retrodev.com>
date Tue, 13 Aug 2013 22:01:00 -0700
parents 55e0dca7d3d7
children
comparison
equal deleted inserted replaced
170:18598163e3ef 171:869399ff7faa
3 server <- "rhope.retrodev.com" 3 server <- "rhope.retrodev.com"
4 if: (args length) > 1 { 4 if: (args length) > 1 {
5 server <- args get: 1 5 server <- args get: 1
6 } 6 }
7 cli <- http client: server 7 cli <- http client: server
8 print: (string: (cli get: "/")) 8 resp <- (cli get: "/")
9 print: "Status: " . (resp status) . "\n"
10 print: "Code: " . (resp statusCode) . "\n"
11 print: "Headers:\n"
12 foreach: (resp headers) :key val {
13 print: key . " -> " . val . "\n"
14 }
15 print: "Body:\n" . (resp body) . "\n"
9 } 16 }
10 } 17 }