--  -*-mode: C++; style: K&R; c-basic-offset: 4 ; -*- */

--
--  A simple HTTP client written in Lua, using the socket primitives
-- in 'libhttpd.so'.
--
--
-- $Id: client.lua,v 1.7 2005/10/30 02:07:03 steve Exp $


--
-- load the socket library
--
socket = require( "libhttpd" );
print( "Loaded the socket library, version:\n  " .. socket.version );


--
--  Connect to localhost.
--
sock = socket.connect( "localhost", 80 );

if ( sock == nil ) then
   error( "Socket failed to connect" );
end


print("Socket " .. sock );

--
--  Make a simple HTTP request.
--
socket.write( sock, "GET / HTTP/1.0\r\nConnection: close\r\n\r\n" );


--
-- Holders for a) a simple read request, and b) the total response.
--
line     = "";
response = "";


--
-- Loop reading until things fail.
--
repeat
   print( "Read - chunk" );
   len,line = socket.read( sock )
   response = response .. line;
until len <= 0


--
-- Finished.
--
socket.close( sock );


--
-- Output the HTTP headers + data.
--
print( response );