addons/Socket/samples/WebRequest.io

   1 #!/usr/bin/env io
   2
   3
   4 //DNSResolver addServerAddress("128.105.2.10")
   5
   6 ip := Host clone setName("www.yahoo.com") address
   7
   8 socket := Socket clone setHost(ip) setPort(80)
   9 socket connect
  10
  11 if (socket error) then (
  12         writeln(socket error)
  13 ) else (
  14         socket write("GET /\n\n")
  15
  16         response := ""
  17         while(socket isOpen,
  18                 socket streamReadNextChunk
  19                 response = response .. (socket readBuffer)
  20         )
  21
  22         writeln(response)
  23         writeln("\nReceived ", response size, " bytes")
  24 )