----------------------------------------------------------------------------------------------------------
-- Name: Sockettest.lua
-- Author: Intellipool AB
-- Version: 1.0
-- Date: 2006-02-16
-- Description: Script to opens a TCP sockets and downloads the first KB of
-- content from the server.
----------------------------------------------------------------------------------------------------------
socket = TLuaSocket:new()
iPortNumber = 80
iRet = socket:OpenTCP(iPortNumber)
if iRet==0 then
  sErrorString = "Cannot open port "..iPortNumber.." Error code:"..GetLastError()
  SetExitStatus(sErrorString,false)
else
  -- Send get command
  sCommand = "GET / nr";
  data = socket:Write(sCommand,string.len(sCommand))

  -- Read some data (max 1024 bytes) from the socket
  iReadSize = 1024
  data = socket:Read(iReadSize)
  -- Print the content
  if iReadSize > 0 then
     print("Data received from server:nn")
     print(data)
  else
     print("No data received from server")
  end
  SetExitStatus("Test ok",true)
end
socket:Close()