Mercurial > repos > tabletprog
comparison samples/http.tp @ 153:075b1e71feff
A little more work on the HTTP module
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 09 Aug 2013 21:01:11 -0700 |
parents | 7f442b3e4448 |
children | 55e0dca7d3d7 |
comparison
equal
deleted
inserted
replaced
152:a6739206a9e3 | 153:075b1e71feff |
---|---|
1 #{ | 1 #{ |
2 main <- { | 2 main <- :args { |
3 cli <- http client: "rhope.retrodev.com" | 3 server <- "rhope.retrodev.com" |
4 if: (args length) > 1 { | |
5 server <- args get: 1 | |
6 } | |
7 cli <- http client: server | |
4 print: (string: (cli get: "/")) | 8 print: (string: (cli get: "/")) |
5 } | 9 } |
6 } | 10 } |