MiniWebServer

This is a mini webserver I am hoping to run online sometime.

Run the following in the same folder as an index.html file and then launch a webbrowser to localhost:4663 which is the same port as googledesktop but they don't seem to mind each other.

I'm going to start compiling BlitzMax CGI programs on my remote account first which is another topic but would like to keep developing the following so if anyone wants to help, I need some sort of session manager code that looks after cookies etc.

I'll probably look at support for standard CGI-bin process launching next.

A web front end for the miniwebserver user interface would also be good, perhaps it could listen on another port and allow you to do session control stuff from the browser, sync files, show stats etc.

' minwebserver.bmx

Strict

Local socket:TSocket=CreateTCPSocket()
BindSocket socket,4663
SocketListen socket
Print "listening on port 4663"

While True
	Local client:TSocket=SocketAccept(socket,20)
	If client New TConnection.Create(client)
	TConnection.PollAll
'	Print "poll"
Wend

End

Type TConnection

	Global connections:TList=New TList

	Field id
	Field _socket:TSocket
	Field _stream:TStream
	Field _data$
	
	Method getline$()
		Local p,l$
		p=_data.find("~n")
		If p=-1 p=_data.length
		l=_data[..p]
		_data=_data[p+1..]		
		Return l
	End Method
	
'	Method WritePage()

	Method ServePage(uri$)
		Local file$,size,p

		Print "serving "+uri+" from connection#"+id
		
		If uri$="/" 
			file="index.html"
		Else
			file=uri
			If file[..1]="/" file=file[1..]
			p=file.find("?")
			If p>0 file=file[..p]
'			file=uri[..p]
'			uri=args[p..]
		EndIf

		If file And FileType(file)=FILETYPE_FILE
			size=FileSize(file)
			If size=0
				Print "ServePage "+uri+" is empty"
				Return
			EndIf			
			WriteLine _stream,"HTTP/1.1 200 OK"
			WriteLine _stream,"Content-Type: text/html; charset=UTF-8"
			WriteLine _stream,"Content-Length: "+size
			WriteLine _stream,"Pragma: no-cache"
			WriteLine _stream,"Expires: Fri, 01 Jan 1990 00:00:00 GMT"
			WriteLine _stream,"Cache-control: no-cache, no-store, must-revalidate"
			WriteLine _stream,"Connection: keep-alive"
			WriteLine _stream,"Keep-Alive: 30000"
			WriteLine _stream,""
			WriteLine _stream,LoadText(file)					
'			DebugLog file+" sent"
		Else
			DebugLog "Failed To find file "+file
		EndIf		
'		debuglog "Served!"
	End Method
	
	Field getname$
	
	Method Poll()
		Local bytes,mess$
		bytes=SocketReadAvail(_socket)
		If bytes
			_data:+ReadString(_stream,bytes)
		EndIf
		While _data
			mess=Trim(getline())
'			Print "*"+mess
			If mess[..4]="GET "
				getname=mess[4..]
				getname=getname.replace(" HTTP/1.1","")
			EndIf			
			If mess=""
				If getname
					ServePage getname
					getname=""
				Else
					Print "blank line unknown!"
				EndIf
			Else
				'If getname="" Print "$"+mess+"$"
				'Print mess
			EndIf
		Wend	
	End Method
	
	Method Create:TConnection(client:TSocket)
		Print "creating connection!"
		_socket=client
		_stream=CreateSocketStream(client)
		connections.AddLast Self
		id=connections.count()
		Return Self
	End Method

	Function PollAll()
		Local connect:TConnection
		For connect=EachIn connections
			connect.Poll
		Next
	End Function		
End Type

Hey skid - works really well on the local.

Should this work across a local network? Tried accessing from another PC, the server advises 'serving / HTTP/1.0 from connection#1, but the PC is stuck on opening page.

This is on my work network (which could be locked down somewhere), I'll give it a try on our testlab network shortly.

You crazy.

What Michael said. A non-threaded webserver simply doesn't have the performace to be generally useful. Use Lighttpd instead.

Hmmm... If that statement about multithreading would be true, then I wonder how the old Unix servers were able to deliver in the times when Unix (including Linux) did not support multithreading? Were they spawning new processes for every new connection?

Pre-1970's Unix systems where not operated as servers.

But you do know that Linux only in 1998+/- began to have multithreading support? Until then, it only had multitasking capabilities, but was very well used as a server.

And what about sendmail? If I am not mistaken, it also is not multithreaded. Postfix is, but not sendmail. Neither are some of the older Usenet NNTP servers, e.g.

I think my original question is valid: If you don't have multitasking, how do you write a working server? Obviously, it -is- possible. And must be - after all sooner or later things must be serialized, and if it's just for the hardware access.

Actually it works just as well by asking connections if they have any data.
Multithreading usually occurs controlled on servers (thread pool) since just spawning a process for each connection can easily kill the server :)

Yes, it would be quite easy to bring a server to its knees with that approach. :)

Well, I'll go on with the SocketReadAvai() approach then.

Skidserver worked well here, received the following results:

Building skidserver
Compiling:skidserver.bmx
flat assembler version 1.66
3 passes, 7408 bytes.
Linking:skidserver.exe
Executing:skidserver.exe
listening on port 4663
creating connection!
serving / from connection#1

I'm off to analyse the code now to see what I can learn from it - being a noob to server-ing in BMax....

If you're using a proper OS, use Inetd. Which would probably be the prefered solution in this case aswell, so you don't have to do all the socket handling but can just use stdio.

Thanks, FlameDuck, that opens a new perspective. On OS X, this now would be xinetd instead of inetd, if I'm not wrong. I guess I'll take a closer look at this. :)

Oh, I'm now reading that on Tiger, launchd also replaced xinetd. They seem to change things rather quicky. :)

on the security side, you can download the server app by specifying it's name.

*EDIT*
forgot to add...

cool :)

I might tinker with this if I can get some time (at christmas maybe).