Mercurial > repos > tabletprog

comparison samples/http.tp @ 157:55e0dca7d3d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Partial implementation of HTTP get requests
author Mike Pavone <pavone@retrodev.com>
date Sat, 10 Aug 2013 15:06:56 -0700
parents 075b1e71feff
children
comparison
equal deleted inserted replaced
156:d6e79885bd3b 157:55e0dca7d3d7
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 }