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 }