Mercurial > repos > tabletprog
comparison samples/http.tp @ 157:55e0dca7d3d7
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 } |