/* Simple web server */

If RxFuncQuery("SockDropFuncs") then
do
   rc = RxFuncAdd("SockLoadFuncs","rxsock","SockLoadFuncs")
   call SockLoadFuncs
end

listen_address.family = 'AF_INET'
listen_address.port = 80
listen_address.addr = '0.0.0.0'
/* Open a socket */
listen_socket = SockSocket('AF_INET', 'SOCK_STREAM', 'IPPROTO_TCP')

/* Set socket options so we can repeat program */
call SockSetSockOpt listen_socket, 'SOL_SOCKET', 'SO_REUSEADDR', 1

/* Bind to the port */
Call SockBind listen_socket, listen_address.

/* Listen for a connection */
Call SockListen listen_socket, 1
	
/* Accept a connection */
conn_socket = SockAccept(listen_socket)

/* Receive some data */
data = ''
Call SockRecv conn_socket, 'DATA', 1024
say 'Request' data

/* Send a response */
resp = 'Hello World'
call SockSend conn_socket, resp

/* Close connection */
call SockClose conn_socket

exit 0