view basicweb.rhope @ 139:a68e6828d896

Global stores and transactions are working. Definately leaks memory on retries. Probably a fair number of bugs to work out. However, a basic test program works.
author Mike Pavone <pavone@retrodev.com>
date Fri, 19 Nov 2010 04:04:14 -0500
parents 6202b866d72c
children 1f39e69446f9
line wrap: on
line source

/*
	Uses the webserver library to serve static files from the current directory
*/

//Import the library that does all the hard work
Import webserver.rhope

Main[]
{
	Print["Starting webserver"]
	//Since we're just serving static files we don't need to setup any handlers
	handlers <- Dictionary[]
	//Start listening on port 80
	Listen on Port[80,["Connection Start"]Set Input[1, handlers]]
	Wait Forever[]
}