added a few lines to Http.moo
This commit is contained in:
		| @ -12,9 +12,12 @@ class HttpSocket(Socket) | |||||||
|  |  | ||||||
| class HttpServerSocket(ServerSocket) | class HttpServerSocket(ServerSocket) | ||||||
| { | { | ||||||
|  | 	var connections. | ||||||
|  |  | ||||||
| 	method initialize | 	method initialize | ||||||
| 	{ | 	{ | ||||||
| 		super initialize. | 		super initialize. | ||||||
|  | 	###	self.connections := LinkedList new. | ||||||
| 	} | 	} | ||||||
|  |  | ||||||
| 	method onSocketAccepted: clisck from: cliaddr | 	method onSocketAccepted: clisck from: cliaddr | ||||||
| @ -22,12 +25,13 @@ class HttpServerSocket(ServerSocket) | |||||||
| 		'CLIENT accepted ..............' dump. | 		'CLIENT accepted ..............' dump. | ||||||
| clisck dump. | clisck dump. | ||||||
| 		cliaddr dump. | 		cliaddr dump. | ||||||
| 	##	clisck close. | 	###	self.connections addLast: clisck. | ||||||
| 	} | 	} | ||||||
|  |  | ||||||
| 	method acceptedSocketClass | 	method acceptedSocketClass | ||||||
| 	{ | 	{ | ||||||
| 		^HttpSocket | 		##^if (self currentAddress port == 80) { HttpSocket } else { HttpSocket }. | ||||||
|  | 		^HttpSocket. | ||||||
| 	} | 	} | ||||||
| } | } | ||||||
|  |  | ||||||
|  | |||||||
		Reference in New Issue
	
	Block a user